Discussion :

[UDSP50]

Bonjour la room

Voilà en feuil1 j'ai une case F6 qui contient une valeur et une couleur
j'aimerai par le code dire que si la valeur R8 de la feuil2 est égale a la valeur F6 de la feuil1 alors R8 et S8 de la feuil2 sont de la même couleur que F6 de la feuil1

disons que ça je sais faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
Private Sub CommandButton13_Click()
'Colorie le planning général mensuel
If Feuil2.Range("R8") = Feuil1.Range("F6") Then
Feuil2.Range("R8:S8").Interior.Color = Feuil1.Range("F6").Interior.Color
End If
End Sub

Le truc c'est que je dois faire pareil pour R9
si la valeur R9 de la feuil2 est égale a la valeur F6 de la feuil1 alors R9 et S9 de la feuil2 sont de la même couleur que F6 de la feuil1

et ainsi de suite jusqu'à R125

si je code ligne par ligne ça va être super long alors j'ai besoin d'un coup de pouce pour trouver un code plus court

merci a vous

[78chris]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton13_Click()
'Colorie le planning général mensuel
Dim cellule As Range
For Each cellule In Feuil2.Range("R8:R125")
    If cellule = Feuil1.Range("F6") Then
        cellule.Resize(1, 2).Interior.Color = Feuil1.Range("F6").Interior.Color
    End If
Next cellule
End Sub

[UDSP50]

Purée c'est trop du bonheur ton code pourtant dieu sait que j'ai essayé mais en vain

merci pour tout A+