Bonjour, pour traiter une base de données, je cherche à tester le contenu de la première colonne, pour chacune des colonnes. Selon ce test, je supprime telles ou telles colonnes.

Si le contenu est INV, dans ce cas je veux supprimer les colonnes F et G.

Si le contenu est INC, dans ce cas je veux supprimer les colonnes D et E.

Mais avec le programme que j'ai fait, il supprime les 4 colonnes quelle que soit la valeur.

Pourriez-vous me dire ce qui cloche svp ? Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub macro_sinistres()
 
Dim Var
Dim i As Integer
    For i = 2 To 100
        Var = ActiveSheet.Range("A" & i).Value
        If Var = INV Then
        Columns("F:F").Delete Shift:=xlToLeft
        Columns("G:G").Delete Shift:=xlToLeft
        End If
        If Var = INC Then
        Columns("D:D").Delete Shift:=xlToLeft
        Columns("E:E").Delete Shift:=xlToLeft
        End If
    Next i
 
End Sub