Discussion :

[MAHB34]

Bonsoir,

J'ai une erreur sur ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[BlueMonkey]

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)

[MAHB34]

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".

[SfJ5Rpw8]

Tu écris " fiche type" en A1..

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

[MAHB34]

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

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")?

[Marc-L]

Bonsoir.

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

Sinon en ajoutant le n° de la feuille …

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Une autre astuce sans n° visible :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !