Macro valeur suivant motif cellule

Résolu
pygos Messages postés 202 Statut Membre -  
pygos Messages postés 202 Statut Membre -
Bonjour,

Je souhaite obtenir une macro qui indique la valeur "AU"
dans les cellules sélectionnées (F11:av53), à condition que le
motif (couleur cellule) soit égal à :

Font.ColorIndex = 2 (blanche)

Merci de m'aider !

pygos

2 réponses

  1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
     
    Essaye :

    Dim Cellule As Excel.Range
    
    For Each Cellule In Selection.Cells
      If Cellule.Font.ColorIndex = 2 Then
        Cellule.Formula = "au"
      End If
    Next Cellule


    Cordialement
    0
  2. pygos Messages postés 202 Statut Membre
     
    Merci pour la soluce !
    0