Fredrennes
XLDnaute Junior
Bonjour,
J'ai un bout de code qui est le suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For Each sht In ActiveWorkbook.Worksheets
Sheets(sht.name).name = Sheets(sht.name).["Agence_"&B2]
Next
End Sub
Ce bout de code me permet de nommer chaque feuille en fonction de la saisie dans la cellule B2. Mon problème est que ma macro s'applique à toutes les feuilles du classeur (normal puisque je précise dans le code for each sht)....je souhaiterais que la dernière feuille du classeur ne soit pas soumise à cette macro pour lui affecter un nom définitif, comment faire ? Actuellement je nomme cette feuille mais ce nom est modifié qq secondes plus tard sous l'effet de la macro...
Merci beaucoup
Cordialement
J'ai un bout de code qui est le suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For Each sht In ActiveWorkbook.Worksheets
Sheets(sht.name).name = Sheets(sht.name).["Agence_"&B2]
Next
End Sub
Ce bout de code me permet de nommer chaque feuille en fonction de la saisie dans la cellule B2. Mon problème est que ma macro s'applique à toutes les feuilles du classeur (normal puisque je précise dans le code for each sht)....je souhaiterais que la dernière feuille du classeur ne soit pas soumise à cette macro pour lui affecter un nom définitif, comment faire ? Actuellement je nomme cette feuille mais ce nom est modifié qq secondes plus tard sous l'effet de la macro...
Merci beaucoup
Cordialement