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
Partager