vba excel si la valeur de la cellule change
bonjour,
j'ai un probleme sur un fichier excel, j'ai un code vba qui recopie les données d'une feuil1 sur une feuil2 à un evênement cela marche mais je voulais que la prochaine fois que je modifie sur feuil1 la cellule a1, que ça modifie a1 sur feuil2 seleument voici le code qui modifie sur toute la boucle
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Dim i As Integer
Application.EnableEvents = False
For i = 1 To Sheets("feuil1").Range("a100000").End(xlUp).Row
On Error Resume Next
If Cells(i).Target.Value <> Sheets("feuil2").Cells(i).Target.Value Then
With Sheets("feuil2")
.Cells(i, 1) = Sheets("feuil1").Cells(i, 2)
.Cells(i, 2) = Sheets("feuil1").Cells(i, 1)
.Cells(i, 3) = Sheets("feuil1").Cells(i, 3)
.Cells(i, 4) = Sheets("feuil1").Cells(i, 4)
.Cells(i, 5) = Sheets("feuil1").Cells(i, 5)
End With
End If
Next |
vous remarquerez qu'il ya la colonne 1 et deux sont inverser sur feuil2, c'est un souhait.
merci d'avance!