Effacer le contenu de certaines cellules

[nicolas13270]

Bonjour,
Voila mon problème: 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", il faudrait que 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++

 

[BERRACHED said]

Re : Effacer le contenu de certaines cellules

Salut,nicolas13270 et Bienvenue sur Xld

Un fichier joint zippé sans données confidentielles pour pouvoir regarder ta macro et aussi voir la disposition de tes données.

Cordialement

 

[juju_69]

Re : Effacer le contenu de certaines cellules

Hello et bienvenu,

Un p'tit coucou à Said au passage 😉

Essaies çà :

Sub supp()
Dim i As Integer
For i = 10 To 183
If Cells(i, 13) = 1 Then
Cells(i, 2).ClearContents
Range(Cells(i, 4), Cells(i, 7)).ClearContents
End If
Next i
End Sub

@ +

Juju

 

[nicolas13270]

Re : Effacer le contenu de certaines cellules

Re Bonjour, Voici la photo
Car le fichier zip trop volumineux
Il n'y a qu'un seul macro (pour le filtre en C6)

A++

 

[juju_69]

Re : Effacer le contenu de certaines cellules

Au vu de la photo, çà devrait fonctionner 😉

 

[nicolas13270]

Re : Effacer le contenu de certaines cellules

C'est exactement ce qui me fallait
Enore merci juju_69
A++