A
Audrey
Guest
Bonjour le forum,
Voilà dans mon appli j'ai un code ce n'est pas moi qui l'ai fais mais quelqu'un qui m'a aidé dans un autre fil.
Mais le problème et que maintenant, je voudrais le reproduire pour une autre application et je sais pas comment faire. Quelqu'un pourrait m'aider??
D'avance, merci beaucoup.
PbNomFeuille:
i = 0
Do
i = i + 1
ShExist = False
For Each Sh In Worksheets
If Sh.Name = TextBox2 & '(' & i & ')' Then ShExist = True
Next Sh
Loop While ShExist
ActiveSheet.Name = TextBox2 & '(' & i & ')'
Resume Next
Unload menu
End Sub
Voilà dans mon appli j'ai un code ce n'est pas moi qui l'ai fais mais quelqu'un qui m'a aidé dans un autre fil.
Mais le problème et que maintenant, je voudrais le reproduire pour une autre application et je sais pas comment faire. Quelqu'un pourrait m'aider??
D'avance, merci beaucoup.
PbNomFeuille:
i = 0
Do
i = i + 1
ShExist = False
For Each Sh In Worksheets
If Sh.Name = TextBox2 & '(' & i & ')' Then ShExist = True
Next Sh
Loop While ShExist
ActiveSheet.Name = TextBox2 & '(' & i & ')'
Resume Next
Unload menu
End Sub