Détecter une modification de ligne

Hello tout le monde,

J'ai un tableau Excel avec des macros VBA qui viennent remplacer des formules qui étaient trop lourdes pour mon fichier.

J'ai gagné en poids mais j'ai perdu en temps d'exécution => je cherche donc à exécuter cette macro uniquement si une cellule a été modifié et dans ce cas je marque un "X" dans une colonne pour boucler uniquement sur ces lignes à l'enregistrement.

Voilà pour la petite histoire ... maintenant je cherche à détecter cette modification dans la colonne A et d'inscrire un "X" dans cette colonne dédiée et la ligne concernée, en temps réel, à chaque modification.

J'ai donc essayer le code ci-dessous, qui ne fonctionne pas :(.

En fait je ne comprends pas comment "Worksheet_Change" se déclenche, c'est la 1ere fois que je l'utilise ... HELPPPPPPPPPPP :roll:

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = True   If Not Application.Intersect(Target, Range("A5:A20")) Is Nothing Then Target.Offset(0, 30) = "X" End If   End Sub

---

Bonjour,

As tu testé ton code ?
Chez moi il marche bien, peut etre pas comme tu l'entends mais il met des "X" 30 colonne plus loin

Bonjour,

Tu ne me parais pas si loin que ça.
A chaque modification de la valeur d’une cellule de la plage A5:A20, une croix va s’inscrire dans la ligne correspondante de la colonne AE.
As-tu bien placé ton code dans le module de la feuille correspondante ?

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Application.Intersect(Target, Range("A5:A20")) Is Nothing Then Target.Offset(0, 30) = "X" End If Application.EnableEvents = True End Sub

---

Cordialement.

Ah je l'avais mise dans ThisWorkbook... effectivement dans la feuille qui va bien c'est beaucoup mieux !!!

Merci beaucoup ! :)