Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Créer une feuille nomée en vba avec variable

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

spitfire378

XLDnaute Occasionnel
Bonjour a tous

Alors tout d'abord voici mon code :

Code: 
Sub nouveauplanning()

Dim retour As String
Dim retour2 As String

retour = InputBox("Entrez la date pour laquelle vous souhaitez générer un planning avec la syntaxe JJ/MM/AAAA", "", "", 100, 100)
retour2 = InputBox("Entrez le nom du moi en toutes lettres suivi de l'année (ex : septembre 2008)", "", "", 100, 100)

Sheets.Add(after:=Sheets(Sheets.Count)).Name = retour2

End Sub

Mais voila ca bug a la derniere ligne

Code: 
Sheets.Add(after:=Sheets(Sheets.Count)).Name = retour2

Je ne peux pas donner a ma feuille le nom recueilli dans la variable retour2. Avez vous une idée? Merci d'avance
 
Trier par date Trier par votes
Re : Créer une feuille nomée en vba avec variable

Bonjour,

J'ai testé le code : pas de problème. Mais il y a forcément bug si la feuille existe déjà. Pour l'éviter, écrire avant la création :

On Error Resume Next

A+
 
Vote positif 0 Vote négatif
Re : Créer une feuille nomée en vba avec variable

En effet, encore une fois je n'avais pas correctement regardé..

J'ai essayé d'améliorer ce code en testant la présence de la feuille :

Code: 
Sub nouveauplanning()

Dim retour As String
Dim retour2 As String
Dim WS As Worksheet
Dim WSname As String

retour = InputBox("Entrez la date pour laquelle vous souhaitez générer un planning avec la syntaxe MM/AAAA", "", "", 100, 100)
retour2 = InputBox("Entrez le nom à donner a la feuille (ex : septembre 2008)", "", "", 100, 100)

For Each WS In Worksheets
If WS.Name = retour2 Then
MsgBox ("La feuille existe deja")
Else
Sheets.Add(after:=Sheets(Sheets.Count)).Name = retour2
End If
Next

    
End Sub

Mais ca ne marche pas, avez vous une idée?
 
Vote positif 0 Vote négatif
Re : Créer une feuille nomée en vba avec variable

Re,

Essayez plutôt :

Code: 
For Each WS In Worksheets
If WS.Name = retour2 Then
MsgBox ("La feuille existe deja")
Exit Sub
End If
Next
Sheets.Add(after:=Sheets(Sheets.Count)).Name = retour2

A+
 
Vote positif 0 Vote négatif
Re : Créer une feuille nomée en vba avec variable

job75 à dit:
Re,

Essayez plutôt :

Code: 
For Each WS In Worksheets
If WS.Name = retour2 Then
MsgBox ("La feuille existe deja")
Exit Sub
End If
Next
Sheets.Add(after:=Sheets(Sheets.Count)).Name = retour2

A+
Cliquez pour agrandir...

Arf ca ne marche pas

J'au aussi un autre probleme ;

Code: 
retour = InputBox("Entrez la date pour laquelle vous souhaitez générer un planning avec la syntaxe MM/AAAA", "", "", 100, 100)

J'aimerai pouvoir tester que l'utilisateur entre la bonne syntaxe

J'ai essayé :

Code: 
retour = InputBox("Entrez la date pour laquelle vous souhaitez générer un planning avec la syntaxe MM/AAAA", "", "", 100, 100)
if retour.NumberFormat <> "00/0000" then
msgbox("Le format de la date entrée n'est pas correcte")

Mais la encore ca coince...
 
Vote positif 0 Vote négatif
Re : Créer une feuille nomée en vba avec variable

Bonjour,

spitfire378 à dit:
Arf ca ne marche pas
Cliquez pour agrandir...

Curieux, chez moi aucun problème.

A la place d'un message, peut-être serait-il mieux simplement d'activer la feuille :

Code: 
For Each WS In Worksheets
If WS.Name = retour2 Then
[COLOR="Red"]Sheets(retour2).Activate[/COLOR]
Exit Sub
End If
Next
Sheets.Add(after:=Sheets(Sheets.Count)).Name = retour2

Pour le contrôle du format, je regarde le problème.

A+
 
Vote positif 0 Vote négatif
Re : Créer une feuille nomée en vba avec variable

Bonjour à tous,

une remarque en passant : tu souhaites générer des feuilles avec un nom du type MM/AAAA ?
sais-tu que le "/" est un caractère interdit dans les noms de feuilles ?
 
Vote positif 0 Vote négatif
Re : Créer une feuille nomée en vba avec variable

Re,

spitfire378 à dit:
J'aimerai pouvoir tester que l'utilisateur entre la bonne syntaxe
Cliquez pour agrandir...

Essayez :

Code: 
retour = InputBox("Entrez la date pour laquelle vous souhaitez générer un planning avec la syntaxe MM/AAAA", "", "", 100, 100)
If Not retour Like "##/####" then
msgbox("Le format de la date entrée n'est pas correcte")

Il faudrait aussi ajouter que le nombre MM est inférieur ou égal à 12, je vous laisse le faire si vous le souhaitez.

A+
 
Vote positif 0 Vote négatif
Re : Créer une feuille nomée en vba avec variable

tototiti2008 à dit:
Bonjour à tous,

une remarque en passant : tu souhaites générer des feuilles avec un nom du type MM/AAAA ?
sais-tu que le "/" est un caractère interdit dans les noms de feuilles ?
Cliquez pour agrandir...

Le nom de ma feuille est lié a ma variable retour2 qui si l'utilisateur a correctement rempli la msgbox contient une date au format septembre 2008 par exemple.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
445
sylvanu
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
808
job75
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
8
  • Question Question
XL 2021 Nom de feuille vba
Réponses
5
Affichages
535
89ric
8
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
770
jeff1494
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
993
oguruma
C
  • Résolu(e)
XL 2019 Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne
Réponses
13
Affichages
2 K
Clemee61
C
M
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
539
Maxou69
M
  • Résolu(e)
Microsoft 365 Save qu'une feuille d'un classeur
Réponses
4
Affichages
803
Electron24
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
886
marie3107
M
L
  • Résolu(e)
XL 2021 Ouvrir une feuille en fonction d'une cellule
Réponses
5
Affichages
640
Lorenzio
L
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
703
loreak
L
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
814
M@xu3L
M
A
  • Question Question
XL 2010 Duplication d’onglets
Réponses
3
Affichages
582
Abnna
A
A
  • Question Question
XL 2016 Boucle sur sous répertoire fso.GetFolder SharePoint
Réponses
0
Affichages
962
Aldonanou
A
A
  • Question Question
XL 2010 Date dans fichier pour impression pdf
Réponses
2
Affichages
1 K
Aldonanou
A
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
828
Liner77
L
B
  • Résolu(e)
XL 2019 Tri onglets en fonction du contenu d'une cellule VBA
Réponses
9
Affichages
740
babie971
B
J
  • Question Question
XL 2021 enregistrer sous une feuille définie du classeur avec nom cellule
Réponses
5
Affichages
844
Eric KERGRESSE
E
O
  • Question Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
735
Oneida
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…