Boucle pour impression

Question

Je début le VBA et j'ai déjà réaliser quelque petit chose qui mon facilité la vie ainsi qu'à mais collègue voila ce qui m'amène ici j'ai fait une MACRO qui imprime une fiche de chargement en fonction du n° de commande ,il suffit de sélectionner la case dans un tableau en feuille 2 puis de cliquer sur le bouton imprimer sur la feuille 1 maintenant je voudrais sélectionner la première case et tous imprimer jusqu'a la première case de la colonne vide merci d'avant à tous ceux qui ce pencherons sur mon problème...

ThauThème · Accepted Answer

En effet c'est bien plus parlant... Je te propose le code ci-dessous (non testé) à appliquer au bouton IMPRIMER TOUS : Public Sub Boucle() Dim F As Object 'déclare la variable F (onglet Fiche de chargement) Dim L As Object 'déclare la variable L (onglet Liste des chargements) Dim LA As Integer 'déclare la variable LA (Ligne de la cellule Active) Dim DL As Integer 'déclare la variable DL (Dernière Ligne) Dim LI As Integer 'déclare la variable LI (LIgnes) Application.ScreenUpdating = False 'masque les rafraîchiessements d'écran Set F = Sheets("fiche de chargement") 'définit l'onglet F Set L = Sheets("liste des chargements") 'définit l'onglet L L.Select 'sélectionne l'onglet L LA = ActiveCell.Row 'définit la ligne de la cellule active LA 'définit la ligne de la dernière cellule éditée de la colonne 3 (=C) DL = Cells(Application.Rows.Count, 3).End(xlUp).Row F.Select 'sélectionne l'onglet F For LI = LA To DL 'boucle sur toutes les lignes LI de LA à DL F.Range("B3").Value = L.Cells(LI, 3) 'récupère en B3 de l'onglet F la valeur de la ligne LI, colonne 3, de l'onglet L F.Calculate 'lance le calcul pour mettre à jour l'onglet F Call IMPRESSION 'lance la procédure "IMPRESSION" Next LI 'prochaine ligne de la boucle Application.ScreenUpdating = True 'affiche les rafraîchiessements d'écran End Sub...

ThauThème · Answer

Tu ne précises pas le nom de l'onglet, "Feuille 2" (?), ni la colonne, ni l'adresse de la cellule... Ni le code que tu utilises actuellement... Bref, tu demandes de l'aide mais ne fournis pas les explications nécessaires pour qu'on puisse le faire.....