Supprimer colonne a titre variable

[raf2022]

Bonjour à tous,

Je suis débutant et surtout perdu pour faire une sélectio dans une boucle.
Je sélectionne un tableau que je colle et ensuite je supprime toutes les colonnes qui ne correspondent pas à "Juin". ma macro marche mais je souhaite que les colonnes à supprimer se suppriment en fonction de ce que j'écris dans une cellule.

Par exemple si j'écris Janvier dans la cellule A1 alors toutes les colonnes sauf janvier sont supprimée. Actuellement je dois modifier la macro et changer juin en janvier.


J'ai parcouru les différentes discussions mais je n'ai pas trouvé mon bonheur.

Merci pour votre aide

Raf


'Collage de la base de donnée
Sheets(1).Select
Range("AF40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Sélection moi de Juin
Dim c As Integer
'Recherche de la dernière ligne de la colonne AG
For c = 50 To 33 Step -1
If Cells(40, c) <> "Juin" Then Cells(40, c).EntireColumn.Delete
Next c

 

[mécano41]

Re : Supprimer colonne a titre variable

bonjour,

Si tu mets le nom du mois en A1, essaie en remplaçant :

 If Cells(40, c) <> "Juin" Then Cells(40, c).EntireColumn.Delete

par :

 If Cells(40, c).value <> range("A1").value Then Cells(40, c).EntireColumn.Delete

Cordialement

 

[raf2022]

Re : Supprimer colonne a titre variable

Hello Mécano41,

Et bien merci
c'est exactement ce que je veux
Je vais maintenant m'attaquer à faire une liste déroulante dans A1 qui sélectionne le moi , à la place de devoir écrire dans A1 le moi que je veux.

UN grand merci et A+ car je suis sur d'avoir encore besoin des excellents conseils du site

Raf