Re : macro évenementielle SheetChange
Bonjour et merci pour vos réponses,
Ce test fonctionne maintenant ... mais, et oui, il y toujours un souçi quand on veut aller plus loin.
Sur mon fichier (plusieurs feuilles dont ma feuille active "split") cette "macro" fonctionne aussi. Je voudrais lancer une macro "liste" existante à chaque changement de la valeur de ma cellule A1. Cette macro fonctionnait avant que je n'insère dans mon Workbook la macro événementielle ci dessus. Quand je la lance, j'ai maintenant le message :
"Erreur d"exécution 13: incompatibilité de type" et le débogage me met en jaune la ligne "If Target.Address="$A$1" And Target.Value<>"" Then " qui n'a rien à voir avec ma macro "liste".
Soit, si j'insère le code de ma macro "liste" à la place de MsgBox "test", ça devrait fonctionner, et bien non !
Voila cette macro :
"
Sheets("split").Range("P2:R2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Dim x As Range
Dim y As Range
Set y = Sheets("split").Range("A1")
Sheets("FFPOS1").Select
For Each x In Sheets("FFPOS1").Range("J2:" & Range("J65536").End(xlUp).Address)
If x = "VMOB" And x.Offset(0, -5) = y Then
Cells(x.Row, 11).Copy (Sheets("split").Range("P65000").End(xlUp).Offset(1, 0))
Cells(x.Row, 16).Copy (Sheets("split").Range("R65000").End(xlUp).Offset(1, 0))
Cells(x.Row, 64).Copy (Sheets("split").Range("Q65000").End(xlUp).Offset(1, 0))
End If
Next
Sheets("split").Activate
Range("Q1").Sort _
Key1:=Range("Q1"), _
Order1:=xlDescending, _
Header:=xlYes
"
Ici, même message d'erreur.
J'ai donc essayé ceci :
"
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$B$6" And Target.Value <> "" Then
Call liste
End If
End Sub
"
Et même résultat !
Yaurait-il un super correcteur dans le secteur ?
Merci beaucoup car là, je coince sérieusement
A+
Teter