Bonjour,
J'ai bloque sur un évènement Workbook_SheetChange. Voici la partie du code qui me pose problème :
Après avoir exécute une fois la ligne
On revient à chaque fois au début de l'évènement au lieu de passer à
Pourquoi, et comment y remédier ?
Merci d'avance.
J'ai bloque sur un évènement Workbook_SheetChange. Voici la partie du code qui me pose problème :
Code:
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
Code:
ActiveWorkbook.ActiveSheet.Cells(i, 9) = Cells(i, 7).ValueOn revient à chaque fois au début de l'évènement au lieu de passer à
Code:
Next iPourquoi, et comment y remédier ?
Merci d'avance.