Menu

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

Messages postés
16
Date d'inscription
lundi 12 février 2018
Statut
Membre
Dernière intervention
12 décembre 2018
- - Dernière réponse : JN68
Messages postés
16
Date d'inscription
lundi 12 février 2018
Statut
Membre
Dernière intervention
12 décembre 2018
- 12 déc. 2018 à 11:05
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



Afficher la suite 

1 réponse

Messages postés
418
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
21 mai 2019
45
0
Merci
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
didibonf
Messages postés
418
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
21 mai 2019
45 -
moi j’ai bien les valeurs de la colonne B (10,20,30…). Renvoyer votre fichier si ça ne fonctionne toujours pas.
JN68
Messages postés
16
Date d'inscription
lundi 12 février 2018
Statut
Membre
Dernière intervention
12 décembre 2018
-
JN68
Messages postés
16
Date d'inscription
lundi 12 février 2018
Statut
Membre
Dernière intervention
12 décembre 2018
-
SVP
didibonf
Messages postés
418
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
21 mai 2019
45 -
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
JN68
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
Commenter la réponse de didibonf