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 : Sélectionner tout - Visualiser dans une fenêtre à part
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