Imprimer d'aprés un UserForm

Bonjour,

J'ai crée un formulaire pour récupérer des données. Sur ce formulaire, j'ai un bouton imprimer.

Actuellement, lorsque l'on clique dessus, on tombe sur un visualisation de la page à imprimer avec les données que j'aimerai imprimer.

Actuellement la feuille est pré-programmé et aucune donnée ne vient s'inscrire en face.

Quel est le code pour imprimer les données que je désire ?

Merci d'avance pour vos lumières

Bonsoir Richard58

Sans aucune donnée dans votre fichier, je dirais avec la fonction RECHERCHEV()

Il suffirait d'indiquer l'association dans la 1ère cellule et de rechercher toutes les autres informations

A+

Bonsoir,

le code pour le remplissage:

Private Sub CommandButton5_Click()
    Dim f_Impr As Worksheet
    Me.Hide
    Set f_Impr = Sheets("Imprim Fiche")
    With f_Impr
        .Range("B1").Value = TextBox1.Value 'Nom asso
        .Range("B2").Value = TextBox2.Value 'Fédé
        .Range("B3").Value = TextBox3.Value 'Sigle
        .Range("B4").Value = TextBox4.Value 'Sport
        .Range("B5").Value = TextBox5.Value 'Objet
        .Range("B6").Value = TextBox6.Value 'President nom
        .Range("B7").Value = TextBox7.Value 'President prénom
        .Range("B8").Value = TextBox10.Value 'Trésorier nom
        .Range("B9").Value = TextBox11.Value 'Trésorier prénom
        .Range("B10").Value = TextBox14.Value 'Secrétaire nom
        .Range("B11").Value = TextBox15.Value 'Secrétaire prénom
        .Range("B12").Value = TextBox22.Value 'Siège
        .Range("B13").Value = TextBox24.Value 'NB Adh
        .Range("B14").Value = TextBox25.Value 'Nb Sal
        .Range("B15").Value = TextBox29.Value 'Struct
        .Range("B16").Value = TextBox30.Value 'Subv
        .Range("B17").Value = TextBox31.Value 'Subv 1
        .Range("B18").Value = TextBox32.Value 'Subv 2
        .Range("B19").Value = TextBox33.Value 'Valo dispo
        .Range("B20").Value = TextBox34.Value 'Valo évent
    End With

    'Aperçu avant impression de la Imprim Fiche
    f_Impr.PrintPreview
    Me.Show
    Set f_Impr = Nothing
End Sub

Cdlt

Merci