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 Création de feuille automatisée

Création de feuille automatisée

10 réponses
Avatar
Jacquouille Le Gaulois
Bonjour,

J'ai un classeur avec
Feuil1 mon fichier client
Feuil2 mon modele de facture
Feuil5 mon calendrier
est il possible de créer une nouvelle facture, en creant une nouvelle
feuille dans le classeur, avec comme nom d'onglet le nom du client,
chaque fois que je tape un nouveau nom de client dans ma feuille client

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'
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
Avatar
Philippe.R
Bonsoir Jacquouille Le Gaulois
Ceci devrait le faire :

Sub ajoufeuil()
' MPFE le 17/01/2004 par Philippe Raulet
' Crée une copie de Feuil2 et la nomme de
' la valeur contenue dans la cellule nommée
' par exemple : "lenom"
Sheets("Feuil2").Copy Before:=Sheets(2)
Sheets("Feuil2 (2)").Name = [lenom]
End Sub

PS : merci d'avoir levé l'ambiguïté ici signalée naguère ;o))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Jacquouille Le Gaulois" a écrit dans le message de
news:
Bonjour,

J'ai un classeur avec
Feuil1 mon fichier client
Feuil2 mon modele de facture
Feuil5 mon calendrier
est il possible de créer une nouvelle facture, en creant une nouvelle
feuille dans le classeur, avec comme nom d'onglet le nom du client,
chaque fois que je tape un nouveau nom de client dans ma feuille client

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'



Avatar
sabatier
encore que..., philippe, car ne parle-t-on pas de "tiens, fume, c'est du
belge" en même temps que de paquet de gauloises???
jps

Philippe.R a écrit:
Bonsoir Jacquouille Le Gaulois


PS : merci d'avoir levé l'ambiguïté ici signalée naguère ;o))


Avatar
Philippe.R
;o)))
--
Amicales Salutations

"sabatier" a écrit dans le message de news:
encore que..., philippe, car ne parle-t-on pas de "tiens, fume, c'est du
belge" en même temps que de paquet de gauloises???
jps

Philippe.R a écrit:
Bonsoir Jacquouille Le Gaulois


PS : merci d'avoir levé l'ambiguïté ici signalée naguère ;o))





Avatar
Jacquouille Le Gaulois
Philippe.R a pensé très fort :
Sub ajoufeuil()
' MPFE le 17/01/2004 par Philippe Raulet
' Crée une copie de Feuil2 et la nomme de
' la valeur contenue dans la cellule nommée
' par exemple : "lenom"
Sheets("Feuil2").Copy Before:=Sheets(2)
Sheets("Feuil2 (2)").Name = [lenom]
End Sub


Ce n'est pas vraiment ceci que je voulais
Je m explique:
en feuil1 en colonne B j'ai les noms
en feuil2 mon modèle
je voudrait que quand je saisie un nom dans ma colonne B en ligne 3 par
exemple, celà cree automatiquement une nouvelle feuille sur le modèle
de la feuil2 avec comme nom d'onglet le nom saisie en feuil1 colonne B

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'

Avatar
Philippe.R
Bonjour,
Et comme ceci (à placer dans le module de feuille) ?

Private Sub Worksheet_Change(ByVal zz As Range)
' MPFE le 18/01/2004 par Philippe Raulet
' Crée une copie de Feuil2 et la nomme de
' la valeur contenue dans la cellule active de feuil1
If zz.Column <> 2 Then Exit Sub
Application.ScreenUpdating = False
Sheets("Feuil2").Copy Before:=Sheets(2)
Sheets("Feuil2 (2)").Name = zz.Value
Sheets("feuil1").Select
zz.Select
Application.ScreenUpdating = True
MsgBox "Feuille ajoutée pour : " & zz.Value, , "M.P.F.E."
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Jacquouille Le Gaulois" a écrit dans le message de
news:
Philippe.R a pensé très fort :
Sub ajoufeuil()
' MPFE le 17/01/2004 par Philippe Raulet
' Crée une copie de Feuil2 et la nomme de
' la valeur contenue dans la cellule nommée
' par exemple : "lenom"
Sheets("Feuil2").Copy Before:=Sheets(2)
Sheets("Feuil2 (2)").Name = [lenom]
End Sub


Ce n'est pas vraiment ceci que je voulais
Je m explique:
en feuil1 en colonne B j'ai les noms
en feuil2 mon modèle
je voudrait que quand je saisie un nom dans ma colonne B en ligne 3 par
exemple, celà cree automatiquement une nouvelle feuille sur le modèle
de la feuil2 avec comme nom d'onglet le nom saisie en feuil1 colonne B

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'




Avatar
Jacquouille Le Gaulois
Private Sub Worksheet_Change(ByVal zz As Range)
' MPFE le 18/01/2004 par Philippe Raulet
' Crée une copie de Feuil2 et la nomme de
' la valeur contenue dans la cellule active de feuil1
If zz.Column <> 2 Then Exit Sub
Application.ScreenUpdating = False
Sheets("Feuil2").Copy Before:=Sheets(2)
Sheets("Feuil2 (2)").Name = zz.Value
Sheets("feuil1").Select
zz.Select
Application.ScreenUpdating = True
MsgBox "Feuille ajoutée pour : " & zz.Value, , "M.P.F.E."
End Sub


celà ne marche pas, j'ai une erreur d'execution '9'
avec comme message l'indice nappartient pas a la selection
j'ai mis le code dans Feuil1 ?
mais y a t il quelque chose a modifier dans le code?
je suis novice en vba :/
merci

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'

Avatar
Philippe.R
Re,
Il n'y a à priori pas besoin d'adaptation du code qui fonctionne chez moi.
Si tu le souhaites, je peux t'envoyer un petit fichier exemple à ton adresse perso pour peu que celle
publiée soit valide (sinon tu me la communique en privé en suivant les instructions de ma signature)
--
Amicales Salutations

Retirer A_S_ pour répondre.

"Jacquouille Le Gaulois" a écrit dans le message de
news:
Private Sub Worksheet_Change(ByVal zz As Range)
' MPFE le 18/01/2004 par Philippe Raulet
' Crée une copie de Feuil2 et la nomme de
' la valeur contenue dans la cellule active de feuil1
If zz.Column <> 2 Then Exit Sub
Application.ScreenUpdating = False
Sheets("Feuil2").Copy Before:=Sheets(2)
Sheets("Feuil2 (2)").Name = zz.Value
Sheets("feuil1").Select
zz.Select
Application.ScreenUpdating = True
MsgBox "Feuille ajoutée pour : " & zz.Value, , "M.P.F.E."
End Sub


celà ne marche pas, j'ai une erreur d'execution '9'
avec comme message l'indice nappartient pas a la selection
j'ai mis le code dans Feuil1 ?
mais y a t il quelque chose a modifier dans le code?
je suis novice en vba :/
merci

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'




Avatar
Jacquouille Le Gaulois
Philippe.R a couché sur son écran :
Re,
Il n'y a à priori pas besoin d'adaptation du code qui fonctionne chez moi.
Si tu le souhaites, je peux t'envoyer un petit fichier exemple à ton adresse
perso pour peu que celle publiée soit valide (sinon tu me la communique en
privé en suivant les instructions de ma signature) --
Amicales Salutations

Retirer A_S_ pour répondre.

"Jacquouille Le Gaulois" a écrit dans le message
de news:
Private Sub Worksheet_Change(ByVal zz As Range)
' MPFE le 18/01/2004 par Philippe Raulet
' Crée une copie de Feuil2 et la nomme de
' la valeur contenue dans la cellule active de feuil1
If zz.Column <> 2 Then Exit Sub
Application.ScreenUpdating = False
Sheets("Feuil2").Copy Before:=Sheets(2)
Sheets("Feuil2 (2)").Name = zz.Value
Sheets("feuil1").Select
zz.Select
Application.ScreenUpdating = True
MsgBox "Feuille ajoutée pour : " & zz.Value, , "M.P.F.E."
End Sub


celà ne marche pas, j'ai une erreur d'execution '9'
avec comme message l'indice nappartient pas a la selection
j'ai mis le code dans Feuil1 ?
mais y a t il quelque chose a modifier dans le code?
je suis novice en vba :/
merci

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'



Je t'est envoyé un mail pour mon adresse ou enlever .gaulois à


--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'



Avatar
Philippe.R
Re,
Le fichier est parti.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Jacquouille Le Gaulois" a écrit dans le message de
news:
Philippe.R a couché sur son écran :
Re,
Il n'y a à priori pas besoin d'adaptation du code qui fonctionne chez moi.
Si tu le souhaites, je peux t'envoyer un petit fichier exemple à ton adresse
perso pour peu que celle publiée soit valide (sinon tu me la communique en
privé en suivant les instructions de ma signature) --
Amicales Salutations

Retirer A_S_ pour répondre.

"Jacquouille Le Gaulois" a écrit dans le message
de news:
Private Sub Worksheet_Change(ByVal zz As Range)
' MPFE le 18/01/2004 par Philippe Raulet
' Crée une copie de Feuil2 et la nomme de
' la valeur contenue dans la cellule active de feuil1
If zz.Column <> 2 Then Exit Sub
Application.ScreenUpdating = False
Sheets("Feuil2").Copy Before:=Sheets(2)
Sheets("Feuil2 (2)").Name = zz.Value
Sheets("feuil1").Select
zz.Select
Application.ScreenUpdating = True
MsgBox "Feuille ajoutée pour : " & zz.Value, , "M.P.F.E."
End Sub


celà ne marche pas, j'ai une erreur d'execution '9'
avec comme message l'indice nappartient pas a la selection
j'ai mis le code dans Feuil1 ?
mais y a t il quelque chose a modifier dans le code?
je suis novice en vba :/
merci

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'



Je t'est envoyé un mail pour mon adresse ou enlever .gaulois à


--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'






Avatar
Philippe.R
Re,
Voici le code de feuille modifié pour en sus copier la cellule voisine vers G2

Private Sub Worksheet_Change(ByVal zz As Range)
'MPFE le 18/01/2004 par Philippe Raulet
'Crée une copie de Feuil2 et la nomme du contenu
'de la cellule active en colonne B de feuil1
'copie en outre la cellule adjacente en colonne A
'vers la cellule G2 de la feuille nouvelle
If zz.Column <> 2 Then Exit Sub
Application.ScreenUpdating = False
Sheets("Feuil2").Copy Before:=Sheets(2)
Sheets("Feuil2 (2)").Name = zz.Value
Sheets(2).[g2] = Sheets("Feuil1").Range("a" & zz.Row).Value
Sheets("feuil1").Select
zz.Select
Application.ScreenUpdating = True
MsgBox "Feuille ajoutée pour : " & zz.Value, , "M.P.F.E."
End Sub


Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Jacquouille Le Gaulois" a écrit dans le message de
news:
Philippe.R a couché sur son écran :
Re,
Il n'y a à priori pas besoin d'adaptation du code qui fonctionne chez moi.
Si tu le souhaites, je peux t'envoyer un petit fichier exemple à ton adresse
perso pour peu que celle publiée soit valide (sinon tu me la communique en
privé en suivant les instructions de ma signature) --
Amicales Salutations

Retirer A_S_ pour répondre.

"Jacquouille Le Gaulois" a écrit dans le message
de news:
Private Sub Worksheet_Change(ByVal zz As Range)
' MPFE le 18/01/2004 par Philippe Raulet
' Crée une copie de Feuil2 et la nomme de
' la valeur contenue dans la cellule active de feuil1
If zz.Column <> 2 Then Exit Sub
Application.ScreenUpdating = False
Sheets("Feuil2").Copy Before:=Sheets(2)
Sheets("Feuil2 (2)").Name = zz.Value
Sheets("feuil1").Select
zz.Select
Application.ScreenUpdating = True
MsgBox "Feuille ajoutée pour : " & zz.Value, , "M.P.F.E."
End Sub


celà ne marche pas, j'ai une erreur d'execution '9'
avec comme message l'indice nappartient pas a la selection
j'ai mis le code dans Feuil1 ?
mais y a t il quelque chose a modifier dans le code?
je suis novice en vba :/
merci

--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'



Je t'est envoyé un mail pour mon adresse ou enlever .gaulois à


--
("|`-''-/").___..--''"`-._
`6_ 6 ) `-. ( ).`-.__.`)
(_Y_.)' ._ ) `._ `. ``-..-'
_..`--'_..-_/ /--'_.' ,'
(il),-'' (li),' ((!.-'