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("D4
500"), 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.