Nom de feuille

Bonsoir,

J'ai une erreur sur ce code:

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If (B4 = "") Then ActiveSheet.Name = "Fiche Vierge" Else ActiveSheet.Name = Range("B4").Value End If End Sub

---

Si la cellule B4 est vide le nom de la feuille doit être "fiche vierge" sinon le nom de la feuille est la valeur de la cellule B4! L'erreur doit etre sur la ligne 3 je pense.

Bonsoir,

Lorsque l'erreur se produit, n'y a-t-il pas déjà une autre feuille qui porte le nom "Fiche vierge" ?
Si le nom de feuille est déjà utilisé, c'est probablement l'origine de l'erreur. (les noms de feuilles doivent être unique)

Effectivement c'est le doublon des noms de feuille qui crée le bug.

Mais alors comment faire :

- Pour avoir une feuille nommé "Fiche type" verrouillé avec ce nom mais avec ce code.

Pour être plus clair j'ai une fiche type ou A1 est vide est du coup le nom de la feuille devient "Fiche vierge" et je voudrait que juste pour cette feuille le nom soit verrouillé à "Fiche type".

Tu écris " fiche type" en A1..

Ou tu rajoute un test sur le nom de la feuille..

C'est justement se qui vient de me traverser l'esprit :mouarf:

Mettre "Fiche type" dans A1 ne m’intéresse pas car je voudrait garder la feuille vide.

Mais est il possible de faire un SI(ET(B4="";nom_de_la_feuille<>"Fiche type")?

Bonsoir.

Il y a déjà une erreur en ligne n°2 !

Sinon en ajoutant le n° de la feuille …

Code:

---

1 2	If [B4] = "" Then ActiveSheet.Name = "Fiche vierge " & ActiveSheet.Index

---

Une autre astuce sans n° visible :

Code:

---

1 2	If [B4] = "" Then ActiveSheet.Name = "Fiche vierge" & String(ActiveSheet.Index, 32)

---

________________________________________________________________________
- A ton avis, quel est le plus grand mal de notre époque : l'ignorance ou l'indifférence ?
- J' sais pas et j' m'en fous !