Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Renommer onglet

Renommer onglet

14 réponses
Avatar
JRC-QSA
Bonjour à toutes/tous.
Dans une macro, je crée une nouvelle feuille.
Y'a-t-il une boite de dialogue genre "rename thumbnail" à appeler dans cette
macro pour obliger l'utilisateur à donner un nom immédiatement à cette
feuille nouvelle et quelle en est la syntaxe ?
Merci d'avance.
JRC
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
garnote
Bonsoir,

Ceci te convient-il ?

Sub Essai()
Sheets.Add
ActiveSheet.Name = Application.InputBox(Prompt:="Écrire le nouveau nom", _
Title:="Nommer une feuille", Type:=2)
End Sub


Serge


"JRC-QSA" a écrit dans le message de news:

Bonjour à toutes/tous.
Dans une macro, je crée une nouvelle feuille.
Y'a-t-il une boite de dialogue genre "rename thumbnail" à appeler dans cette
macro pour obliger l'utilisateur à donner un nom immédiatement à cette
feuille nouvelle et quelle en est la syntaxe ?
Merci d'avance.
JRC


Avatar
michdenis
Sheets.Add.Name = Application.InputBox(Prompt:="Écrire le nouveau nom", _
Title:="Nommer une feuille", Type:=2)




"garnote" a écrit dans le message de news:

Bonsoir,

Ceci te convient-il ?

Sub Essai()
Sheets.Add
ActiveSheet.Name = Application.InputBox(Prompt:="Écrire le nouveau
nom", _
Title:="Nommer une feuille", Type:=2)
End Sub


Serge


"JRC-QSA" a écrit dans le message de
news:

Bonjour à toutes/tous.
Dans une macro, je crée une nouvelle feuille.
Y'a-t-il une boite de dialogue genre "rename thumbnail" à appeler dans
cette
macro pour obliger l'utilisateur à donner un nom immédiatement à cette
feuille nouvelle et quelle en est la syntaxe ?
Merci d'avance.
JRC


Avatar
garnote
Tentative pour rendre la chose plus souple.
Mais je me méfie, michdenis est dans les parages ;-)

Sub Essai()
Sheets.Add
10:
nom = Application.InputBox(Prompt:="Écrire le nouveau nom", _
Title:="Nommer une feuille", Type:=2)
If nom = False Or nom = "" Then Exit Sub
For Each F In ThisWorkbook.Worksheets
If F.Name = nom Then
rep = MsgBox("Le nom " & nom & " existe déjà. Voulez-vous entrer un autre nom ?", vbYesNo)
If rep = vbYes Then
GoTo 10
Else
Exit Sub
End If
End If
Next F
ActiveSheet.Name = nom
End Sub

Serge



"garnote" a écrit dans le message de news:
Bonsoir,

Ceci te convient-il ?

Sub Essai()
Sheets.Add
ActiveSheet.Name = Application.InputBox(Prompt:="Écrire le nouveau nom", _
Title:="Nommer une feuille", Type:=2)
End Sub


Serge


"JRC-QSA" a écrit dans le message de news:

Bonjour à toutes/tous.
Dans une macro, je crée une nouvelle feuille.
Y'a-t-il une boite de dialogue genre "rename thumbnail" à appeler dans cette
macro pour obliger l'utilisateur à donner un nom immédiatement à cette
feuille nouvelle et quelle en est la syntaxe ?
Merci d'avance.
JRC






Avatar
michdenis
C'est bien de vérifier le nom de la feuille n'est pas déjà utilisé
dans le classeur mais tu aurais pu vérifier aussi que :

la variable "nom" ne contient pas plus de 31 caractères

la variable "nom" ne contient pas les caractères interdits suivant:

"[" "]" ":" "" "/" "*" "?"

Et au lieu d'utiliser des goto 10,
il y a la boucle suivante :

Do


Loop Until ...

Worksheets.Add.Name = nom



"garnote" a écrit dans le message de news:

Tentative pour rendre la chose plus souple.
Mais je me méfie, michdenis est dans les parages ;-)

Sub Essai()
Sheets.Add
10:
nom = Application.InputBox(Prompt:="Écrire le nouveau nom", _
Title:="Nommer une feuille", Type:=2)
If nom = False Or nom = "" Then Exit Sub
For Each F In ThisWorkbook.Worksheets
If F.Name = nom Then
rep = MsgBox("Le nom " & nom & " existe déjà.
Voulez-vous entrer un autre nom ?", vbYesNo)
If rep = vbYes Then
GoTo 10
Else
Exit Sub
End If
End If
Next F
ActiveSheet.Name = nom
End Sub

Serge



"garnote" a écrit dans le message de news:

Bonsoir,

Ceci te convient-il ?

Sub Essai()
Sheets.Add
ActiveSheet.Name = Application.InputBox(Prompt:="Écrire le nouveau
nom", _
Title:="Nommer une feuille", Type:=2)
End Sub


Serge


"JRC-QSA" a écrit dans le message de
news:

Bonjour à toutes/tous.
Dans une macro, je crée une nouvelle feuille.
Y'a-t-il une boite de dialogue genre "rename thumbnail" à appeler dans
cette
macro pour obliger l'utilisateur à donner un nom immédiatement à cette
feuille nouvelle et quelle en est la syntaxe ?
Merci d'avance.
JRC






Avatar
michdenis
ET j'oubliais :

Si tu utilisais : Type:=3 le nom de la feuille pourrait
être sois une chaîne numérique ou alphanumérique.


"garnote" a écrit dans le message de news:

Tentative pour rendre la chose plus souple.
Mais je me méfie, michdenis est dans les parages ;-)

Sub Essai()
Sheets.Add
10:
nom = Application.InputBox(Prompt:="Écrire le nouveau nom", _
Title:="Nommer une feuille", Type:=2)
If nom = False Or nom = "" Then Exit Sub
For Each F In ThisWorkbook.Worksheets
If F.Name = nom Then
rep = MsgBox("Le nom " & nom & " existe déjà.
Voulez-vous entrer un autre nom ?", vbYesNo)
If rep = vbYes Then
GoTo 10
Else
Exit Sub
End If
End If
Next F
ActiveSheet.Name = nom
End Sub

Serge



"garnote" a écrit dans le message de news:

Bonsoir,

Ceci te convient-il ?

Sub Essai()
Sheets.Add
ActiveSheet.Name = Application.InputBox(Prompt:="Écrire le nouveau
nom", _
Title:="Nommer une feuille", Type:=2)
End Sub


Serge


"JRC-QSA" a écrit dans le message de
news:

Bonjour à toutes/tous.
Dans une macro, je crée une nouvelle feuille.
Y'a-t-il une boite de dialogue genre "rename thumbnail" à appeler dans
cette
macro pour obliger l'utilisateur à donner un nom immédiatement à cette
feuille nouvelle et quelle en est la syntaxe ?
Merci d'avance.
JRC






Avatar
garnote
Prévoir toutes les erreurs possibles avec des
messages personnalisés et sans GoTo (ouach).
Personnellement, je ne suis pas sorti de l'auberge !

Je vais me contenter de retourner à mes divagations
mathématiques ;-)

Serge


"michdenis" a écrit dans le message de news:
ET j'oubliais :

Si tu utilisais : Type:=3 le nom de la feuille pourrait
être sois une chaîne numérique ou alphanumérique.


"garnote" a écrit dans le message de news:

Tentative pour rendre la chose plus souple.
Mais je me méfie, michdenis est dans les parages ;-)

Sub Essai()
Sheets.Add
10:
nom = Application.InputBox(Prompt:="Écrire le nouveau nom", _
Title:="Nommer une feuille", Type:=2)
If nom = False Or nom = "" Then Exit Sub
For Each F In ThisWorkbook.Worksheets
If F.Name = nom Then
rep = MsgBox("Le nom " & nom & " existe déjà.
Voulez-vous entrer un autre nom ?", vbYesNo)
If rep = vbYes Then
GoTo 10
Else
Exit Sub
End If
End If
Next F
ActiveSheet.Name = nom
End Sub

Serge



"garnote" a écrit dans le message de news:

Bonsoir,

Ceci te convient-il ?

Sub Essai()
Sheets.Add
ActiveSheet.Name = Application.InputBox(Prompt:="Écrire le nouveau
nom", _
Title:="Nommer une feuille", Type:=2)
End Sub


Serge


"JRC-QSA" a écrit dans le message de
news:

Bonjour à toutes/tous.
Dans une macro, je crée une nouvelle feuille.
Y'a-t-il une boite de dialogue genre "rename thumbnail" à appeler dans
cette
macro pour obliger l'utilisateur à donner un nom immédiatement à cette
feuille nouvelle et quelle en est la syntaxe ?
Merci d'avance.
JRC










Avatar
Jacky
Faut dire que tu l'as chatouillé ...Denis
;o)))))

--
Salutations
JJ


"garnote" a écrit dans le message de news:

Prévoir toutes les erreurs possibles avec des
messages personnalisés et sans GoTo (ouach).
Personnellement, je ne suis pas sorti de l'auberge !

Je vais me contenter de retourner à mes divagations
mathématiques ;-)

Serge


"michdenis" a écrit dans le message de news:

ET j'oubliais :

Si tu utilisais : Type:=3 le nom de la feuille pourrait
être sois une chaîne numérique ou alphanumérique.


"garnote" a écrit dans le message de news:

Tentative pour rendre la chose plus souple.
Mais je me méfie, michdenis est dans les parages ;-)

Sub Essai()
Sheets.Add
10:
nom = Application.InputBox(Prompt:="Écrire le nouveau nom", _
Title:="Nommer une feuille", Type:=2)
If nom = False Or nom = "" Then Exit Sub
For Each F In ThisWorkbook.Worksheets
If F.Name = nom Then
rep = MsgBox("Le nom " & nom & " existe déjà.
Voulez-vous entrer un autre nom ?", vbYesNo)
If rep = vbYes Then
GoTo 10
Else
Exit Sub
End If
End If
Next F
ActiveSheet.Name = nom
End Sub

Serge



"garnote" a écrit dans le message de news:

Bonsoir,

Ceci te convient-il ?

Sub Essai()
Sheets.Add
ActiveSheet.Name = Application.InputBox(Prompt:="Écrire le nouveau
nom", _
Title:="Nommer une feuille", Type:=2)
End Sub


Serge


"JRC-QSA" a écrit dans le message de
news:

Bonjour à toutes/tous.
Dans une macro, je crée une nouvelle feuille.
Y'a-t-il une boite de dialogue genre "rename thumbnail" à appeler dans
cette
macro pour obliger l'utilisateur à donner un nom immédiatement à cette
feuille nouvelle et quelle en est la syntaxe ?
Merci d'avance.
JRC














Avatar
LSteph
Bonjour,

Au début de ta macro une variable pour stocker le nom
un inputbox peut faire l'affaire
tant qu'il n'a pas donné un nom valide tu ne crée pas la feuille.

@+

--
lSteph


JRC-QSA a écrit :
Bonjour à toutes/tous.
Dans une macro, je crée une nouvelle feuille.
Y'a-t-il une boite de dialogue genre "rename thumbnail" à appeler dans cette
macro pour obliger l'utilisateur à donner un nom immédiatement à cette
feuille nouvelle et quelle en est la syntaxe ?
Merci d'avance.
JRC


Avatar
LSteph
... inputbox
... et quelle en est la syntaxe ?







Elle est comme presque toujours fort bien expliquée dans l'aide
on ne va donc pas remettre en moins bien que dans le texte.

LSteph a écrit :
Bonjour,

Au début de ta macro une variable pour stocker le nom
un inputbox peut faire l'affaire
tant qu'il n'a pas donné un nom valide tu ne crée pas la feuille.

@+

--
lSteph


JRC-QSA a écrit :
Bonjour à toutes/tous.
Dans une macro, je crée une nouvelle feuille.
Y'a-t-il une boite de dialogue genre "rename thumbnail" à appeler dans
cette macro pour obliger l'utilisateur à donner un nom immédiatement à
cette feuille nouvelle et quelle en est la syntaxe ?
Merci d'avance.
JRC




Avatar
JRC-QSA
Bonjour. J'ai résolu mon problème et en plus je me suis instruit. Merci pour
ces réponses. JRC.


"LSteph" a écrit :

Bonjour,

Au début de ta macro une variable pour stocker le nom
un inputbox peut faire l'affaire
tant qu'il n'a pas donné un nom valide tu ne crée pas la feuille.

@+

--
lSteph


JRC-QSA a écrit :
> Bonjour à toutes/tous.
> Dans une macro, je crée une nouvelle feuille.
> Y'a-t-il une boite de dialogue genre "rename thumbnail" à appeler dans cette
> macro pour obliger l'utilisateur à donner un nom immédiatement à cette
> feuille nouvelle et quelle en est la syntaxe ?
> Merci d'avance.
> JRC



1 2