VBA Si couleur cellule chercher une valeur dans une cellule
Résolu
jambontomate
Messages postés
44
Date d'inscription
Statut
Membre
Dernière intervention
-
jambontomate Messages postés 44 Date d'inscription Statut Membre Dernière intervention -
jambontomate Messages postés 44 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'ai des cellules avec des couleurs (ex: B2:B10 sont jaunes ). L'idée est:
Si B2=jaune, B3 = "valeur de la cellule F19 de la feuille XXXX".
Comment l'écrire en VBA merci ou formule si pas besoin de VBA (encore mieux).
Merci beaucoup.
J'ai des cellules avec des couleurs (ex: B2:B10 sont jaunes ). L'idée est:
Si B2=jaune, B3 = "valeur de la cellule F19 de la feuille XXXX".
Comment l'écrire en VBA merci ou formule si pas besoin de VBA (encore mieux).
Merci beaucoup.
A voir également:
- Excel recherche couleur cellule
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Aller à la ligne dans une cellule excel - Guide
3 réponses
Bonjour,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B2").Interior.ColorIndex = 6 Then
Range("B3") = Sheets("Feuil2").Range("F19")
End If
End Sub
Cordialement
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B2").Interior.ColorIndex = 6 Then
Range("B3") = Sheets("Feuil2").Range("F19")
End If
End Sub
Cordialement
Bonjour,
Comment sont colorisé tes cellules, manuellement ou avec une mise en forme conditionnelle.
Si mise en forme conditionnelle quel est la forme de ta mise en forme
Comment sont colorisé tes cellules, manuellement ou avec une mise en forme conditionnelle.
Si mise en forme conditionnelle quel est la forme de ta mise en forme
Une remarque: Si cette idèe s'applique a une plage de cellules, ex: plage de cellules B2:B20 si B2:B10 = jaune alors C2:C10 = "valeur de la feuille "xxx" de la cellule "Y" si B10:B20 = rouge alors C10:C20 = "valeur de la feuille "xxx" de la cellule "Y".
Le formule VBA change radicalement ou juste mettre range(B2:B20)...? Merci
Le formule VBA change radicalement ou juste mettre range(B2:B20)...? Merci
Le formule VBA change radicalement ou juste mettre range(B2:B20)...? Merci
Nom des feuilles, désignation des cellules de commande, désignation des cellules de résultat, etc....
Voire joindre un fichier renseigné.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 10
If Range("B" & i).Interior.ColorIndex = 6 Then
Range("C" & i) = Sheets("Feuil2").Range("F19")
ElseIf Range("B" & i).Interior.ColorIndex <> 6 Then
Range("C" & i) = ""
End If
Next i
For j = 11 To 20
If Range("B" & j).Interior.ColorIndex = 3 Then
Range("C" & j) = Sheets("Feuil2").Range("F20")
ElseIf Range("B" & j).Interior.ColorIndex <> 3 Then
Range("C" & j) = ""
End If
Next j
End Sub
Je vais avoir une colonne B2:B100 dedans quatre couleures fixes (bleu, jaune, orange, rouge) qui peuvent changer au niveau des plages de cellules dans cette colonne souvent.
Je souhaiterais si possible que la macro aille chercher pour les cellules C2:C100 à chaque changement de couleurs une valeur différente (dans ce cas: quatre valeures différentes = quatre couleures différentes)
Ex: pour la couleur jaune la valeur de la cellule B19 de la feuille 1, la couleur bleu la valeur de la cellule B19 de la feuille 2 etc...
La difficulté de cette macro c'est que les cellules de couleurs peuvent changer de plage de cellule, un jour B2:B10 jaune le lendemain B4:15 bleu etc...
Est ce possible déjà? si possible je vous enverrai un fichier ce soir avec un exemple si ce n'est pas clair.