Aide sur macro

[justine]

Hervé,

j'ai testé la macro que tu m'as proposée:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
With Sheets("feuil2")
.Range("a" & .Range("a65000").End(xlUp).Row + 1) = Target.Value
End With
End If
End Sub

et je n'arrive à la mettre en place. Lorsque je la place dans une macro et que je la compile, le débogueur me dit qu'un End Sub est attendu alors qu'il existe.

Peux tu m'éclairer?

Merci encore.

Justine

 

[@+Thierry]

Bonjour Justine, le Forum

La Procédure ci-dessus est correcte niveau syntax...

Par contre il faut la placer dans Le Private Module de la Feuille En Question et PAS dans un Module "Standard" (Module1)...

Pour accéder facilement à ce "Private Module" quand tu es sur la Feuille En Question, tu sélectionnes son Onglet et tu fait un Click Droit, puis => "Visualiser le Code"... Tu seras au bon endroit pour mettre ce code...


Pour ce message du débogueur que te dit qu'un End Sub est attendu alors qu'il existe... Huum, il doit sûrement y avaoir des "Résidus" d'autres essais de macro dans le Module, car j'ai testé le code tel qu'il est là, sans problème, pour peu que tu aies bien une feuille nommée "Feuil2"...


Bon Appétit
@+Thierry

 

[Hervé]

Bonjour justine et thierry

J'ai plus le classeur , mais thierry à surement raison il devait rester des résidus de macro.

Salut
Hervé

 

[justine]

Merci beaucoup les garçons pour votre aide! Ca marche!

A bientôt

Justine