Startus
XLDnaute Occasionnel
Bonjour à Tous,
Dans un module j'ai écrit un code que ne fonctionne pas comme je le voudrai...
Sub Ventiler()
Dim c As Range
For Each c In Range("A4:A500")
If c = True Then c.Resize(1, 15).ClearContents
If c = True Then c.Offset(0, 9).Comment.Delete
If c = True Then c.Offset(0, 13).Comment.Delete
Next c
Range("D4:O500").Sort Key1:=Range("D4500"), Order1:=xlDescending
End Sub
La colonne A est liée à des Cases à coher si je coche, la valeur de la ligne correspondante renvoie "VRAI"
Je pourrai simplement écrire :
If c = True Then c.Resize(1,15).Clear
Mais je veut conserver le Formatage et des Formules...
Besoin d'Aide SVP...
Avant de venir vous soliciter, j'ai déja recherché sur le Forum, Quelques Livres...
Sans succès.
Dans un module j'ai écrit un code que ne fonctionne pas comme je le voudrai...
Sub Ventiler()
Dim c As Range
For Each c In Range("A4:A500")
If c = True Then c.Resize(1, 15).ClearContents
If c = True Then c.Offset(0, 9).Comment.Delete
If c = True Then c.Offset(0, 13).Comment.Delete
Next c
Range("D4:O500").Sort Key1:=Range("D4500"), Order1:=xlDescending
End Sub
La colonne A est liée à des Cases à coher si je coche, la valeur de la ligne correspondante renvoie "VRAI"
Je pourrai simplement écrire :
If c = True Then c.Resize(1,15).Clear
Mais je veut conserver le Formatage et des Formules...
Besoin d'Aide SVP...
Avant de venir vous soliciter, j'ai déja recherché sur le Forum, Quelques Livres...
Sans succès.