Discussion :

[patbou]

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

[ouskel'n'or]

Dans ce cas-là on travaille à l'envers

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 12 To 1 step -1

(je n'ai pas regardé le reste de ton code, tu testes et si tu as un pb, tu nous dis

Edit
Bon je viens de regarder

If cells( i).Value = "" Then

Si tu ne mets pas de N° de ligne, ça ne va pas fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cells(NoLigne,i).value = Empty then

Tu donnes une valeur à NoLigne et tu testes

[patbou]

merci ous 'n'kel
la suptilité etait tte simple encore fallait il y penser
au fait ds mon code que j avais recopié il manquait un argument a l objet cells