XL pour MAC j'ai un petit programme à terminer mais je n'y arrive pas

grivot

XLDnaute Nouveau
je vous explique

je doit imprimer des reçu au nombre de 300 pour nos calendriers, ses reçus doivent contenir plusieurs cellule ( nom, l'adresse et la somme)
je clique sur imprimer et ça imprime tous en même temps en remplissant automatiquement les cellules

j'ai réussi a créé la macro pour imprime les 300 a la suite mais il y a que la premier ligne qui change je ne comprend pas ce qu'il faut faire pour que les autres se modifie en même temps
quelqu'un peux m'expliquer ou m'aider svp

merci
 
Dernière modification par un modérateur:

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Grivot,
Essayez cette Pj avec :
VB:
Sub Impression()
    Dim i%, wsF As Worksheet
    Set wsF = Worksheets("RECU")
    With Worksheets("Liste")
        DL = .Range("A65500").End(xlUp).Row     ' Dernière ligne de la liste
        For i = 2 To DL
            wsF.Range("E3") = .Cells(i, "D")    ' Nom complet
            wsF.Range("F5") = .Cells(i, "G")    ' Adresse
            wsF.Range("H7") = .Cells(i, "I")    ' Somme
            wsF.Range("H7") = .Cells(i, "E")    ' Date
            wsF.Range("H7") = .Cells(i, "A")    ' Classe
            DoEvents
            wsF.PrintOut
            DoEvents
        Next i
    End With
End Sub
A chaque cycle il faut réactualiser l'ensemble des données du bon à imprimer.
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour grivot :),

J'ai bien peur que les coordonnées des personnes de votre fichier soient des coordonnées de personnes réelles :eek:. Ceci est un manquement au RGPD et à la politique de XLD. Voir le lien sur la CNIL.

Extrait de la charte de XLD (1er article) :

Charte/Règlement des forums XLD​


Pour tous​

1 - Conformité RGPD

Tout message ou fichier déposé sur ce site ne doit pas comporter de données à caractère personnel (DCP).
Il convient d’anonymiser toutes les données permettant d’identifier directement ou indirectement une personne.
XLD ne saurait être tenu responsable au cas où un visiteur du site posterait des données non conformes à la législation en vigueur.
Si vous détectez une non conformité, merci d'alerter le webmaster de ce site : webmaster@excel-downloads.com, nous supprimerons les données dans les plus brefs délais.

Si c'est le cas, veuillez supprimer votre fichier et le remplacer par un fichier anonymisé le plus rapidement possible.

Merci ;),
 
Dernière édition:

cp4

XLDnaute Barbatruc
Bonjour, à tester
VB:
Sub Impression()
   Dim i%, wsF As Worksheet
   Set wsF = Worksheets("RECU")
   Application.DisplayAlerts = False
   With Worksheets("Liste")
      For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row 'nb ligne en colonne A
         wsF.Range("E3") = .Cells(i, 4)
         wsF.Range("F5") = .Cells(i, 8)
         wsF.Range("R16") = .Cells(i, 1)
         wsF.Range("H7") = .Cells(i, 9)
         wsF.PrintOut
      Next i
   End With
   Application.DisplayAlerts = True
End Sub
 

Discussions similaires