Discussion :

[tuta77]

Salut,

on reprend tout .

Anciennement intitulé "[VBA-E] Masquage de plusieurs colonnes par interface", j'ai changé le topic pour etre plus pertinent avec ma nouvelle orientation.
______________

J'ai crée un bouton complété avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    Cells.Find(What:="Brazil").EntireColumn.Delete = True
End If
End Sub

Lorsque j'appuie dessus le programme est bien executé (la colonne a disparu) mais j'obtiens le message suivant :
"Erreur d'execution '424' objet requis".

Maintenant je voudrais régler ce probleme pour pouvoir continuer de toucher à une interface sur laquelle j'appuierais un autre bouton qui supprimerait à son tour une autre colonne. Parce que j'ai deja crée un Userform mais ce fichu message ne permet pas de continuer l'execution de la macro.

Merci .

[tuta77]

Mise à jour du topic. J'espere que vous pourrez m'aider.

[SilkyRoad]

bonjour

tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells.Find(What:="Brazil").EntireColumn.Delete

michel

[tuta77]

Merci beaucoup. Je l'avais corrigé mais il est revenu. Sacré Copier/Coller.

[tuta77]

J'ai un autre soucis.

Je voudrais faire une sélection des colonnes à conserver comme ça se passe pour des pages à imprimer.
C'est-à-dire créer un champ de texte à compléter comme ça : "E-G ; I". Et virer toutes les autres colonnes (A jusqu'à D et H).

Je vais sans doute devoir refaire tout mon programme mais cette méthode de sélection en primoridal pour l'uilisation de la macro.

Je voudrais simplement savoir si c'est possible avant de m'aventurer dans le gros changement.

[tuta77]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub CommandButton1_Click()
 
    'MsgBox ComboBox1.Value 'Message affichant le pays choisi
    TextBox1.Text = "Vous avez choisi de conserver la colonne " & ComboBox1.Value
 
    If Cells.Find(What:=ComboBox1.Value).Activate Then
    Selection.EntireColumn.Delete
    Else
        Exit Sub
    End If
End Sub
 
 
Private Sub UserForm_Initialize()
 
Dim c As Variant
For Each c In Range("4:4")
ComboBox1.AddItem (c.Value)
Next
ComboBox1.ListIndex = 0 'initialisation du choix affiché à l'ouverture sur la ComboBox
End Sub

Avec ce bout de code, j'arrive à séléectionner une colonne puis à la supprimer. Mais le but est de la garder.

Il faut supprimer les colonnes qui n'ont pas comme "pays" celui qui se trouve dans ComboBox, ni dans la partie "Nom d'utilisateur" (voir image).

Mais j'y suis presque et persevere !!!

Voici le tableur, au cas où :
http://img444.imageshack.us/img444/6456/test9nq.jpg

Bon apres-midi.