Bonjour ,
Voilà des jours que je me casse la tête sur une macro .
Généralement, je trouve les infos sur le net mais la je sèche .
Mon problème est simple, j'ai un classeur avec plusieurs feuils nommées :
- Suivi Feuil
- Symbole
- Page 1
- Page 2
- Page 3
- Page 4
etc...
L'utilisateur peut ajouter des Pages (5, 6, etc) celle ci s'incrémente à la suite.
Il peut aussi en supprimer (par exemple là 3) mais le problème c'est que l'ordre devient :
- Suivi Feuil
- Symbole
- Page 1
- Page 2
- Page 4
Je veux donc renommer mes onglets pour avoir
- Suivi Feuil
- Symbole
- Page 1
- Page 2
- Page 4 => qui deviendrais Page 3
Si on n'avait supprimer la page 2
- Suivi Feuil
- Symbole
- Page 1
- Page 3 => qui deviendrait Page 2
- Page 4 => qui deviendrait Page 3
Le nombre de page est aléatoire.
Les feuils Suivi Feuil et Symbole ne doivent pas être renommées.
Ma macro pour renommer est la suivante, elle à pour effet de renommer TOUS les onglets :
Sub Renomme ()
'renome les onglets en Page 1, 2, 3 etc...
i = 0
For Each sh In ThisWorkbook.Sheets
i = i + 1
sh.Name = "Page " & Trim(Str(i))
Next sh
Next
End Sub
J'ai essayé de mettre :
If Sheets(sh).select <>"Suivi Feuil" or "Symbole" Then
Renomme
else
end if
end sub
Avec If Sheets(sh).Name <>"Suivi Feuil" or "Symbole" Then
et moultes fioritures sans succès.
Une âme charitable à t-elle une réponse à mon problème ?
Voilà des jours que je me casse la tête sur une macro .
Généralement, je trouve les infos sur le net mais la je sèche .
Mon problème est simple, j'ai un classeur avec plusieurs feuils nommées :
- Suivi Feuil
- Symbole
- Page 1
- Page 2
- Page 3
- Page 4
etc...
L'utilisateur peut ajouter des Pages (5, 6, etc) celle ci s'incrémente à la suite.
Il peut aussi en supprimer (par exemple là 3) mais le problème c'est que l'ordre devient :
- Suivi Feuil
- Symbole
- Page 1
- Page 2
- Page 4
Je veux donc renommer mes onglets pour avoir
- Suivi Feuil
- Symbole
- Page 1
- Page 2
- Page 4 => qui deviendrais Page 3
Si on n'avait supprimer la page 2
- Suivi Feuil
- Symbole
- Page 1
- Page 3 => qui deviendrait Page 2
- Page 4 => qui deviendrait Page 3
Le nombre de page est aléatoire.
Les feuils Suivi Feuil et Symbole ne doivent pas être renommées.
Ma macro pour renommer est la suivante, elle à pour effet de renommer TOUS les onglets :
Sub Renomme ()
'renome les onglets en Page 1, 2, 3 etc...
i = 0
For Each sh In ThisWorkbook.Sheets
i = i + 1
sh.Name = "Page " & Trim(Str(i))
Next sh
Next
End Sub
J'ai essayé de mettre :
If Sheets(sh).select <>"Suivi Feuil" or "Symbole" Then
Renomme
else
end if
end sub
Avec If Sheets(sh).Name <>"Suivi Feuil" or "Symbole" Then
et moultes fioritures sans succès.
Une âme charitable à t-elle une réponse à mon problème ?