Indiquer 1 si cellule non remplie EXCEL

Résolu
pygos Messages postés 202 Statut Membre -  
pygos Messages postés 202 Statut Membre -
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

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

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

    Cdlmnt
    0
    1. pygos Messages postés 202 Statut Membre
       
      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
  2. thev Messages postés 2011 Date d'inscription   Statut Membre Dernière intervention   724
     
    Bonjour,

    Avec VBA

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

    0
    1. pygos Messages postés 202 Statut Membre
       
      Merci !
      0
  3. ccm81 Messages postés 11033 Statut Membre 2 434
     
    If cel.Value = "" And cel.Interior.ColorIndex = xlNone Then cel.Value = 1


    Cdlmnt
    0
    1. pygos Messages postés 202 Statut Membre
       
      Merci !, c'est parfait !
      0