[VBA] Effacer contenu d'une cellule [Fermé]

Signaler
Messages postés
33
Date d'inscription
mercredi 17 janvier 2007
Statut
Membre
Dernière intervention
10 octobre 2008
-
 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

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...
5
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 61039 internautes nous ont dit merci ce mois-ci

Bonjour,

Une variante

If Len(Range("C2")) = 0 Then
Range("C2").Formula = "=aujourdhui()"
Else
Range("C2").Clear
End If
Messages postés
33
Date d'inscription
mercredi 17 janvier 2007
Statut
Membre
Dernière intervention
10 octobre 2008
2
Edit : "A l'inverse si la case C2 est NON renseignée"