Afficher des données d'un fichier dans un userfrom

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

CATA56

XLDnaute Nouveau
Bonjour à tous,
Je suis débutant en VBA et USERFORM et j'ai besoin de votre aide.
Dans le fichier joint, j'ai réalisé 2 userform.
Le premier vient compléter une base de donnée "bdcontact", jusque là ça fonstionne et le deuxième vient visualiser une fiche suivant le choix de la société. Là ça bloque.
Lorsque je fais les tests quand j'ai fais la programmation du USERFORM avec le F5 cela fonctionne mais dès que j'appelle le USERFORM via le bouton "consulter une fiche contact" ça ne marche plus.

Si quelqu'un pouvait me dire ce que je fais de travers, je le remercie par avance.

J'aurai certainement d'autres questions à suivre pour mon projet.

Merci pour vos réponses.
 

Pièces jointes

Re : Afficher des données d'un fichier dans un userfrom

Bonjour CATA56,

Il te manque les points (.) quand tu fais référence aux cellules puisque tu utilises l'instruction With / end With

Code:
Private Sub mdrsociete_Change()
    With Sheets("bdcontact")
        Textnom = .Cells(mdrsociete.ListIndex + 3, 3)
        Texttitre = .Cells(mdrsociete.ListIndex + 3, 4)
        Textadressecommerciale = .Cells(mdrsociete.ListIndex + 3, 5)
        Textweb = .Cells(mdrsociete.ListIndex + 3, 6)
        Textfax = .Cells(mdrsociete.ListIndex + 3, 7)
        Texttelfixe = .Cells(mdrsociete.ListIndex + 3, 8)
        Texttelportable = .Cells(mdrsociete.ListIndex + 3, 9)
        Textemail = .Cells(mdrsociete.ListIndex + 3, 10)
        Textadressefacturation = .Cells(mdrsociete.ListIndex + 3, 11)
        Textecheance = .Cells(mdrsociete.ListIndex + 3, 12)
        Texttransport = .Cells(mdrsociete.ListIndex + 3, 13)
        Texttypepaiement = .Cells(mdrsociete.ListIndex + 3, 14)
        Textminifac = .Cells(mdrsociete.ListIndex + 3, 15)
        Textrcs = .Cells(mdrsociete.ListIndex + 3, 16)
        Textsiret = .Cells(mdrsociete.ListIndex + 3, 17)
        Textcompte = .Cells(mdrsociete.ListIndex + 3, 18)
        Textadresselivraison = .Cells(mdrsociete.ListIndex + 3, 19)
    End With
End Sub

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour