barbenault
XLDnaute Nouveau
Bonjour à tous,
Je fais face à mes limites alors que je cherche à renommer des feuilles d'un classeur, je vous expose mon problème.
Pour commencer, je souhaite renommer les feuilles de mon classeur. Chaque feuille est renommée à partir de la cellule A1.
Voici mon code :
Je recontre un problème dans les deux cas de figures suivants :
- si la cellule A1 d'une feuille est vide, j'ai un message "400" (les autres feuilles sont bien renommées)
- si le nom de la feuille existe déjà
Par conséquent, j'aimerais introduire une condition à l'éxecution de la macro :
- Si A1 <> "" alors la macro s'éxécute
- Si le nom existe déjà message d'erreur " le nom existe déjà"
Pourriez vous m'aider svp?
Merci d'avance
(en pj, le fichier pour tester mon code)
Je fais face à mes limites alors que je cherche à renommer des feuilles d'un classeur, je vous expose mon problème.
Pour commencer, je souhaite renommer les feuilles de mon classeur. Chaque feuille est renommée à partir de la cellule A1.
Voici mon code :
Code:
Option Explicit
Sub RenommeOngletsNomCelluleA1()
Dim Feuille As Worksheet
For Each Feuille In Worksheets
Feuille.Name = Feuille.Range("A1").Value
Next Feuille
End Sub
Je recontre un problème dans les deux cas de figures suivants :
- si la cellule A1 d'une feuille est vide, j'ai un message "400" (les autres feuilles sont bien renommées)
- si le nom de la feuille existe déjà
Par conséquent, j'aimerais introduire une condition à l'éxecution de la macro :
- Si A1 <> "" alors la macro s'éxécute
- Si le nom existe déjà message d'erreur " le nom existe déjà"
Pourriez vous m'aider svp?
Merci d'avance
(en pj, le fichier pour tester mon code)