[VBA] Effacer contenu d'une cellule
Noodlesnood
Messages postés
33
Statut
Membre
-
Nelinho -
Nelinho -
Bonjour,
J'ai en case C2 une liste où je peux choisir les congés, mais j'aimerais que si cette case est renseignée, la case D2 reste vide, sans pour autant en effacer la formule. A l'inverse, si la case C2 est remplie, D2 doit être renseignée selon la formule.
Ce code efface le contenu de D2 ainsi que la formule qui donc ne peut-être réutilisée :
If Not isEmpty Range("C2") then Range("D2").Clear
J'ai en case C2 une liste où je peux choisir les congés, mais j'aimerais que si cette case est renseignée, la case D2 reste vide, sans pour autant en effacer la formule. A l'inverse, si la case C2 est remplie, D2 doit être renseignée selon la formule.
Ce code efface le contenu de D2 ainsi que la formule qui donc ne peut-être réutilisée :
If Not isEmpty Range("C2") then Range("D2").Clear
Configuration: Windows XP Firefox 2.0.0.1
3 réponses
-
Salut!
Et que pense tu de définir ta formule dans une autre case de ton tableau que tu écrira de couleur "invisible" et puis lorsqu'il le faudra tu enverra via VBA la recopier dans la formule de ton choix?
Ou tout simplement, tu modifie ta formule directement sur le tableur de façon à ce que la case soit "vide" ou plutôt n'affiche rien lorsque certaines conditions sont remplies... -
Bonjour,
Une variante
If Len(Range("C2")) = 0 Then
Range("C2").Formula = "=aujourdhui()"
Else
Range("C2").Clear
End If -
Edit : "A l'inverse si la case C2 est NON renseignée"
