Indiquer 1 si cellule non remplie EXCEL [Résolu/Fermé]

Signaler
Messages postés
185
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
3 mars 2021
 -
Messages postés
185
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
3 mars 2021
 -
Bonjour,

Je souhaite indiquer 1 dans toutes les cellules vides d'un tableau, voici les 2 conditions :

Cellules non remplies (pas de couleur)
et Cellules =""

Le tableau, de A1 à H35

Formule ou vba .....

Merci d'avance !
pygos

EXCEL 2010

3 réponses

Réponse 1 / 3
Messages postés
9704
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
13 avril 2021
 2 081
Bonjour

Un exemple (vba)
http://www.cjoint.com/c/GKkrHZPOL6B

Cdlmnt
Signaler
Messages postés
185
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
3 mars 2021
Merci ccm81, pour cette solution qui fonctionne !

Est-il possible d'intégrer la 2ème condition qui est :

Si cellule en couleur (# aucun remplissage) ne pas saisir "1"

Encore Merci !
Réponse 2 / 3
Messages postés
1769
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
15 juin 2020
 604
Bonjour,

Avec VBA 

    For Each cell In ActiveSheet.Range("A1:H35")
        If IsEmpty(cell) Then cell.Value = 1
    Next cell
Signaler
Messages postés
185
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
3 mars 2021
Merci !
Réponse 3 / 3
Messages postés
9704
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
13 avril 2021
 2 081 
If cel.Value = "" And cel.Interior.ColorIndex = xlNone Then cel.Value = 1


Cdlmnt
Signaler
Messages postés
185
Date d'inscription
vendredi 5 septembre 2008
Statut
Membre
Dernière intervention
3 mars 2021
Merci !, c'est parfait !
Posez votre question