Salut,
Le code marche pas, de plus je te montre le code que je dispose sur la feuil1.
Public Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Feuil1.Range("B3")) Is Nothing Then
Feuil2.Range("B3") = Feuil1.Range("B3")
End If
If Not Intersect(Target, Feuil1.Range("B4")) Is Nothing Then
Feuil2.Range("B4") = Feuil1.Range("B4")
End If
If Not Intersect(Target, Feuil1.Range("B6")) Is Nothing Then
Feuil2.Range("B6") = Feuil1.Range("B6")
End If
If Not Intersect(Target, Feuil1.Range("B10")) Is Nothing Then
Feuil2.Range("B10") = Feuil1.Range("B10")
End If
If Not Intersect(Target, Feuil1.Range("B11")) Is Nothing Then
Feuil2.Range("B11") = Feuil1.Range("B11")
End If
If Not Intersect(Target, Feuil1.Range("B13")) Is Nothing Then
Feuil2.Range("B13") = Feuil1.Range("B13")
End If
If Not Intersect(Target, Feuil1.Range("D4")) Is Nothing Then
Feuil2.Range("D4") = Feuil1.Range("D4")
End If
If Not Intersect(Target, Feuil1.Range("D5")) Is Nothing Then
Feuil2.Range("D5") = Feuil1.Range("D5")
End If
If Not Intersect(Target, Feuil1.Range("D6")) Is Nothing Then
Feuil2.Range("D6") = Feuil1.Range("D6")
End If
If Not Intersect(Target, Feuil1.Range("D7")) Is Nothing Then
Feuil2.Range("D7") = Feuil1.Range("D7")
End If
End Sub
Le prblème c'est qu'il fait ralentir excel à chaque fois que je modifie une valeur....Un conseil?