Discussion :

[pomdeterfrite]

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

Code :

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

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

[nchal]

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

[gFZT82]

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 :

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

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.

[pomdeterfrite]

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

Merci beaucoup !