création d un bouton.

[yoziga]

bonjour a tous,
voilà j ai un problème a résoudre.
je voudrais crée un bouton impréssion,qui lance une impression en fonction d'une liste.
car en fonction du non qui est dans la liste ca me change le tableau.
c est pour une facturation car j en ai marre de changer le non puis d imprimer et cela pas loin de 80 fois.
Pleaze help me.
Au plaisir de vous lire Yoziga.

 

[phlaurent55]

Re : création d un bouton.

Bonjour yosiga et bienvenue sur le forum

voir d'abord sur le lien ci-dessous
Lien supprimé
et plus particulièrement le point 3C

reviens avec un fichier qui nous servira de base pour mieux cerner ton problème et mieux te répondre

à+
Philippe

 

[yoziga]

Re : création d un bouton.

Merci philippe.
c est donc pour l onglet facture.

 

[phlaurent55]

Re : création d un bouton.

Re,

Merci philippe.
c est donc pour l onglet facture.

et le fichier il est où ?


à+
Philippe

 

[yoziga]

Re : création d un bouton.

grosse galère pour envoyer le fichier
a+ yoz

 

[phlaurent55]

Re : création d un bouton.

Re,

ce que tu viens de joindre au post #1 n'est qu'une "photo" de ton écran
et donc difficilement exploitable

Clique sur "Aller en mode avancé" avant d'envoyer ton message, ensuite descend un peu plus bas dans la page à la rubrique "Options supplémentaires" et clique sur "Gérer les pièces jointes"
ensuite "Parcourir"
là tu sélectionnes ton fichier maximum 48Ko, éventuellement le zipper (compresser)
ensuite
"Envoyer"
et enfin "Envoyer la réponse"

à+
Philippe

 

[yoziga]

Re : création d un bouton.

voilà tout est là.
merci phil

 

[phlaurent55]

Re : création d un bouton.

Re,

ton fichier en retour
voici le code

Sub Macro2()
' définir la zone d'impression
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$57"
' boucler l'impression en fonction du nombre de noms en colonne K
For i = 3 To Range("K65535").End(xlUp).Row
' mettre le nom en B3
[B3] = Cells(i, 11).Value
' Imprimer la feuille
ActiveSheet.PrintOut
' passer au nom suivant
Next i
End Sub

à+
Philippe

 

[yoziga]

Re : création d un bouton.

Merci Philippe ca fonctionne.
mais comme je suis un peut novice je voudrait comprendre ces lignes de code:

' boucler l'impression en fonction du nombre de noms en colonne K
For i = 3 To Range("K65535").End(xlUp).Row
' mettre le nom en B3
[B3] = Cells(i, 11).Value

pourquoi i=3 ,c est quoi "k65535"?

et en plus je voudrait si c est possible que si le total de la facture =0,00 elle ne s'imprime pas.
merci infiniment philippe pour cette aide si précieuse.
au plaisir de te lire.

 

[phlaurent55]

Re : création d un bouton.

Re,

la boucle va chercher tous les noms qui se trouvent en colonne K
dans cette colonne K, le premier nom se trouve dans la ligne 3 For I = 3 To ..........

Range("K65535").End(xlUp).Row détermine la position du dernier nom de la colonne K

ton fichier en retour adapté pour ne pas imprimer la facture si le total est égal à zéro

à+
Philippe

 

[yoziga]

Re : création d un bouton.

merci pour toute ces explications.
tu es très fort et moi tellement inculte mais je me perfectionne de jour en jour grace a vous.
au paisir de vous lire.
Yoz.