Bonjour,
J'ai un petit souci.
J'utilise une macro qui change le nom de mes feuilles suivant la valeur d'une cellule. (Macro débloqué par Pierrot93)
Mais dans le cas ou j'ai deux feuilles avec le même nom, cela ne fonctionne pas (logique).
Voici la macro :
Sub NomFeuille()
Dim Sh As Worksheet
For Each Sh In Sheets
If Sh.Name <> "Recap" And Not IsEmpty(Sh.Range("M5")) Then
Sh.Name = Split(Sh.Range("M5"), "-")(UBound(Split(Sh.Range("M5"), "-")))
End If
Next
End Sub
J'ai lu pas mal de discussions pour tester l'existence d'une feuille et récupérer son nom sur votre forum et sur d'autres sites mais ma problématique est différente et je n'ai pas les connaissances pour adapter.
Tous les posts reposent sur un nom de feuille connu or j'ai besoin d'un cas général d'où la macro précédente.
Je souhaite que si la feuille porte le même nom qu'une autre (après le split) qu'elle soit renommée suivi du caractère 2 par exemple. Et je vois pas comment manipulé mes feuilles sans connaître leurs noms au préalable.
Merci.
J'ai un petit souci.
J'utilise une macro qui change le nom de mes feuilles suivant la valeur d'une cellule. (Macro débloqué par Pierrot93)
Mais dans le cas ou j'ai deux feuilles avec le même nom, cela ne fonctionne pas (logique).
Voici la macro :
Sub NomFeuille()
Dim Sh As Worksheet
For Each Sh In Sheets
If Sh.Name <> "Recap" And Not IsEmpty(Sh.Range("M5")) Then
Sh.Name = Split(Sh.Range("M5"), "-")(UBound(Split(Sh.Range("M5"), "-")))
End If
Next
End Sub
J'ai lu pas mal de discussions pour tester l'existence d'une feuille et récupérer son nom sur votre forum et sur d'autres sites mais ma problématique est différente et je n'ai pas les connaissances pour adapter.
Tous les posts reposent sur un nom de feuille connu or j'ai besoin d'un cas général d'où la macro précédente.
Je souhaite que si la feuille porte le même nom qu'une autre (après le split) qu'elle soit renommée suivi du caractère 2 par exemple. Et je vois pas comment manipulé mes feuilles sans connaître leurs noms au préalable.
Merci.