excel - imprimer en boucle tant que cellule non vide dans une autre pas

Question

Bonjour, 

étant novice dans Excel, j'ai copier un belle formule d'impression et après un soirée à fouiller sur les forum, je requière votre aide.
 Ce que j'essaie de faire:
- Aller dans la feuille " liste trav auto" 
- prendre les infos des cellule de A1 à G1
- recopier les infos dans la feuille " Trav auto facture"
- Imprimer 
- et recommencer la boucle avec les cellules de A2 à G2

Jusque la tout va bien

Mais, il faudrait que j'ajoute une condition:
- si dans la colonne G, une cellule est vide alors arrêter l'impression

Merci


' impression Macro
'
    Dim i%, wsF As Worksheet
    Set wsF = Worksheets("Trav auto facture")
    With Worksheets("liste trav auto")
    
  
        For i = 2 To 43

            wsF.Range("B3") = .Cells(i, 1)
            wsF.Range("B5") = .Cells(i, 2)
            wsF.Range("B6") = .Cells(i, 3)
            wsF.Range("B8") = .Cells(i, 4)
            wsF.Range("B10") = .Cells(i, 5)
            wsF.Range("B12") = .Cells(i, 6)
            wsF.Range("B15") = .Cells(i, 7)
            wsF.PrintOut
         
         Next i
        
    End With
    
End Sub



Configuration: Windows / Chrome 89.0.4389.128

f894009 · Answer

Bonjour,

colonne G, une cellule est vide alors arrêter l'impression
Peu importe laquelle ou c'est la fin de liste?

sebas_1987 · Answer

Bonjour,

C'est la fin de la liste.

Merci de ton aide

f894009 · Answer

Bonjour,

Une facon de faire:
Sub test()
    Dim i As Long, wsF As Worksheet
    
    Set wsF = Worksheets("Trav auto facture")
    With Worksheets("liste trav auto")
        i = 2
        Do While .Cells(i, 7) <> ""
            wsF.Range("B3") = .Cells(i, 1)
            wsF.Range("B5") = .Cells(i, 2)
            wsF.Range("B6") = .Cells(i, 3)
            wsF.Range("B8") = .Cells(i, 4)
            wsF.Range("B10") = .Cells(i, 5)
            wsF.Range("B12") = .Cells(i, 6)
            wsF.Range("B15") = .Cells(i, 7)
            wsF.PrintOut
            i = i + 1
        Loop
    End With
End Sub

Excel - imprimer en boucle tant que cellule non vide dans une autre pas

3 réponses

Newsletters