Ajouter des feuilles via une TextBox [Résolu]

Signaler
Messages postés
13
Date d'inscription
jeudi 19 mars 2009
Statut
Membre
Dernière intervention
3 avril 2009
-
Messages postés
13
Date d'inscription
jeudi 19 mars 2009
Statut
Membre
Dernière intervention
3 avril 2009
-
Bonjours à tous,

J'ai un petit problème pour ajouter des feuilles suivant le nombre inscrit dans une TextBox :

J'ai ma TextBox qui demande le nombre de participant (c'est pour faire des classements), et  je voudrais ajouter autant de feuille qu'il y a de participant.

exemple : l'utilisateur inscrit 10 dans la TextBox, j'ai 10 feuilles qui se crée

Je vous remercie pour votre aide.
Bonne journée!

6 réponses

Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010

salut
une autre façon d'ajouter des feuilles

for i = 1 To CInt(Text1.Txt)
    Sheets.Add
    ActiveSheet.Name = Cstr(i)
Next i

CNTJC
Messages postés
672
Date d'inscription
mercredi 22 janvier 2003
Statut
Membre
Dernière intervention
2 juin 2016
1
bonjour

ou est le problème dans le code?

récupérer la valeur saisie dans le textbox
créer des feuilles vides
créer des feuilles sur un certain modèle
Messages postés
13
Date d'inscription
jeudi 19 mars 2009
Statut
Membre
Dernière intervention
3 avril 2009

Le truc c'est que je sais récupérer la valeur d'une textbox, j'arrive à créer ou copier des feuilles mais je sais pas fusionner les deux ^^

Pour l'instant j'ai fait ça :

Sheets("Feuil1").Copy Before:=Sheets(1)
Sheets("Feuil1").Copy Before:=Sheets(2)
Sheets("Feuil1").Copy Before:=Sheets(3)
Sheets("Feuil1").Copy Before:=Sheets(4)
Sheets("Feuil1").Copy Before:=Sheets(5)
Sheets("Feuil1 (2)").Name = "1"
Sheets("Feuil1 (3)").Name = "2"
Sheets("Feuil1 (4)").Name = "3"
Sheets("Feuil1 (5)").Name = "4"
Sheets("Feuil1 (6)").Name = "5"

Mais j'avais envie de rajouter une textbox pour pouvoir choisir le nombre précis de participant.

Je te remercie loulou
Messages postés
13
Date d'inscription
jeudi 19 mars 2009
Statut
Membre
Dernière intervention
3 avril 2009

Salut CNT,

Excuse moi mais j'ai pas tout compris se que tu as mis, j'ai que quelques bases ;-)

Donc en fait c'est "CInt(Text1.Txt)" et "Cstr(i)" que je ne connais pas.
Quelqu'un peut m'expliquer un peu car les fiches d'aides sur Excel sont pas très explicites ^^

Je vous remercie
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010

Salut CryoCid

pour "CInt(Text1.Txt)", cela représente la conversion d'une valeur de type "Chaine de caractères" (ou String) en valeur de type "Entier" (Integer) d'où ==> Cint
et pour "Cstr(i)", c'est l'inverse de "Cint"

Tu peux trouver bien d'autres fonctions dans l'explorateur d'objets et dans la bibliothèque de VBA.

bonne suite
Messages postés
13
Date d'inscription
jeudi 19 mars 2009
Statut
Membre
Dernière intervention
3 avril 2009

Oki je te remercie pour cette précision, et ton code fonctionne nikel.

Bonne journée et encore merci.