High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

[VBA] Effacer contenu d'une cellule

Dernière réponse le 3 avr 2008 à 14:24:00 Noodlesnood, le 2 fév 2007 à 08:55:29 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP
Firefox 2.0.0.1

Meilleures réponses pour « [VBA] Effacer contenu d'une cellule » dans :
Effacer le contenu premières cellules vides (Résolu) Voir
Effacement du contenu d'une cellule Voir
Excel - Effacer le contenu de certaines cellules. Voir Problème Voici mon problème : J'ai 6 cellules comportant des listes déroulantes. Les 6 sont sélectionnées à chaque fois. J'aimerais pouvoir avoir un bouton pour réinitialiser les 6 en même temps c'est à dire qu'elles apparaissent vides (bien sûr...
[VBA] Tester une plage qui contient des cellules fusionnées Voir
Mythe - On peut effacer un CD-R ou un DVD-R VoirMythe On peut effacer un CD-R ou un DVD-R Réalité FAUX. Explications Les propriétés chimiques et physiques du substrat des CD-R, DVD+/-R font que le gravage n'est pas réversible. Une fois les données gravées, on ne peut donc pas les...
Tableur - La sélection des cellules VoirSélection de cellules Le tableur est un formidable outil pour manipuler des données. Ainsi, pour pouvoir manipuler les données il est nécessaire de disposer d'outils permettant de sélectionner rapidement toutes les cellules dont on a...
Posez votre question Répondre

1

Noodlesnood, le 2 fév 2007 à 09:00:21

Edit : "A l'inverse si la case C2 est NON renseignée"

   
Répondre à Noodlesnood

2

pasco05, le 15 nov 2007 à 15:12:08
  • +1

Bonjour,

Une variante

If Len(Range("C2")) = 0 Then
Range("C2").Formula = "=aujourdhui()"
Else
Range("C2").Clear
End If

   
Répondre à pasco05

3

 Nelinho, le 3 avr 2008 à 14:24:00
  • +1

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

   
Répondre à Nelinho
Posez votre question Répondre
Ils ont besoin de votre aide