Discussion :

[abouhossam]

bjr à tous
j'ai un problème et je cherche votre aide
le code:

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

et quand j'ajoute la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(1).Range("ae7").Value = Format(valeur, "0000") & "/" & Format(année, "00")

le macro s'execute sans arrêt.
veuillez m'aider svp.
merci

[pgz]

Bonjour.

Ta procédure est déclenchée par l'évènement 'Change' de la cellule AE7 de la feuille 1.
SI dans cette procédure tu modifies la valeur de cette cellule, tu appelles la procédure qui change la valeur ce qui appelle la procédure, ... sans fin.

Pour changer la valeur sans déclencher la procédure évènementielle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.EnableEvents = False
MaCellule = ...
Application.EnableEvents = True

PGZ

[abouhossam]

merci PGZ
ça marche très bien.
merci