Macro valeur suivant motif cellule

Résolu/Fermé

pygos Messages postés 185 Date d'inscription vendredi 5 septembre 2008 Statut Membre Dernière intervention 3 mars 2021 - 25 juin 2010 à 14:39
pygos Messages postés 185 Date d'inscription vendredi 5 septembre 2008 Statut Membre Dernière intervention 3 mars 2021 - 25 juin 2010 à 15:26

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:

Macro valeur suivant motif cellule
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel cellule couleur si condition texte - Guide
Macro word - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
25 juin 2010 à 14:53

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

Réponse 2 / 2

pygos Messages postés 185 Date d'inscription vendredi 5 septembre 2008 Statut Membre Dernière intervention 3 mars 2021
25 juin 2010 à 15:26

Merci pour la soluce !

Discussions similaires

Problème de restrictions

Excel VBA : Récupérer la valeur d'une cellule

recup couleur de cellule sans macro

Cette valeur ne correspond pas aux restrictions

Excel:récupérer le contenu d'une cellule en fonction d'une autre