Menu

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

pygos 122 Messages postés vendredi 5 septembre 2008Date d'inscription 24 décembre 2017 Dernière intervention - 10 nov. 2017 à 15:04 - Dernière réponse : pygos 122 Messages postés vendredi 5 septembre 2008Date d'inscription 24 décembre 2017 Dernière intervention
- 11 nov. 2017 à 11:27
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

Afficher la suite 

6 réponses

Répondre au sujet
ccm81 8247 Messages postés lundi 18 octobre 2010Date d'inscription 13 février 2018 Dernière intervention - 10 nov. 2017 à 18:34
0
Utile
1
Bonjour

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

Cdlmnt
pygos 122 Messages postés vendredi 5 septembre 2008Date d'inscription 24 décembre 2017 Dernière intervention - 10 nov. 2017 à 21:50
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 !
Commenter la réponse de ccm81
thev 1696 Messages postés lundi 7 avril 2008Date d'inscription 6 janvier 2018 Dernière intervention - 10 nov. 2017 à 18:34
0
Utile
1
Bonjour,

Avec VBA

For Each cell In ActiveSheet.Range("A1:H35")
If IsEmpty(cell) Then cell.Value = 1
Next cell

pygos 122 Messages postés vendredi 5 septembre 2008Date d'inscription 24 décembre 2017 Dernière intervention - 11 nov. 2017 à 11:27
Merci !
Commenter la réponse de thev
ccm81 8247 Messages postés lundi 18 octobre 2010Date d'inscription 13 février 2018 Dernière intervention - 11 nov. 2017 à 08:55
0
Utile
1
If cel.Value = "" And cel.Interior.ColorIndex = xlNone Then cel.Value = 1


Cdlmnt
pygos 122 Messages postés vendredi 5 septembre 2008Date d'inscription 24 décembre 2017 Dernière intervention - 11 nov. 2017 à 11:26
Merci !, c'est parfait !
Commenter la réponse de ccm81