Supprimer colonnes avec condition

Résolu
Ju@nita Messages postés 170 Statut Membre -  
Ju@nita Messages postés 170 Statut Membre -
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 19571 Statut Contributeur 5 136
 
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 170 Statut Membre 2
 
Excellent, ça fonctionne très bien.
Un gros merci.

bonne journée.
0