Supprimer le contenu de cellules

Résolu
nicolas13270 -  
 nicolas13270 -
Bonjour,
Voila mon probleme: dans la colonne M j'ai une valeur 0 de la ligne M10 à M183, cette valeur peut passer à 1.
J'ai un bouton "supprimer"
Mon souci : lorsque j'appui sur le bouton "supprimer" le contenu des cellules (B#,D#,E#,F# et G#) de la ligne a valeur 1 soit supprimer pas les autres.

Exemple M18 et M24 =1 => bouton supprimer => disparition du contenu des cellules B18, D18, E18, F18, G18 et B24, D24, E24, F24, G24

Merci pour vos futurs réponses
A++

1 réponse

lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Le code du bouton ?
Private Sub CommandButton1_Click()
Dim i As Long, e As Byte
Dim P
    P = Array(2, 4, 5, 6, 7)
    For i = 10 To 183
        If Cells(i, 13) > 0 Then
            For e = 0 To 4
                Cells(i, P(e)).Delete
            Next e
            Cells(i, 13) = 0
        End If
    Next i
End Sub

A+
0
nicolas13270
 
Ca marche encore merci
a++
0