vba [e] suppression de colonne
bonjour
je stagne sur une procedure toute simple
je m explique sur sur feuille 12 colonnes sont affectées d un nom a la 1ere ligne, en fonction d un userform je rentre des valeurs ou non dans ces colonnes.
si la 2eme ligne d 'une ou plusieurs colonnes n est pas remplie je souhaite effacer la colonne
1
desolé j ai envoyé le message avant d avoir terminé
pat christ toto meme etc
12 221 2121 2121
2323 111 111 1111
etc
j utlise cette procedure pour supprimer la colonne
Code:
1
2
3
4
5
6
7
8
9
10
| Sub efface_col_vide()
Dim i
For i = 1 To 12
Worksheets("pronostics").Select
If cells( i).Value = "" Then
MsgBox "col " & i & " vide"
Columns(i + 2).Delete
End If
Next i
End Sub |
le pb est qu a chaque suppression de col , la reference de la colonne suivante
se decremente
suppression col 5 : la col 6 devient la col 5 donc si cette derniere est vide
la procedure ne la prend pas en compte
j espere avoir ete claire
merci
