Bonjour a tous,
j ai ecris ce petit code qui me permet de recopier la couleur de fond d une cellule. Si sur la plage A6:A40 de la feuille 1, le fond d une cellule est different de colorindex 24 alors, je veux que le fond sur la feuille 2 de la meme cellule prenne la meme couleur.
Ca marche MAIS, il faut systematiquement que je reselectionne ma cellule de la feuille 1 pour que le changement se fasse sur la feuille 2. Si apres avoir modifié la couleur sur 1 je ne repasse pas sur la cellule modifiée alors rien ne se passe sur 2.
voici mon code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Row < 5 Then Exit Sub
If Target.Row > 40 Then Exit Sub
icourant = Target.Row
If Worksheets("1").Cells(icourant, 1).Interior.ColorIndex <> 24 Then
Worksheets("2").Cells(icourant, 4).Interior.ColorIndex = Worksheets("1").Cells(icourant, 1).Interior.ColorIndex
End If
End Sub
C est la preniere fois que j utilise selectionchange....je joints mon fichier avec.
quelqu un a une idee ?
Merci beaucoup.