[VBA] Effacer contenu d'une cellule

Fermé
Noodlesnood Messages postés 33 Date d'inscription mercredi 17 janvier 2007 Statut Membre Dernière intervention 10 octobre 2008 - 2 févr. 2007 à 08:55
 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

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
Bonjour,

Une variante

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