Evènement Workbook_SheetChange

[m@tix]

Bonjour,

J'ai bloque sur un évènement Workbook_SheetChange. Voici la partie du code qui me pose problème :

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal target As Range)


    'Only if the sheet "test" exists

    On Error Resume Next
    ThisWorkbook.Sheets("test").Visible = True
    If Err.Number = 0 Then
        
        
        If Cells(1, 1) = target Then
        
            If Cells(1, 1).Value = 3 Then
        
            
            For i = 9 To ActiveWorkbook.ActiveSheet.Range("f" & Rows.Count).End(xlUp).Row
            

                ActiveWorkbook.ActiveSheet.Cells(i, 9) = Cells(i, 7).Value                              

            Next i

Après avoir exécute une fois la ligne

ActiveWorkbook.ActiveSheet.Cells(i, 9) = Cells(i, 7).Value

On revient à chaque fois au début de l'évènement au lieu de passer à

Next i

Pourquoi, et comment y remédier ?

Merci d'avance.

 

[herve62]

Re : Evènement Workbook_SheetChange

Bonsoir
Peut-être faudrait-il connaitre le contexte complet ???

On revient à chaque fois au début de l'évènement au lieu de passer à

Quel évenement ? il y a 3 IF
Met ta Sub entière et les données de ta feuille "Test" ca ira certainement mieux pour répondre !!!!


L'art divinatoire n'est pas encore enseigné chez XLD...............

 

[klin89]

Re : Evènement Workbook_SheetChange

Bonjour herve62, m@tix
Bonjour à tous,

La dite instruction redéclenche l'événement Change, c'est normal.

Change d'événement, essaie avec Workbook_SheetSelectionChange

Klin89

 

[ROGER2327]

Re : Evènement Workbook_SheetChange

Bonsoir à tous

(...)
Après avoir exécute une fois la ligne

ActiveWorkbook.ActiveSheet.Cells(i, 9) = Cells(i, 7).Value

On revient à chaque fois au début de l'évènement au lieu de passer à

Next i

Pourquoi, et comment y remédier ?
(...)

Pourquoi ? Parce que Cells(i, 7).Value modifie la feuille, et, par conséquent, la procédure Workbook_SheetChange est déclenchée.

Comment y remédier ? Probablement en interdisant l'exécution des évènements grâce à la propriété EnableEvents de l'application. Pour mettre cela en œuvre correctement, il vaut mieux donner une vue globale de la procédure que quelques lignes.​

ROGER2327
#5576

Dimanche 8 Pédale 139 (La machine à inspirer l’amour - fête Suprême Tierce)
12 Ventôse An CCXX, 7,3350h - orme
2012-W09-5T17:36:14Z

 

[m@tix]

Re : Evènement Workbook_SheetChange

Bonsoir,

Merci pour vos réponses ! J'ai finalement pu m'en sortir grâce à cette propriété EnableEvents. 🙂

Bonne soirée !