Macro pour renomé une feuille atomatique

ziopizza

XLDnaute Occasionnel

• 7 Septembre 2006

• #2

Re : Macro pour renomé une feuille atomatique

Bonjour flycyber,
Je joins un exemple qui copie une feuille du nom du client et ensuite pose le nom du client dans la feuille 2.
dans la feuille 2 se trouve une lixtbox pour faire le choix de la feuille client.
J'espere que tu pourras adapter ce petit fichier à ton problème.
Salut Yves

 

Pièces jointes

• exemple1.zip

  13.5 KB · Affichages: 52
• exemple1.zip

  13.5 KB · Affichages: 54
• exemple1.zip

  13.5 KB · Affichages: 56

Dernière édition: 7 Septembre 2006

Vote positif 0 Vote négatif

F

flycyber

Guest

• 7 Septembre 2006

• #3

Re : Macro pour renomé une feuille atomatique

Merci ziopizza

je fais bosser sur ton exemple pour voir ce que je peu adapter,ca a l'aire prometeur.je poste mon evolution quand j'avancerais😀

sinon si on peu m'aider pour le probleme Macro de menu deroulant qui qui ouvre la feuille du nom séléction😕

merci d'avance a tous

 

Vote positif 0 Vote négatif

F

flycyber

Guest

• 7 Septembre 2006

• #4

Re : Macro pour renomé une feuille atomatique

re salut ,
je m'excuse pour la macro de menu deroulant l'exmple de ziopizza contient tous ce qui faut 😛

seluement comme je suis un débutant (voir une bille) 😀 en macro un petit éclairsiment sur la macro qui suis m'aiderais volontier :

voila ce que je pense 😕

Sub creation()
'cette partie sert a faire apparaitre une fenetre ou saissir le nom client
Application.ScreenUpdating = False
Dim nom As String
Sheets("MODELE").Activate
nom = InputBox("Nom Client?", "Nom Client", , 10000, 100)
If nom = "" Then Exit Sub
'cette partie sert ranger le nom dans la list box(menu déroulant)
Range("MODELE!b1").Value = Range("MODELE!b1").Value + 1
pointeur = Range("MODELE!b1").Value + 1
'cette parti la sert a crée et renomé la feuille puis copier l'exemple qui ce trouve sur la feuille Modele
Sheets("MODELE").Copy After:=Sheets(2)
Sheets("MODELE (2)").Name = pointeur & " " & nom
Range("c5").Value = "Client " & nom
Sheets("feuil2").Cells(pointeur, 1) = pointeur & " " & nom
End Sub

ce que je ne comprend pas (presque tout hihihi 😛 ) c'est le chiffre qui apparait devant le nom dans la listbox et le chiffre en haut de chaque feuille
ca doit servir a ce repéré non

merci de confirmé mes pensées ou me redirigé vers la vérité

Merci a tous .

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 7 Septembre 2006

• #5

Re : Macro pour renomé une feuille atomatique

Re bonjour flycyber,
le chiffre qui apparait devant le nom sert à ne pas créer de feuille du même nom car excel refuse les feuilles qui se nomment de la même façon.
Quant au nombre qui est dans la cellule (b1) et le nombre qui s'incrémente à chaque fois que tu crées une feuille.
Ce nombre sert aussi à la variable pointeur pour placer le nom du client dans la liste feuille2.
De cette façon tu peux avoir plusieurs clients du même nom sans problème.
Bonsoir Yves

Ps: Il ya bien d'autre façons de procéder, comme tu débute en VBA essaye de bien comprendre ce code aprés tu pourras optimiser tous ça.

 

Dernière édition: 7 Septembre 2006

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 7 Septembre 2006

• #6

Re : Macro pour renomé une feuille atomatique

oups erreur

 

Dernière édition: 7 Septembre 2006

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 7 Septembre 2006

• #7

Re : Macro pour renomé une feuille atomatique

Re Re Bonsoir,
un peu plus d'explications,

Sub creation()
Application.ScreenUpdating = False 'désactivation de la mise à jour de l'écran peut accélérer l'exécution du code de la macro
Dim nom As String
Sheets("MODELE").Activate
nom = InputBox("Nom Client?", "Nom Client", , 10000, 100) ' la variable nom devient nom du client
If nom = "" Then Exit Sub ' si nom = rien tu fait rien

Range("MODELE!b1").Value = Range("MODELE!b1").Value + 1 'Ici la cellule (b1) s'incrémente de 1
pointeur = Range("MODELE!b1").Value + 1 'pointeur deviens la valeur de la cellule b1 +1 à cause de la ligne de titre

Sheets("MODELE").Copy After:=Sheets(2) 'Ici on copie la feuille MODELE
Sheets("MODELE (2)").Name = pointeur & " " & nom 'Ici on nomme la nouvelle feuille par la valeur de pointeur + nom
Range("c5").Value = "Client " & nom ' ( exp : 3 dupond )
Sheets("feuil2").Cells(pointeur, 1) = pointeur & " " & nom 'Ici on place le nom du client sur la ligne de la valeur de pointeur
End Sub
'Cells(pointeur,1)= à la ligne que vaut pointeur et 1 pour la colonne (a) qui est la premiere


Noublie pas de te servir de l'aide VBA .Dans VBA tu selectionne la fonction que tu comprend pas et tu appuie sur la touche F1.
L'enregistreur automatique de Macro est un formidable outil pour apprendre
Voila à toi de jouer.
@+ Yves

 

Vote positif 0 Vote négatif

F

flycyber

Guest

• 8 Septembre 2006

• #8

Re : Macro pour renomé une feuille atomatique

Salut,

Ziopizza grand merci a toi, je vais suivre tes conseils.😀
Je commence a comprendre le fonctionnement de la macro création.

Mais a mon grand désespoire je veux commencé a modifier les choses pour que ca colle plus vers ce que je souhaiterais,Il me manque quelque connaissance important surment le baba pour vous comment crée la liste box qui est présent sur la feuille 2

je me suis employer a crée une liste avec les fonction excel mais de ce que je vois je n'arrive pas a crée une liste avec une bande déroulante comme celle de ziopizza.(si vous pouvez me donner la marche a suivre)😕

celle que je dessire faire ne devra avoir un visuel d'environs trois celules de hauteur est pouvoir faire défilé les noms present dans la liste dans ce visu

merci a tous pour votre aide

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 8 Septembre 2006

• #9

Re : Macro pour renomé une feuille atomatique



Bonjour flycyber,


1Pour créer une listBox


2Menu affichage 3Barre D'outils 4Boîte à outils contrôle 5Dans la boîte à outils selectionner Zone de liste 6tracer la zone de liste sur ta feuille 7Parametre de la listBoxClick droit dessus choisir propriétés si ta liste est en a1:a150 alors écrire ListFillRange a1:a150 8Désactiver le mode création de la Boite à outils
Voila la ListBox affiche ta liste
@+Yves

 

Dernière édition: 8 Septembre 2006

Vote positif 0 Vote négatif

F

flycyber

Guest

• 8 Septembre 2006

• #10

Re : Macro pour renomé une feuille atomatique

Re
Grand Merci a ZIOpizza 😀

merci d'avoir repondu aussi précissément a mes questions meme quand elle étais benines pour une personne expérimenter.😛

je vais boser sur tous ca pendant quelque temps pour bien comprendre les tenants et les aboutissants de tout ce qui ma été apporté

je pense avoir le néccéssaire pour crée une matrice bien conforme a mon vouloir🙂

je postérais mon évolution et d'autre question si besoin

grand merci a ce forum et a ziopizza

Ps' une petite précision sur la ligne de dialogue pour faire apparaitre le fenetre pour saissir le nom je n'arrive pas a l'identifier(merci de m'éclairé de la marche a suivre)

@ tres bientot greg

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 8 Septembre 2006

• #11

Re : Macro pour renomé une feuille atomatique

Re,
C'est la fonction inputBox qui fait apparaitre la boîte de dialogue automatiquement. Tu ne peu donc pas l'identifier.
Par contre on peut faire ces propres boites de dialogues avec un userform et des TextBox, mais c'est une autre histoire.
Sur les pages Wiki de ce forum, tu peux trouver une mine d'informations,
à consulter sans modération
@+Yves
Explication dans l'aide d'excel
Affiche une invite dans une boîte de dialogue, attend que l'utilisateur tape du texte ou clique sur un bouton, puis renvoie le contenu de la zone de texte sous la forme d'une valeur de type String.
Syntaxe
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

 

Dernière édition: 8 Septembre 2006

Vote positif 0 Vote négatif