Indiquer 1 si cellule non remplie EXCEL

Résolu
pygos Messages postés 185 Date d'inscription   Statut Membre Dernière intervention   -  
pygos Messages postés 185 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

3 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

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

Cdlmnt
0
pygos Messages postés 185 Date d'inscription   Statut Membre Dernière intervention  
 
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 !
0
thev Messages postés 1986 Date d'inscription   Statut Membre Dernière intervention   713
 
Bonjour,

Avec VBA

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

0
pygos Messages postés 185 Date d'inscription   Statut Membre Dernière intervention  
 
Merci !
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
If cel.Value = "" And cel.Interior.ColorIndex = xlNone Then cel.Value = 1


Cdlmnt
0
pygos Messages postés 185 Date d'inscription   Statut Membre Dernière intervention  
 
Merci !, c'est parfait !
0