Imprimer par nom

Bonjour le forum

Je voudrais imprimer en affichant le nom de famille

Dans le userform (je suis un peu dépassé)

Toutes les lignes ou se trouve ce nom

Je joins un fichier essai

Cordialement

Aiglon 74

Bonjour

Si j'ai bien compris ta demande, il s'agissait de mettre les noms dans l'UserForm pour choisir avant impression ?

Si c'est ça, voilà :

Bye !

re

pour mettre le nom dans le userform

sans ascenseur je le tape

mais pour imprimer c'est la que je bloque

aiglon74

Bonjour

Après ajout d'une autre ligne de titre

Cordialement

bonjour Amadeus

je viens de teste ton fichier

le hic pas tout compris

tu pourrais détaillé

dans ma base

comment faire réapparaitre les lignes qui sont "filtré" je pense

A+

aiglon74

Bonjour

Code du bouton Imprimer

Private Sub CmbValider_Click()
Sheets("BASE").Activate
Sheets("BASE").Range("c5") = TextBox1.Value
Range("B7").Select
    Range("B7:G26").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("B4:G5"), Unique:=False
    Range("B7").Select
        Range("A1:G27").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$G$27"
    Selection.PrintOut Copies:=1, Collate:=True
    Range("A1").Select
End Sub

Pour tout afficher

Code du Bouton en G1 dans Module1

Sub Afficher_tout()
    ActiveSheet.ShowAllData
End Sub

Cordialement

bonsoir

problème la feuille base apparait a l'impression

et la PrintArea et bloquer "$A$1:$G$27"

je voudrais pouvoir imprimer avec un aperçu avant

et ma base en réel aura +1000 lignes

cordialement

aiglon74