Trouver une cellule dans une plage et la modifier si vide

Boom -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
J'ai un fichier dans lequel je souhaite avoir le fonctionnement suivant

Au click d'un bouton, dans plusieurs plages distinctes :
- Si une seule cellule vide = interior.color = rouge
Else interior.color = verte.

Actuellement j'utilise
If IsEmpty(Range("A1")) Then
Range("A1").Interior.Color = RGB(250, 190, 190)
Else Range("A1").Interior.Color = RGB(198, 224, 180)
End If

Mais j'ai 50 cellules et je sens que ça bafouille un peu les 50 if-then-else-end if

Merci de votre aide
A voir également:

4 réponses

Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
en supposant une plage "A1:O50", la mise en forme conditionnelle devrait faire l'affaire:

0
Boom
 
Merci de ta réponse mais je veux que ce changement de couleur ne s'opère qu'à l'activation du bouton.

De plus, si toutes les cases de la plages sont pleines, le bouton doit les remettre en blanc. (ça j'y sui arrivé simplement héhé)
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour.
Pourquoi un bouton puisque à l'origine le s cellule sont toutes blanches (sans couleur de remplissage) de ce fait si une ou plusieurs est/sont vide, c'est la MFC qui sans charge. Ceci simplement sans bouton héhé..

0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Alors désolé, je ne suis pas HéHé
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
0