VBA Si couleur cellule chercher une valeur dans une cellule

[Résolu/Fermé]
Signaler
Messages postés
44
Date d'inscription
jeudi 27 février 2014
Statut
Membre
Dernière intervention
7 janvier 2015
-
Messages postés
44
Date d'inscription
jeudi 27 février 2014
Statut
Membre
Dernière intervention
7 janvier 2015
-
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.

3 réponses

Messages postés
1263
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
573
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41713 internautes nous ont dit merci ce mois-ci

Messages postés
44
Date d'inscription
jeudi 27 février 2014
Statut
Membre
Dernière intervention
7 janvier 2015
1
Merci j'essaie.
Messages postés
44
Date d'inscription
jeudi 27 février 2014
Statut
Membre
Dernière intervention
7 janvier 2015
1
https://www.cjoint.com/c/DDqvkLAy6wY

https://www.cjoint.com/c/DDqvkLAy6wY voici le lien pour le fichier exemple merci encore
Messages postés
1263
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
573
Voici le code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 100
If Range("A" & i).Interior.ColorIndex = 6 Then
Range("B" & i) = Sheets("Feuil2").Range("A1")
ElseIf Range("A" & i).Interior.ColorIndex = 42 Then
Range("B" & i) = Sheets("Feuil3").Range("A1")
ElseIf Range("A" & i).Interior.ColorIndex = 44 Then
Range("B" & i) = Sheets("Feuil4").Range("A1")
ElseIf Range("A" & i).Interior.ColorIndex = 3 Then
Range("B" & i) = Sheets("Feuil5").Range("A1")
ElseIf Range("A" & i).Interior.ColorIndex = xlNone Then
Range("B" & i) = ""
End If
Next i
End Sub


et le fichier https://www.cjoint.com/?DDqxw5gQIeF

Cordialement.
Messages postés
44
Date d'inscription
jeudi 27 février 2014
Statut
Membre
Dernière intervention
7 janvier 2015
1
Merci !
Messages postés
44
Date d'inscription
jeudi 27 février 2014
Statut
Membre
Dernière intervention
7 janvier 2015
1
Merci ca fonctionne très bien !
Messages postés
17572
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
11 octobre 2021
4 767
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
Messages postés
44
Date d'inscription
jeudi 27 février 2014
Statut
Membre
Dernière intervention
7 janvier 2015
1
Les cellules initiales manuellement. Puis par VBA les autres cellules prennent la couleur automatiquement des cellules initiales.
Messages postés
44
Date d'inscription
jeudi 27 février 2014
Statut
Membre
Dernière intervention
7 janvier 2015
1
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