Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille 2
et imprimer je me demander si il y avait donc une possibilité de le faire
en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible via
une macro de lancer une impression qui renseigne ma feuille 2 une à une en
sortant toutes mes feuilles .
merci
manu
Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille 2
et imprimer je me demander si il y avait donc une possibilité de le faire
en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible via
une macro de lancer une impression qui renseigne ma feuille 2 une à une en
sortant toutes mes feuilles .
merci
manu
Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille 2
et imprimer je me demander si il y avait donc une possibilité de le faire
en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible via
une macro de lancer une impression qui renseigne ma feuille 2 une à une en
sortant toutes mes feuilles .
merci
manu
Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom je
suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans ce
que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" a écrit dans le message de news:
%23TECWNB$Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille 2
et imprimer je me demander si il y avait donc une possibilité de le
faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une à
une en sortant toutes mes feuilles .
merci
manu
Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom je
suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans ce
que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" <e.platet@wanadoo.fr> a écrit dans le message de news:
%23TECWNB$EHA.3124@TK2MSFTNGP11.phx.gbl...
Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille 2
et imprimer je me demander si il y avait donc une possibilité de le
faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une à
une en sortant toutes mes feuilles .
merci
manu
Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom je
suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans ce
que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" a écrit dans le message de news:
%23TECWNB$Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille 2
et imprimer je me demander si il y avait donc une possibilité de le
faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une à
une en sortant toutes mes feuilles .
merci
manu
puis-je sortir tous les fiches des 400 noms qui composent ma base sans
passer par ma liste de menu deroulante
Si ta plage définie sous ce nom Base_de_données contient 400 lignes (hors
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données
j'ai donc supposé que tes autres champs recherchent par rapport au nom en C
Sub prntnom()
Dim i
'Définition de i l'index de boucle
For i = 2 To Range("Feuil1!database").Rows.Count
'on va de 2 jusqu'au nombre de lignes contenues dans Feuil1 Base_de_données
Feuil2.[c2] = Feuil1.Cells(i, 1)
'on met en Feuil2 c2 la valeur de la cellule de Feuil1 dont la ligne est i
Feuil2.PrintOut
'on en profite pour imprimer feuil2
Next
'on passe au suivant i (index de boucle)
End Sub
'Fin de procèdure
'****
ok merci je suis en train d'essayer mais la je me pose une petite question
a savoir si avec cette macro, je pourrai sortir toute ma base de données
c'est a dire qu'en lancant la macro il va pouvoir me sortir qu'une partie
de ma feuille2 ou se trouve mes données voici l'exemple
Nom prenom en C2 je copie le resultat
de ma recherche ici liste deroulante
de
mon choix dans la liste XXXX
AAAA
date CCCC ect....
(petit texte expliquant differents renseignements )
entrainement:
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données puis-je sortir tous les fiches des 400 noms qui
composent ma base sans passer par ma liste de menu deroulante
car quand je viens de la lancer elle m'a sortie 4 pages de ma feuille 2
je vais re-essayer.je me suis peut etre trompé
je te remercie comme de ta reponse
"LSteph" a écrit dans le message de news:
uZo0YjH$Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom
je suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans
ce que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" a écrit dans le message de news:
%23TECWNB$Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille
2 et imprimer je me demander si il y avait donc une possibilité de le
faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une à
une en sortant toutes mes feuilles .
merci
manu
puis-je sortir tous les fiches des 400 noms qui composent ma base sans
passer par ma liste de menu deroulante
Si ta plage définie sous ce nom Base_de_données contient 400 lignes (hors
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données
j'ai donc supposé que tes autres champs recherchent par rapport au nom en C
Sub prntnom()
Dim i
'Définition de i l'index de boucle
For i = 2 To Range("Feuil1!database").Rows.Count
'on va de 2 jusqu'au nombre de lignes contenues dans Feuil1 Base_de_données
Feuil2.[c2] = Feuil1.Cells(i, 1)
'on met en Feuil2 c2 la valeur de la cellule de Feuil1 dont la ligne est i
Feuil2.PrintOut
'on en profite pour imprimer feuil2
Next
'on passe au suivant i (index de boucle)
End Sub
'Fin de procèdure
'****
ok merci je suis en train d'essayer mais la je me pose une petite question
a savoir si avec cette macro, je pourrai sortir toute ma base de données
c'est a dire qu'en lancant la macro il va pouvoir me sortir qu'une partie
de ma feuille2 ou se trouve mes données voici l'exemple
Nom prenom en C2 je copie le resultat
de ma recherche ici liste deroulante
de
mon choix dans la liste XXXX
AAAA
date CCCC ect....
(petit texte expliquant differents renseignements )
entrainement:
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données puis-je sortir tous les fiches des 400 noms qui
composent ma base sans passer par ma liste de menu deroulante
car quand je viens de la lancer elle m'a sortie 4 pages de ma feuille 2
je vais re-essayer.je me suis peut etre trompé
je te remercie comme de ta reponse
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uZo0YjH$EHA.3124@TK2MSFTNGP11.phx.gbl...
Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom
je suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans
ce que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" <e.platet@wanadoo.fr> a écrit dans le message de news:
%23TECWNB$EHA.3124@TK2MSFTNGP11.phx.gbl...
Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille
2 et imprimer je me demander si il y avait donc une possibilité de le
faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une à
une en sortant toutes mes feuilles .
merci
manu
puis-je sortir tous les fiches des 400 noms qui composent ma base sans
passer par ma liste de menu deroulante
Si ta plage définie sous ce nom Base_de_données contient 400 lignes (hors
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données
j'ai donc supposé que tes autres champs recherchent par rapport au nom en C
Sub prntnom()
Dim i
'Définition de i l'index de boucle
For i = 2 To Range("Feuil1!database").Rows.Count
'on va de 2 jusqu'au nombre de lignes contenues dans Feuil1 Base_de_données
Feuil2.[c2] = Feuil1.Cells(i, 1)
'on met en Feuil2 c2 la valeur de la cellule de Feuil1 dont la ligne est i
Feuil2.PrintOut
'on en profite pour imprimer feuil2
Next
'on passe au suivant i (index de boucle)
End Sub
'Fin de procèdure
'****
ok merci je suis en train d'essayer mais la je me pose une petite question
a savoir si avec cette macro, je pourrai sortir toute ma base de données
c'est a dire qu'en lancant la macro il va pouvoir me sortir qu'une partie
de ma feuille2 ou se trouve mes données voici l'exemple
Nom prenom en C2 je copie le resultat
de ma recherche ici liste deroulante
de
mon choix dans la liste XXXX
AAAA
date CCCC ect....
(petit texte expliquant differents renseignements )
entrainement:
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données puis-je sortir tous les fiches des 400 noms qui
composent ma base sans passer par ma liste de menu deroulante
car quand je viens de la lancer elle m'a sortie 4 pages de ma feuille 2
je vais re-essayer.je me suis peut etre trompé
je te remercie comme de ta reponse
"LSteph" a écrit dans le message de news:
uZo0YjH$Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom
je suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans
ce que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" a écrit dans le message de news:
%23TECWNB$Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille
2 et imprimer je me demander si il y avait donc une possibilité de le
faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une à
une en sortant toutes mes feuilles .
merci
manu
Bonsoir,
Pour répondre :puis-je sortir tous les fiches des 400 noms qui composent ma base sans
passer par ma liste de menu deroulante
Si ta plage définie sous ce nom Base_de_données contient 400 lignes (hors
la 1ère du titre )oui.
La macro se substitue au déroulant pour mettre le nom en C2et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données
j'ai donc supposé que tes autres champs recherchent par rapport au nom en
C
Explication de la macro:Sub prntnom()
Dim i
'Définition de i l'index de boucleFor i = 2 To Range("Feuil1!database").Rows.Count
'on va de 2 jusqu'au nombre de lignes contenues dans Feuil1
Base_de_donnéesFeuil2.[c2] = Feuil1.Cells(i, 1)
'on met en Feuil2 c2 la valeur de la cellule de Feuil1 dont la ligne est i
(index de boucle) et la colonne 1
'à ce moment là tes recherchev en feuil2 changent de valeurFeuil2.PrintOut
'on en profite pour imprimer feuil2Next
'on passe au suivant i (index de boucle)
'la boucle s'arrêtera quand le nb de lignes(Rows.Count) prévu au départ
(dans For)est atteintEnd Sub
'Fin de procèdure'****
'Dis moi si tu t'en sors avec ces explications
'lSteph
"e.platet" a écrit dans le message de news:
uJI2wpM$ok merci je suis en train d'essayer mais la je me pose une petite
question a savoir si avec cette macro, je pourrai sortir toute ma base de
données c'est a dire qu'en lancant la macro il va pouvoir me sortir
qu'une partie de ma feuille2 ou se trouve mes données voici l'exemple
Nom prenom en C2 je copie le
resultat de ma recherche ici liste deroulante
de
mon choix dans la liste XXXX
AAAA
date CCCC ect....
(petit texte expliquant differents renseignements )
entrainement:
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données puis-je sortir tous les fiches des 400 noms qui
composent ma base sans passer par ma liste de menu deroulante
car quand je viens de la lancer elle m'a sortie 4 pages de ma feuille 2
je vais re-essayer.je me suis peut etre trompé
je te remercie comme de ta reponse
"LSteph" a écrit dans le message de news:
uZo0YjH$Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom
je suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans
ce que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" a écrit dans le message de news:
%23TECWNB$Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille
2 et imprimer je me demander si il y avait donc une possibilité de le
faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une à
une en sortant toutes mes feuilles .
merci
manu
Bonsoir,
Pour répondre :
puis-je sortir tous les fiches des 400 noms qui composent ma base sans
passer par ma liste de menu deroulante
Si ta plage définie sous ce nom Base_de_données contient 400 lignes (hors
la 1ère du titre )oui.
La macro se substitue au déroulant pour mettre le nom en C2
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données
j'ai donc supposé que tes autres champs recherchent par rapport au nom en
C
Explication de la macro:
Sub prntnom()
Dim i
'Définition de i l'index de boucle
For i = 2 To Range("Feuil1!database").Rows.Count
'on va de 2 jusqu'au nombre de lignes contenues dans Feuil1
Base_de_données
Feuil2.[c2] = Feuil1.Cells(i, 1)
'on met en Feuil2 c2 la valeur de la cellule de Feuil1 dont la ligne est i
(index de boucle) et la colonne 1
'à ce moment là tes recherchev en feuil2 changent de valeur
Feuil2.PrintOut
'on en profite pour imprimer feuil2
Next
'on passe au suivant i (index de boucle)
'la boucle s'arrêtera quand le nb de lignes(Rows.Count) prévu au départ
(dans For)est atteint
End Sub
'Fin de procèdure
'****
'Dis moi si tu t'en sors avec ces explications
'lSteph
"e.platet" <e.platet@wanadoo.fr> a écrit dans le message de news:
uJI2wpM$EHA.600@TK2MSFTNGP09.phx.gbl...
ok merci je suis en train d'essayer mais la je me pose une petite
question a savoir si avec cette macro, je pourrai sortir toute ma base de
données c'est a dire qu'en lancant la macro il va pouvoir me sortir
qu'une partie de ma feuille2 ou se trouve mes données voici l'exemple
Nom prenom en C2 je copie le
resultat de ma recherche ici liste deroulante
de
mon choix dans la liste XXXX
AAAA
date CCCC ect....
(petit texte expliquant differents renseignements )
entrainement:
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données puis-je sortir tous les fiches des 400 noms qui
composent ma base sans passer par ma liste de menu deroulante
car quand je viens de la lancer elle m'a sortie 4 pages de ma feuille 2
je vais re-essayer.je me suis peut etre trompé
je te remercie comme de ta reponse
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uZo0YjH$EHA.3124@TK2MSFTNGP11.phx.gbl...
Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom
je suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans
ce que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" <e.platet@wanadoo.fr> a écrit dans le message de news:
%23TECWNB$EHA.3124@TK2MSFTNGP11.phx.gbl...
Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille
2 et imprimer je me demander si il y avait donc une possibilité de le
faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une à
une en sortant toutes mes feuilles .
merci
manu
Bonsoir,
Pour répondre :puis-je sortir tous les fiches des 400 noms qui composent ma base sans
passer par ma liste de menu deroulante
Si ta plage définie sous ce nom Base_de_données contient 400 lignes (hors
la 1ère du titre )oui.
La macro se substitue au déroulant pour mettre le nom en C2et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données
j'ai donc supposé que tes autres champs recherchent par rapport au nom en
C
Explication de la macro:Sub prntnom()
Dim i
'Définition de i l'index de boucleFor i = 2 To Range("Feuil1!database").Rows.Count
'on va de 2 jusqu'au nombre de lignes contenues dans Feuil1
Base_de_donnéesFeuil2.[c2] = Feuil1.Cells(i, 1)
'on met en Feuil2 c2 la valeur de la cellule de Feuil1 dont la ligne est i
(index de boucle) et la colonne 1
'à ce moment là tes recherchev en feuil2 changent de valeurFeuil2.PrintOut
'on en profite pour imprimer feuil2Next
'on passe au suivant i (index de boucle)
'la boucle s'arrêtera quand le nb de lignes(Rows.Count) prévu au départ
(dans For)est atteintEnd Sub
'Fin de procèdure'****
'Dis moi si tu t'en sors avec ces explications
'lSteph
"e.platet" a écrit dans le message de news:
uJI2wpM$ok merci je suis en train d'essayer mais la je me pose une petite
question a savoir si avec cette macro, je pourrai sortir toute ma base de
données c'est a dire qu'en lancant la macro il va pouvoir me sortir
qu'une partie de ma feuille2 ou se trouve mes données voici l'exemple
Nom prenom en C2 je copie le
resultat de ma recherche ici liste deroulante
de
mon choix dans la liste XXXX
AAAA
date CCCC ect....
(petit texte expliquant differents renseignements )
entrainement:
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données puis-je sortir tous les fiches des 400 noms qui
composent ma base sans passer par ma liste de menu deroulante
car quand je viens de la lancer elle m'a sortie 4 pages de ma feuille 2
je vais re-essayer.je me suis peut etre trompé
je te remercie comme de ta reponse
"LSteph" a écrit dans le message de news:
uZo0YjH$Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom
je suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans
ce que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" a écrit dans le message de news:
%23TECWNB$Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille
2 et imprimer je me demander si il y avait donc une possibilité de le
faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une à
une en sortant toutes mes feuilles .
merci
manu
merci excuse moi c'est moi qui est fait une erreur cela fonctionne très
bien
je te remercie je te tire ma révérence
et encore mille merci
manu
"LSteph" a écrit dans le message de news:
ee8r3LO$Bonsoir,
Pour répondre :puis-je sortir tous les fiches des 400 noms qui composent ma base sans
passer par ma liste de menu deroulante
Si ta plage définie sous ce nom Base_de_données contient 400 lignes
(hors la 1ère du titre )oui.
La macro se substitue au déroulant pour mettre le nom en C2et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données
j'ai donc supposé que tes autres champs recherchent par rapport au nom en
C
Explication de la macro:Sub prntnom()
Dim i
'Définition de i l'index de boucleFor i = 2 To Range("Feuil1!database").Rows.Count
'on va de 2 jusqu'au nombre de lignes contenues dans Feuil1
Base_de_donnéesFeuil2.[c2] = Feuil1.Cells(i, 1)
'on met en Feuil2 c2 la valeur de la cellule de Feuil1 dont la ligne est
i (index de boucle) et la colonne 1
'à ce moment là tes recherchev en feuil2 changent de valeurFeuil2.PrintOut
'on en profite pour imprimer feuil2Next
'on passe au suivant i (index de boucle)
'la boucle s'arrêtera quand le nb de lignes(Rows.Count) prévu au départ
(dans For)est atteintEnd Sub
'Fin de procèdure'****
'Dis moi si tu t'en sors avec ces explications
'lSteph
"e.platet" a écrit dans le message de news:
uJI2wpM$ok merci je suis en train d'essayer mais la je me pose une petite
question a savoir si avec cette macro, je pourrai sortir toute ma base
de données c'est a dire qu'en lancant la macro il va pouvoir me sortir
qu'une partie de ma feuille2 ou se trouve mes données voici l'exemple
Nom prenom en C2 je copie le
resultat de ma recherche ici liste deroulante
de
mon choix dans la liste XXXX
AAAA
date CCCC ect....
(petit texte expliquant differents renseignements )
entrainement:
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données puis-je sortir tous les fiches des 400 noms
qui composent ma base sans passer par ma liste de menu deroulante
car quand je viens de la lancer elle m'a sortie 4 pages de ma feuille 2
je vais re-essayer.je me suis peut etre trompé
je te remercie comme de ta reponse
"LSteph" a écrit dans le message de news:
uZo0YjH$Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom
je suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans
ce que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" a écrit dans le message de news:
%23TECWNB$Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que
je récupère via une recherche V sur ma feuille2 paramétrée, mais je
dois sélectionner 400 fois pour faire apparaître ma sélection sur la
feuille 2 et imprimer je me demander si il y avait donc une
possibilité de le faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une
à une en sortant toutes mes feuilles .
merci
manu
merci excuse moi c'est moi qui est fait une erreur cela fonctionne très
bien
je te remercie je te tire ma révérence
et encore mille merci
manu
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
ee8r3LO$EHA.3236@TK2MSFTNGP15.phx.gbl...
Bonsoir,
Pour répondre :
puis-je sortir tous les fiches des 400 noms qui composent ma base sans
passer par ma liste de menu deroulante
Si ta plage définie sous ce nom Base_de_données contient 400 lignes
(hors la 1ère du titre )oui.
La macro se substitue au déroulant pour mettre le nom en C2
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données
j'ai donc supposé que tes autres champs recherchent par rapport au nom en
C
Explication de la macro:
Sub prntnom()
Dim i
'Définition de i l'index de boucle
For i = 2 To Range("Feuil1!database").Rows.Count
'on va de 2 jusqu'au nombre de lignes contenues dans Feuil1
Base_de_données
Feuil2.[c2] = Feuil1.Cells(i, 1)
'on met en Feuil2 c2 la valeur de la cellule de Feuil1 dont la ligne est
i (index de boucle) et la colonne 1
'à ce moment là tes recherchev en feuil2 changent de valeur
Feuil2.PrintOut
'on en profite pour imprimer feuil2
Next
'on passe au suivant i (index de boucle)
'la boucle s'arrêtera quand le nb de lignes(Rows.Count) prévu au départ
(dans For)est atteint
End Sub
'Fin de procèdure
'****
'Dis moi si tu t'en sors avec ces explications
'lSteph
"e.platet" <e.platet@wanadoo.fr> a écrit dans le message de news:
uJI2wpM$EHA.600@TK2MSFTNGP09.phx.gbl...
ok merci je suis en train d'essayer mais la je me pose une petite
question a savoir si avec cette macro, je pourrai sortir toute ma base
de données c'est a dire qu'en lancant la macro il va pouvoir me sortir
qu'une partie de ma feuille2 ou se trouve mes données voici l'exemple
Nom prenom en C2 je copie le
resultat de ma recherche ici liste deroulante
de
mon choix dans la liste XXXX
AAAA
date CCCC ect....
(petit texte expliquant differents renseignements )
entrainement:
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données puis-je sortir tous les fiches des 400 noms
qui composent ma base sans passer par ma liste de menu deroulante
car quand je viens de la lancer elle m'a sortie 4 pages de ma feuille 2
je vais re-essayer.je me suis peut etre trompé
je te remercie comme de ta reponse
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uZo0YjH$EHA.3124@TK2MSFTNGP11.phx.gbl...
Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom
je suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans
ce que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" <e.platet@wanadoo.fr> a écrit dans le message de news:
%23TECWNB$EHA.3124@TK2MSFTNGP11.phx.gbl...
Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que
je récupère via une recherche V sur ma feuille2 paramétrée, mais je
dois sélectionner 400 fois pour faire apparaître ma sélection sur la
feuille 2 et imprimer je me demander si il y avait donc une
possibilité de le faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une
à une en sortant toutes mes feuilles .
merci
manu
merci excuse moi c'est moi qui est fait une erreur cela fonctionne très
bien
je te remercie je te tire ma révérence
et encore mille merci
manu
"LSteph" a écrit dans le message de news:
ee8r3LO$Bonsoir,
Pour répondre :puis-je sortir tous les fiches des 400 noms qui composent ma base sans
passer par ma liste de menu deroulante
Si ta plage définie sous ce nom Base_de_données contient 400 lignes
(hors la 1ère du titre )oui.
La macro se substitue au déroulant pour mettre le nom en C2et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données
j'ai donc supposé que tes autres champs recherchent par rapport au nom en
C
Explication de la macro:Sub prntnom()
Dim i
'Définition de i l'index de boucleFor i = 2 To Range("Feuil1!database").Rows.Count
'on va de 2 jusqu'au nombre de lignes contenues dans Feuil1
Base_de_donnéesFeuil2.[c2] = Feuil1.Cells(i, 1)
'on met en Feuil2 c2 la valeur de la cellule de Feuil1 dont la ligne est
i (index de boucle) et la colonne 1
'à ce moment là tes recherchev en feuil2 changent de valeurFeuil2.PrintOut
'on en profite pour imprimer feuil2Next
'on passe au suivant i (index de boucle)
'la boucle s'arrêtera quand le nb de lignes(Rows.Count) prévu au départ
(dans For)est atteintEnd Sub
'Fin de procèdure'****
'Dis moi si tu t'en sors avec ces explications
'lSteph
"e.platet" a écrit dans le message de news:
uJI2wpM$ok merci je suis en train d'essayer mais la je me pose une petite
question a savoir si avec cette macro, je pourrai sortir toute ma base
de données c'est a dire qu'en lancant la macro il va pouvoir me sortir
qu'une partie de ma feuille2 ou se trouve mes données voici l'exemple
Nom prenom en C2 je copie le
resultat de ma recherche ici liste deroulante
de
mon choix dans la liste XXXX
AAAA
date CCCC ect....
(petit texte expliquant differents renseignements )
entrainement:
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données puis-je sortir tous les fiches des 400 noms
qui composent ma base sans passer par ma liste de menu deroulante
car quand je viens de la lancer elle m'a sortie 4 pages de ma feuille 2
je vais re-essayer.je me suis peut etre trompé
je te remercie comme de ta reponse
"LSteph" a écrit dans le message de news:
uZo0YjH$Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom
je suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans
ce que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" a écrit dans le message de news:
%23TECWNB$Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que
je récupère via une recherche V sur ma feuille2 paramétrée, mais je
dois sélectionner 400 fois pour faire apparaître ma sélection sur la
feuille 2 et imprimer je me demander si il y avait donc une
possibilité de le faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une
à une en sortant toutes mes feuilles .
merci
manu
Bonsoir,
Pour répondre :puis-je sortir tous les fiches des 400 noms qui composent ma base sans
passer par ma liste de menu deroulante
Si ta plage définie sous ce nom Base_de_données contient 400 lignes (hors
la 1ère du titre )oui.
La macro se substitue au déroulant pour mettre le nom en C2et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données
j'ai donc supposé que tes autres champs recherchent par rapport au nom en
C
Explication de la macro:Sub prntnom()
Dim i
'Définition de i l'index de boucleFor i = 2 To Range("Feuil1!database").Rows.Count
'on va de 2 jusqu'au nombre de lignes contenues dans Feuil1
Base_de_donnéesFeuil2.[c2] = Feuil1.Cells(i, 1)
'on met en Feuil2 c2 la valeur de la cellule de Feuil1 dont la ligne est i
(index de boucle) et la colonne 1
'à ce moment là tes recherchev en feuil2 changent de valeurFeuil2.PrintOut
'on en profite pour imprimer feuil2Next
'on passe au suivant i (index de boucle)
'la boucle s'arrêtera quand le nb de lignes(Rows.Count) prévu au départ
(dans For)est atteintEnd Sub
'Fin de procèdure'****
'Dis moi si tu t'en sors avec ces explications
'lSteph
"e.platet" a écrit dans le message de news:
uJI2wpM$ok merci je suis en train d'essayer mais la je me pose une petite
question a savoir si avec cette macro, je pourrai sortir toute ma base de
données c'est a dire qu'en lancant la macro il va pouvoir me sortir
qu'une partie de ma feuille2 ou se trouve mes données voici l'exemple
Nom prenom en C2 je copie le
resultat de ma recherche ici liste deroulante
de
mon choix dans la liste XXXX
AAAA
date CCCC ect....
(petit texte expliquant differents renseignements )
entrainement:
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données puis-je sortir tous les fiches des 400 noms qui
composent ma base sans passer par ma liste de menu deroulante
car quand je viens de la lancer elle m'a sortie 4 pages de ma feuille 2
je vais re-essayer.je me suis peut etre trompé
je te remercie comme de ta reponse
"LSteph" a écrit dans le message de news:
uZo0YjH$Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom
je suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans
ce que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" a écrit dans le message de news:
%23TECWNB$Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille
2 et imprimer je me demander si il y avait donc une possibilité de le
faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une à
une en sortant toutes mes feuilles .
merci
manu
Bonsoir,
Pour répondre :
puis-je sortir tous les fiches des 400 noms qui composent ma base sans
passer par ma liste de menu deroulante
Si ta plage définie sous ce nom Base_de_données contient 400 lignes (hors
la 1ère du titre )oui.
La macro se substitue au déroulant pour mettre le nom en C2
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données
j'ai donc supposé que tes autres champs recherchent par rapport au nom en
C
Explication de la macro:
Sub prntnom()
Dim i
'Définition de i l'index de boucle
For i = 2 To Range("Feuil1!database").Rows.Count
'on va de 2 jusqu'au nombre de lignes contenues dans Feuil1
Base_de_données
Feuil2.[c2] = Feuil1.Cells(i, 1)
'on met en Feuil2 c2 la valeur de la cellule de Feuil1 dont la ligne est i
(index de boucle) et la colonne 1
'à ce moment là tes recherchev en feuil2 changent de valeur
Feuil2.PrintOut
'on en profite pour imprimer feuil2
Next
'on passe au suivant i (index de boucle)
'la boucle s'arrêtera quand le nb de lignes(Rows.Count) prévu au départ
(dans For)est atteint
End Sub
'Fin de procèdure
'****
'Dis moi si tu t'en sors avec ces explications
'lSteph
"e.platet" <e.platet@wanadoo.fr> a écrit dans le message de news:
uJI2wpM$EHA.600@TK2MSFTNGP09.phx.gbl...
ok merci je suis en train d'essayer mais la je me pose une petite
question a savoir si avec cette macro, je pourrai sortir toute ma base de
données c'est a dire qu'en lancant la macro il va pouvoir me sortir
qu'une partie de ma feuille2 ou se trouve mes données voici l'exemple
Nom prenom en C2 je copie le
resultat de ma recherche ici liste deroulante
de
mon choix dans la liste XXXX
AAAA
date CCCC ect....
(petit texte expliquant differents renseignements )
entrainement:
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données puis-je sortir tous les fiches des 400 noms qui
composent ma base sans passer par ma liste de menu deroulante
car quand je viens de la lancer elle m'a sortie 4 pages de ma feuille 2
je vais re-essayer.je me suis peut etre trompé
je te remercie comme de ta reponse
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uZo0YjH$EHA.3124@TK2MSFTNGP11.phx.gbl...
Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom
je suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans
ce que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" <e.platet@wanadoo.fr> a écrit dans le message de news:
%23TECWNB$EHA.3124@TK2MSFTNGP11.phx.gbl...
Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille
2 et imprimer je me demander si il y avait donc une possibilité de le
faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une à
une en sortant toutes mes feuilles .
merci
manu
Bonsoir,
Pour répondre :puis-je sortir tous les fiches des 400 noms qui composent ma base sans
passer par ma liste de menu deroulante
Si ta plage définie sous ce nom Base_de_données contient 400 lignes (hors
la 1ère du titre )oui.
La macro se substitue au déroulant pour mettre le nom en C2et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données
j'ai donc supposé que tes autres champs recherchent par rapport au nom en
C
Explication de la macro:Sub prntnom()
Dim i
'Définition de i l'index de boucleFor i = 2 To Range("Feuil1!database").Rows.Count
'on va de 2 jusqu'au nombre de lignes contenues dans Feuil1
Base_de_donnéesFeuil2.[c2] = Feuil1.Cells(i, 1)
'on met en Feuil2 c2 la valeur de la cellule de Feuil1 dont la ligne est i
(index de boucle) et la colonne 1
'à ce moment là tes recherchev en feuil2 changent de valeurFeuil2.PrintOut
'on en profite pour imprimer feuil2Next
'on passe au suivant i (index de boucle)
'la boucle s'arrêtera quand le nb de lignes(Rows.Count) prévu au départ
(dans For)est atteintEnd Sub
'Fin de procèdure'****
'Dis moi si tu t'en sors avec ces explications
'lSteph
"e.platet" a écrit dans le message de news:
uJI2wpM$ok merci je suis en train d'essayer mais la je me pose une petite
question a savoir si avec cette macro, je pourrai sortir toute ma base de
données c'est a dire qu'en lancant la macro il va pouvoir me sortir
qu'une partie de ma feuille2 ou se trouve mes données voici l'exemple
Nom prenom en C2 je copie le
resultat de ma recherche ici liste deroulante
de
mon choix dans la liste XXXX
AAAA
date CCCC ect....
(petit texte expliquant differents renseignements )
entrainement:
et via une rechercheV je remplis ma fiche et je l'imprime mais avec la
macro que tu m'as données puis-je sortir tous les fiches des 400 noms qui
composent ma base sans passer par ma liste de menu deroulante
car quand je viens de la lancer elle m'a sortie 4 pages de ma feuille 2
je vais re-essayer.je me suis peut etre trompé
je te remercie comme de ta reponse
"LSteph" a écrit dans le message de news:
uZo0YjH$Bonjour,
pour les formules, tu as choisi un recherchev que tu effectues sur nom
je suppose...
donc sans tout chambouler (j'aurais utilisé un index mais c'est pas
gênant):
Admettons qu'en feuil2 le nom soit en c2 (à adapter le cas échéant dans
ce que je propose[c2])
et que tes formules se basent dessus
par rapport au noms situés en colonne1 de feuil1
il faut nommer ta database en feuil1 comme ceci textuellement:
Base_de_données
Ensuite dans VBA dans un module standard ceci:
'*****
Sub prntnom()
Dim i
For i = 2 To Range("Feuil1!database").Rows.Count
Feuil2.[c2] = Feuil1.Cells(i, 1)
Feuil2.PrintOut
Next
End Sub
'****
'lSteph
"e.platet" a écrit dans le message de news:
%23TECWNB$Bonsoir a tous,
voila mon problème je me demande si avec Excel on peut imprimer en
automatique , je m'explique sur ma feuille 1 je possède une base de
données d'environ 400 noms avec chacun des caractères spécifique que je
récupère via une recherche V sur ma feuille2 paramétrée, mais je dois
sélectionner 400 fois pour faire apparaître ma sélection sur la feuille
2 et imprimer je me demander si il y avait donc une possibilité de le
faire en automatique.
voici l'exemple
feuille 1 base de données.
A B C D E
nom prenom date entrainement (type) km
XXX TTTT YY ZZZZZZZZZ 78
400 lignes dans ce principe.
feuille 2
en C2 je recupere XXXX
en D3 je recupere ZZZZZZZZZ
Pour pouvoir imprimer le contenu de XXX cette selection via un menu
deroulant et la je répète cette fonction 400 fois donc est-il possible
via une macro de lancer une impression qui renseigne ma feuille 2 une à
une en sortant toutes mes feuilles .
merci
manu
