bjr à tous
j'ai un problème et je cherche votre aide
le code:
et quand j'ajoute la ligne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Private Sub Worksheet_Change(ByVal Target As Range) Dim fl As Worksheet Dim i As Integer Dim valeur Dim année valeur = Left(Worksheets(1).Range("ae7").Value, InStr(Worksheets(1).Range("ae7").Value, "/") - 1) année = Mid(Worksheets(1).Range("ae7").Value, InStr(Worksheets(1).Range("ae7").Value, "/") + 1) If Target = Worksheets(1).Range("ae7") Then For Each fl In ActiveWorkbook.Worksheets i = i + 1 'incrementation de i pour le parcour de chaque feuille If i > 1 And fl.Name <> "Récap" And fl.Name <> "suiviWP" Then fl.Range("ae7") = Format(valeur + i - 1, "0000") & "/" & Format(année, "00") 'on ajoute i-1 a la valeur de la cellule ("ae7") de la feuil1 End If Next fl End If End Sub
le macro s'execute sans arrêt.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Worksheets(1).Range("ae7").Value = Format(valeur, "0000") & "/" & Format(année, "00")
veuillez m'aider svp.
merci
Partager