Macro valeur suivant motif cellule

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 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
A voir également:

2 réponses

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
pygos Messages postés 185 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour la soluce !
0