Valeur d'une cellule en fonction d'une couleur d'une autre cellule avec la VBA [Résolu/Fermé]

Signaler
Messages postés
16
Date d'inscription
lundi 12 février 2018
Statut
Membre
Dernière intervention
12 décembre 2018
-
Messages postés
16
Date d'inscription
lundi 12 février 2018
Statut
Membre
Dernière intervention
12 décembre 2018
-
Bonjour

est il possible de changer la valeur d'une cellule en fonction d'une couleur d'une autre cellule?

de E13 à J13 je peux selectionner les couleur disponible en colonne A pour que de E12 à J12 s'inscrivent les valeurs correspondantes en colonne D

Merci d'avance



1 réponse

Messages postés
418
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
21 mai 2019
63
Bonjour,
Je verrais un code du type :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage As Range, Intersection As Range
If Not Intersect(Target, Range("e13:j13")) Is Nothing Then
    For i = 1 To 6
    If Target.Interior.Color = Cells(i, 1).Interior.Color Then
    Target.Value = Cells(i, 4).Value
    End If
    Next i
End If
End Sub
Messages postés
418
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
21 mai 2019
63
moi j’ai bien les valeurs de la colonne B (10,20,30…). Renvoyer votre fichier si ça ne fonctionne toujours pas.
Messages postés
16
Date d'inscription
lundi 12 février 2018
Statut
Membre
Dernière intervention
12 décembre 2018

Messages postés
16
Date d'inscription
lundi 12 février 2018
Statut
Membre
Dernière intervention
12 décembre 2018

SVP
Messages postés
418
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
21 mai 2019
63
Le problème vient bien du numéro de feuille, si vous mettez Worksheets(24) c’est la feuille T qui est utiliser et non la feuille "Base" qui est la première feuille Worksheets(1)
https://www.cjoint.com/c/HLmj4elnnHd
Messages postés
16
Date d'inscription
lundi 12 février 2018
Statut
Membre
Dernière intervention
12 décembre 2018

super merci
J'avais inseré les ligne de code dans la mauvaise feuille

merci beaucoup