Sujet Précédent Sujet Suivant

Supprimer colonnes avec condition

Résolu/Fermé
Ju@nita Messages postés 149 Date d'inscription mardi 11 juin 2013 Statut Membre Dernière intervention 8 août 2024 - 7 sept. 2015 à 21:03
Ju@nita Messages postés 149 Date d'inscription mardi 11 juin 2013 Statut Membre Dernière intervention 8 août 2024 - 8 sept. 2015 à 13:43
Bonjour,

je ne suis pas très bonne pour créer une macro avec des If.
Pourriez-vous me corriger svp ?
If (A1 = "BLC") Then
Columns("F:G").Select
Selection.Delete Shift:=xlToLeft
If (A1 = "Caisse Pop") Then
Columns("G:H").Select
Selection.Delete Shift:=xlToLeft
If (A1 = "BNC") Then
Columns("G:H").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End If
End Sub


Ça me dit: erreur de compilation: Bloc If sans End If

C'est qu'il a des colonnes à détruire en fonction de ce qui est écrit dans A1.

merci




2 réponses

Réponse 1 / 2
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
7 sept. 2015 à 21:17
Bonsoir,

tu as 3 IF et 1 seul End IF donc ajoute 2 End IF

ensuite lorsque tu désigne une cellule, en VBA il faut écrire Range("A1") ou [A1]

essaye ce code, si A1 = "Caisse Pop" ou "BNC" on supprime les colonnes G et H

Sub test()
If Range("A1") = "BLC" Then
Columns("F:G").Delete
ElseIf Range("A1") = "Caisse Pop" Or Range("A1") = "BNC" Then
Columns("G:H").Delete
End If
End Sub
0
Réponse 2 / 2
Ju@nita Messages postés 149 Date d'inscription mardi 11 juin 2013 Statut Membre Dernière intervention 8 août 2024
8 sept. 2015 à 13:43
Excellent, ça fonctionne très bien.
Un gros merci.

bonne journée.
0