Supprimer colonnes avec condition
Résolu
Ju@nita
Messages postés
163
Date d'inscription
Statut
Membre
Dernière intervention
-
Ju@nita Messages postés 163 Date d'inscription Statut Membre Dernière intervention -
Ju@nita Messages postés 163 Date d'inscription Statut Membre Dernière intervention -
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
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
-
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
-
Excellent, ça fonctionne très bien.
Un gros merci.
bonne journée.
