[VBA-E] Masquage de plusieurs colonnes par interface

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:

---

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 :).

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

bonjour

tu peux essayer

Code:

---

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

---

michel

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

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.

Code:

---

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 !!! :mrgreen:

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

Bon apres-midi.

J'ai bien avancé mais j'arrive pas à faire une boucle pour parcourir la zone apres F4 soit la partie de ligne G4:Z4... J'ai essaye plein de tests mais là je bloque. Le resultat est bizarre : j'arrive à supprimer toutes les colonnes non desirees en cliquant plusiuers fois le bouton mais moi je veux pas virer celle pas dans la boucle (que celles de G4:Z4).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton1_Click()   'MsgBox ComboBox1.Value 'Message affichant le pays choisi TextBox1.Text = "Vous avez choisi votre colonne " & ComboBox1.Value   Dim A As Variant Dim z As Variant   For Each A In Range("H1:Z1") For Each z In Range("4:4")   If z.Value <> ComboBox1.Value Then 'si le texte de la case pointée est differente de celle du Combobox alors on supprime la colonne pointée. z.EntireColumn.Delete End If Next z Next A End Sub

---

Bonsoir.

Bonjour,

J'ai 2 textbox que l'utilisateur complete en entrant un numero de cellule. En cliquant sur un bouton, la plage selectionnée doit générer un combobox avec les mots présents dans les cellules de la plage.

Malheuresement, ca a pas l'air de marcher, pourtant ça m'a l'air logique :/ : Erreur 1004 (probleme avec le "Range", à priori j'ai pas le droit d'utiliser de variable dedans...)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click() Dim C As Variant Dim C1 As Variant Dim Cfin As Variant   C1 = TextBox1.Value 'H4 saisi par l'user Cfin = TextBox2.Value 'G4 saisi par l'user   For Each C In Range("C1:Cfin") 'ou For Each C In Range("TextBox1.Text:TextBox2.Text") ComboBox1.AddItem (C.Value) Next C   End Sub

---

Qu'est-ce qui ne va pas avec le Range ? Juste ça pour régler ma macro. Restera qu'à executer çà sur toutes les feuilles du classeur.

Edit : c'est pareil avec une InputBox.

Ca marche impec' avec :

Code:

---

1 2 3 4 5

C1 = InputBox("1ere colonne") 'user saisi "H4" C2 = InputBox("Dernière colonne") 'user saisi "Q4" Set Plage = Range(C1, C2)   For Each C In Plage

---

Maintenant et vrai dernier truc à regler :

Comment utiliser la plage du code dans un autre Sub ? De façon à avoir dans un autre sub :

Code:

---

For Each z In Plage 'Range("H4:Q4")=meme plage que le premier code

---

Une variable n'est valable que dans son sub ? On peut pas la réutiliser dans un autre Sub d'une manière ou une autre ?

Probleme reglé. Je cherche juste à executer la macro sur toutes les feuilles du classeur ?

une autre boucle for Each...

Code:

---

1 2 3 4 5

Dim f As Worksheet For Each f In ThisWorkbook.Worksheets (...) Next

---

Merci bbil. Sujet clos.