Effacer le contenu de cellule si le fond est blanc
Bonjour,
je cherche depuis logntemps mais en vain, je cherche un code qui m'effacerait le contenu des cellules de C3:I2331 si le fond est blanc.
d'avance merci
daniel
bonjour
non !
dans Excel les couleurs ne servent qu'à attirer le regard ou signaler
les couleurs ne doivent pas servir à faire des calculs ni des actions
dans ton cas, qui met les cellules en blanc ? comment ? pourquoi ?
suggestion pour masquer ce qui est écrit dedans : une MFC qui met le texte lui-aussi en blanc
tout ceci n'est pas une obligation bien entendu, mais un foooooort conseil
l'avenir de ton fichier pour les années qui viennent en dépend
bon travail
On se demande vraiment à quoi cela peut servir ...
Sub effacer()
Dim cel As Range
For Each cel In Range("A1:A20")
If cel.Interior.ColorIndex = 2 Then cel.Clear
Next
End Subici blanc et pas transparent !!
Re bonjour,
j'ai cré un fichier sur une année à l'aide du forum pour mon travail où on saisi des informations que je voudrais effacer automatiquement pour l'année suivante sans être obligé de passer en revue chaque cellule pour les effacer.
mais le code ci-dessus ne fonctionne pas, il fait planter excel.
d'avance merci de m'aiguiller.
Daniel
re
on ne change pas de fichier quand on change d'année
c'est une habitude qui date du Moyen-Âge où on a inventé la comptabilité sur papier
en informatique on ne repart jamais en début d'année
si ton fichier est capable de tenir 365 jours il tiendra 3650 et bien plus encore
(sauf pour les fichiers de comptabilité fiscale, où on est est restés au Moyen-Âge ! Mais toi tu ne fais pas du fiscal)
si tu as des formules ou TCD ou autres à adapter, sur ce forum tu trouveras de l''aide.
note : il semblait bien que ta question étrange cachait en fait une idée.
note 2 : rester 10 ou 20 ans sur la même feuille est hyper simple et hyper fiable. Pas de VBA, pas de formules
et en plus tu pourras faire des stats mensuelles, annuelles etc. et des graphiques comparant les années...
bonjour
Sub Effacer()
For Each c In Range("C3:I2331").SpecialCells(xlCellTypeConstants, 23)
If c.Interior.Color = vbWhite Then
c.ClearContents
End If
Next c
End Sub
j'ai mis ce code nickel pour du blanc, ça mouline un peu mais ça fonctionne.
Merci à tous
Daniel
mais le code ci-dessus ne fonctionne pas, il fait planter excel.
ah bon ! merci de me donner une copie sur un fichier test de chez toi car je l'ai testé avant de la poster !
maintenant, au-delà de ce code, je suis en phase avec jmd
ms fichiers de compte personnel n'ont pas été réinitialisés depuis 10 ans
Bonsoir Daniel, le forum,
[quote="dans ton post de 11:07, tu"]ça mouline un peu mais ça fonctionne.[/quote]
ça mouline un peu car il manque une instruction ; essaye comme ceci :
Sub Effacer()
Dim c As Range: Application.ScreenUpdating = False
For Each c In [C3:I2331].SpecialCells(xlCellTypeConstants, 23)
If c.Interior.Color = vbWhite Then c.ClearContents
Next c
End Subdhany