Ajouter des feuilles via une TextBox [Résolu]

Messages postés
13
Date d'inscription
jeudi 19 mars 2009
Statut
Membre
Dernière intervention
3 avril 2009
- - Dernière réponse : CryoCid
Messages postés
13
Date d'inscription
jeudi 19 mars 2009
Statut
Membre
Dernière intervention
3 avril 2009
- 2 avril 2009 à 10:00
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!
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 206 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cnt
Messages postés
672
Date d'inscription
mercredi 22 janvier 2003
Statut
Membre
Dernière intervention
2 juin 2016
1
0
Merci
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
Commenter la réponse de cs_loulou69
Messages postés
13
Date d'inscription
jeudi 19 mars 2009
Statut
Membre
Dernière intervention
3 avril 2009
0
Merci
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
Commenter la réponse de CryoCid
Messages postés
13
Date d'inscription
jeudi 19 mars 2009
Statut
Membre
Dernière intervention
3 avril 2009
0
Merci
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
Commenter la réponse de CryoCid
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010
0
Merci
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
Commenter la réponse de cnt
Messages postés
13
Date d'inscription
jeudi 19 mars 2009
Statut
Membre
Dernière intervention
3 avril 2009
0
Merci
Oki je te remercie pour cette précision, et ton code fonctionne nikel.

Bonne journée et encore merci.
Commenter la réponse de CryoCid