Impression en boucle

Bonjour

Comment je fais pour automatiser une tâche d'impression en boucle?

J'aimerais quand je lance le code, il va chercher dans la colonne "I" Catégorie de la feuille rapport le mot dépôt.

Chaque ligne trouvée, il sélectionne la rangée ("A:H") et copie les données pour les coller en colonne sur la feuille "Dépôt" qui a les mêmes champs.

Une boîte de dialogue qui me demande si je souhaite imprimer la feuille avec la sélection.

vbyes, on imprime la feuille dépôt et on passe à la prochaine sélection

vbno, on passe à la prochaine sélection.

Une impression en boucle jusqu'à la fin de la colonne "I"

Merci pour votre aide à l'avance!

Bonjour lyttonjr

Comme vous demander quelque chose, faites le correctement SVP

La colonne "I" est la colonne adresse, il n'y a aucun mot dépôt dedans...

De plus dans la feuille "Dépôt" que mettez vous dans la cellule D5 !?

A+

Bonsoir

Désolé pour l'erreur d'attention.

En effet, je voulais dire colonne "J" de la feuille Rapport.

en "D5" feuille dépôt, c'est la valeur en colonne "A" de la feuille rapport qui va là.

Merci

bonjour,

Sub Dépot()
     Dim Feuil, i, j
     Set Feuil = Sheets("Dépôt")
     With Sheets("Rapport").Range("A1").CurrentRegion     'cette plage avec données
          For i = 2 To .Rows.Count     'de la 2ième vers derniere ligne
               For j = 1 To 8     'les 8 colonnes
                    Feuil.Range("D" & j * 2 + 3).Value = .Cells(i, j).Value     'coller dans dépôt
               Next
               Feuil.PrintPreview     'dans cette écran on peut choisir d'imprimer ou pas
          Next
     End With
End Sub

Bonjour lyttonjr, BsAlv,

D'après ce que vous dites, il y a une façon "simple" de remplir la fiche de dépôt

Il suffit d'utiliser la fonction RECHERCHEV() dans toutes les cellules bleue en prenant en compte la cellule D5

Le code ne fait alors que remplir cette fameuse cellule D5

A+

Bonjour

Merci pour les deux approches fonctionnelles.

J'aurais voulu ces points dans les propositions:

Un bouton annuler dans la boîte de dialogue si je veux sortir de la boucle. Un exit sub

En exécutant le code, je souhaiterais rester sur la feuille dépôt et surligner la ligne dépôt active à mesure que je fasse le choix dans la boîte de dialogue.

Encore une fois, merci pour tout.