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

Messages postés
33
Date d'inscription
mercredi 17 janvier 2007
Statut
Membre
Dernière intervention
10 octobre 2008
- - Dernière réponse :  Nelinho - 3 avril 2008 à 14:24
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
Afficher la suite 

3 réponses

Meilleure réponse
4
Merci
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...

Dire « Merci » 4

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

CCM 68368 internautes nous ont dit merci ce mois-ci

3
Merci
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
0
Merci
Edit : "A l'inverse si la case C2 est NON renseignée"