J'ai créé une petite étude qui me permet de voir l'etat de mes ventes par
intermédiaire. J'ai une cell en A1 qui est validé par une liste (celle de
mes intermédiaires nommée ("liste_intermediaires"). Mon boss me demande
d'imprimer toutes ces etudes maintenant, et je ne me vois pas cliquer 500
fois sur la liste pour faire une à une les études.
Y a t il un code simple pour faire décaler dans ma liste ma valeur en A1,
imprimer, décaler de nouveau .... jusqu'à la fin de ma liste?
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
Joel
Bonjour Choko !!
En supposant que la liste de validation s'appelle "MaPlage" :
Sub ImpressionEnBoucle() Dim oCell As Range For Each oCell In Range("MaPlage") Range("A1").Value = oCell.Value ActiveSheet.PrintOut Next End Sub
Bon Courage --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "choko" a écrit dans le message de news:%
Bonjour à tous,
J'ai créé une petite étude qui me permet de voir l'etat de mes ventes par intermédiaire. J'ai une cell en A1 qui est validé par une liste (celle de mes intermédiaires nommée ("liste_intermediaires"). Mon boss me demande d'imprimer toutes ces etudes maintenant, et je ne me vois pas cliquer 500 fois sur la liste pour faire une à une les études. Y a t il un code simple pour faire décaler dans ma liste ma valeur en A1, imprimer, décaler de nouveau .... jusqu'à la fin de ma liste?
Merci pour vos conseils.
Choko
Bonjour Choko !!
En supposant que la liste de validation s'appelle "MaPlage" :
Sub ImpressionEnBoucle()
Dim oCell As Range
For Each oCell In Range("MaPlage")
Range("A1").Value = oCell.Value
ActiveSheet.PrintOut
Next
End Sub
Bon Courage
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"choko" <choko04@yahoo.fr> a écrit dans le message de
news:%23ugrIshoEHA.2300@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
J'ai créé une petite étude qui me permet de voir l'etat de mes ventes par
intermédiaire. J'ai une cell en A1 qui est validé par une liste (celle de
mes intermédiaires nommée ("liste_intermediaires"). Mon boss me demande
d'imprimer toutes ces etudes maintenant, et je ne me vois pas cliquer 500
fois sur la liste pour faire une à une les études.
Y a t il un code simple pour faire décaler dans ma liste ma valeur en A1,
imprimer, décaler de nouveau .... jusqu'à la fin de ma liste?
En supposant que la liste de validation s'appelle "MaPlage" :
Sub ImpressionEnBoucle() Dim oCell As Range For Each oCell In Range("MaPlage") Range("A1").Value = oCell.Value ActiveSheet.PrintOut Next End Sub
Bon Courage --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "choko" a écrit dans le message de news:%
Bonjour à tous,
J'ai créé une petite étude qui me permet de voir l'etat de mes ventes par intermédiaire. J'ai une cell en A1 qui est validé par une liste (celle de mes intermédiaires nommée ("liste_intermediaires"). Mon boss me demande d'imprimer toutes ces etudes maintenant, et je ne me vois pas cliquer 500 fois sur la liste pour faire une à une les études. Y a t il un code simple pour faire décaler dans ma liste ma valeur en A1, imprimer, décaler de nouveau .... jusqu'à la fin de ma liste?
