Effacer le contenu de certaines cellules

BERRACHED said

XLDnaute Accro

• 14 Décembre 2008

• #2

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

 

Vote positif 0 Vote négatif

J

juju_69

XLDnaute Occasionnel

• 14 Décembre 2008

• #3

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

 

Vote positif 0 Vote négatif

N

nicolas13270

XLDnaute Nouveau

• 14 Décembre 2008

• #4

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++

 

Pièces jointes

• demo.zip

  10.2 KB · Affichages: 45
• demo.zip

  10.2 KB · Affichages: 48
• demo.zip

  10.2 KB · Affichages: 48

Vote positif 0 Vote négatif

J

juju_69

XLDnaute Occasionnel

• 14 Décembre 2008

• #5

Re : Effacer le contenu de certaines cellules

Au vu de la photo, çà devrait fonctionner 😉

 

Vote positif 0 Vote négatif

N

nicolas13270

XLDnaute Nouveau

• 14 Décembre 2008

• #6

Re : Effacer le contenu de certaines cellules

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

 

Vote positif 0 Vote négatif