Imprimer Macro Please

[fileofish]

Bonjour tout le monde

je sollicite une nouvelle fois votre aide
Voila j'ai dans une feuille excel une zone de liste déroulante, qui à chaque site change les données
J'aimerai imprimer les donnees de tous ces sites (+de 200) y'a t-il une macro ou code qui permet de tous les imprimer un par un jusqu'à ce que la zone de liste soit vide

MERCI MERCI PAR AVANCE
fil

[tototiti2008]

Bonjour fileofish,

je ne comprend pas :

qui à chaque site change les données

qu'est-ce qu'un site ?

[fileofish]

Salut Tototiti

Désolé pour ce message pas super clair
Voila j'ai dans une feuille excel une zone de liste déroulante. Dans cette zone j'ai des sites (par exemple des villes). Et à chaque fois que je change de ville les données de ma feuille changent
J'aimerai imprimer les donnees de tous ces villes (+de 200) y'a t-il une macro ou code qui permet de tous les imprimer un par un jusqu'à ce que la zone de liste soit vide
J'espère que c'est un petit peu plus clair
Merci encore
Philippe

[kjin]

Envoyé par fileofish

J'aimerai imprimer les donnees de tous ces villes (+de 200) y'a t-il une macro ou code qui permet de tous les imprimer un par un jusqu'à ce que la zone de liste soit vide

Bonjour,
Exprimé comme ça, ça revient à imprimer 200 feuilles, liste ou pas liste, et donc à boucler sur les 200 feuilles.
Sinon ça veut dire que la liste est variable et donc le fait qu'il y ait "200 feuilles" n'est pas important ?!
En attendant mieux
A+
kjin

[jeanpierre]

Bonjour kjin, tototiti2008, fileofish,

J'avais pensé aussi à 200 feuilles, mais à relire, je pense que toutes les données sont sur la même feuille et que la liste est plutôt un filtre..

Donc, là et sans plus, il me semble difficile de répondre d'autant que je suis peu macro sur ce type de problèmatique.

Bon WE tous.

Jean-Pierre

[pierrejean]

bonjour a tous

Ton problème a peu de chance de trouver une solution tant que tu n'auras pas pris la peine de faire un petit fichier exemple avec quelques lignes representatives et non confidentielles
Une copie de ton fichier dans lequel tu auras soustrait 195 villes et anonymisé les données restantes ferait très bien l'affaire

[kjin]

Bonjour à tous,
Je suis bien d'accord avec toi pierrejean
Si je retiens l'dée de jeanpierre, on ne peux pas, de toute façon, récupérer ni liste ni le chgt dans la liste (sauf à renvoyer la valeur sur une autre feuille).
Un essai simple, en ne touchant pas à la liste existante, et sans avoir testé l'impression.
A+
kjin

[La Vouivre]

Bonjour Kjin

J’ai cette macro en stock si tu est intéresser je te la passe
A installer dans un module
Eaye pour voir si cela te conviens
Sinon propose des changement ,peut etre qu’un excellien ou excelienne modifiera la macro
Bon week end
Bonne fete de la musique


Imprimer une Selection


'La première macro crée un bouton et l'installe en derniere position de ta
'barre standard.
'La deuxieme definit l'action a executer quand tu cliques sur le bouton.

Sub Definir_Bouton_Personalisé()
Dim MonBouton As CommandBarButton
Set MonBouton = CommandBars("standard").Controls.Add(msoControlBut ton)
With MonBouton
.FaceId = 4 'definit l'icone
.TooltipText = "Imprimer la selection" 'description de la fonction
.OnAction = "Impression_Selection" 'macro a executer
End With
End Sub



Sub Impression_Selection()
With ActiveSheet.PageSetup
.PrintArea = Selection.Address 'definit la zone d'impression
If Selection.Height > Selection.Width Then 'determine l'orientation
.Orientation = xlPortrait
Else
.Orientation = xlLandscape
End If
.CenterHorizontally = True 'paracheve la mise en page
.CenterVertically = True
End With
With ActiveSheet
.PrintOut 'lance l'impression
.PageSetup.PrintArea = False 'efface la zone d'impression
.DisplayPageBreaks = False 'efface les sauts de page
End With
End Sub

[fileofish]

Bonjour tout le monde,
Désolé pour ma réponse plus que tardive
Déjà un grand merci à ceux qui ont répondu.

Il s'agissait bien d'imprimer 200 feuilles !!!


La vouivre j'essaye ta macro dès que possible et je te tiens au courant

Merci encore
Philippe

[fileofish]

Salut Kjin,

Je viens d'essayer ta macro ca marche super...
C'est ce que je voulais
Est on obligé d'appuyer à chaque fois sur OK?
La Vouivre j'essaye ta macro ce week end peut être que ca répond à la question que je me pose
Je vous tiens au courant
Encore un grand merci
Philippe