[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
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
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
A voir également:
- Effacer le contenu d'une cellule sous condition vba
- Excel cellule couleur si condition texte - Guide
- Comment effacer une page sur word - Guide
- Excel compter cellule couleur sans vba - Guide
- Aller à la ligne dans une cellule excel - Guide
- Le fichier à télécharger correspond au contenu brut d’un courrier électronique. de quel pays a été envoyé ce message ? - Guide
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...
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
Une variante
If Len(Range("C2")) = 0 Then
Range("C2").Formula = "=aujourdhui()"
Else
Range("C2").Clear
End If
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
2 févr. 2007 à 09:00
Edit : "A l'inverse si la case C2 est NON renseignée"