Microsoft 365 Programme VBA

PUCH · 13 Juillet 2023

Bonjour à tous,

Je rechercher un programme VBA qui permette d'imprimer une fiche de base par adresse figurant dans une autre feuille "Données de base.
Élément clé : la cellule N4 dans la fiche de base qui détermine la ligne à utiliser dans la feuille "Données adresse".
Pour info, les cellules qui récupèrent les informations dans la fiche de base utilisent la fonction Décaler.
A noter : la possibilité de n'imprimer qu'une plage d'adresse avec les bornes contenues dans les cellules T4 et U4 de la fiche de base.
A voir si plus pratique de créer des feuilles à la suite dans ce classeur ou de créer un classeur spécifique.

Explications également dans le classeur joint.

Merci par avance à tous

Cordialement

Lolote83 · 13 Juillet 2023

Re bonjour,
N'hésite pas si la solution proposée est OK, de passer le post relatif à la solution est RESOLU (coche verte à droite)
@+ Lolote83

Lolote83 · 13 Juillet 2023

Bonjour,
Avec ce code, cela devrait le faire

VB:

Sub Imprime()
    Application.ScreenUpdating = False
    With Sheets("Fiche de base")
        xDeb = .[T4]
        xFin = .[U4]
        For F = xDeb To xFin
            .[N4] = F
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next F
    End With
    Application.ScreenUpdating = True
    MsgBox "IMPRESSION PLAGE  " & xDeb & "  -  " & xFin & "  terminée !!!", vbInformation, "IMPRESSION"
End Sub

@+ Lolote83

PUCH · 13 Juillet 2023

Bonjour,

Après un déclaration des variables ce code marche parfaitement.

Merci beaucoup.

Lolote83 · 13 Juillet 2023

Re bonjour,
N'hésite pas si la solution proposée est OK, de passer le post relatif à la solution est RESOLU (coche verte à droite)
@+ Lolote83

Microsoft 365 Programme VBA

PUCH

XLDnaute Nouveau

Pièces jointes

Lolote83

Lolote83

XLDnaute Barbatruc

PUCH

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

Discussions similaires