Trouver une cellule dans une plage et la modifier si vide

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

4 réponses

  1.  Le Pingou
    Bonjour,
    en supposant une plage "A1:O50", la mise en forme conditionnelle devrait faire l'affaire:

    0
    1. 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
  2. Le Pingou
    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
    1. Le Pingou
      Bonjour,
      Alors désolé, je ne suis pas HéHé
      0

      Discussions similaires

      le frigo ne marche pas....
      Nemo6456

      1 réponse
      Retrouver l'image originale d'une photo modifiée
      Raven

      10 réponses
      Modifier une annonce ou le prix sur Leboncoin sans payer
      BourrinOman83

      22 réponses