Urgent! Bug pour l'exportation de données depuis excel vers Userform

Question

Bonjour tout le monde J’espère ne pas être trop brusque, mais voici une demande urgente. J’essaie de programmer sous VBA dans Excel pour faciliter le travail au sein de mon département (consultation de base de données etc.). Je suis donc débutant et un simple amateur. J’ai développé une base avec consultation via userform grace au fichier fc-pap-userforms d’excelabo. En m’en inspirant, je voulais créer des fiches partenaires facilement consultable. Tout fonctionne sauf l’importation de données de ma base apres avoir choisi le nom du partenaire à partir de ma listbox. Je voudrais utiliser la valeur de la selection effectuée par l’utilisateur, afin d’identifier la ligne de ma base contenant les informations à reporter sur le formulaire. Voici le code ecrit à partir d'un exemple simplifié de ma base : ListPartenaires = nom de la listebox dans le userform UsfSelect Les noms des partenaires se trouvent dans la colonne A de la Feuil1 LblNom = le nom du partenaire que je souhaite récupérer depuis ma colonne Feuil1!A LblContact = le nom du contact dans la colonne C LblEmail = Email qui se trouve dans la colonne D Code sur UsfSelect Private Sub UserForm_Initialize() ListPartenaires.RowSource = ("Feuil1!Partenaire") End Sub Private Sub ListPartenaires_Click() NumPartenaire = ListPartenaires.Value With Sheets("Feuil1").Range("a:a") Set c = .Find(NumPartenaire, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then Lig = c.Row End With Unload UsfSelect UsfTransfert.Show End Sub Code sur UsfTransfert Private Sub UserForm_Initialize() Dim Plus As String LblNom.Caption = Range("Feuil1!A" & Lig).Value LblContact.Caption = Range("Feuil1!C" & Lig).Value LblEmail.Caption = Range("Feuil1!D" & Lig).Value End Sub En exécutant les Userform, lorsque je click sur le nom du partenaire choisi, j’obtiens une erreur d’exécution 1004, la methode range de l’objet global a échouée. Le débogueur me surligne en jaune UsfTransfert.Show dans UsfSelect Merci beaucoup pour votre aide !

valtrase · Answer

Vi,
With Sheets("Feuil1").Range("a:a")
Ceci est mal cod&#233; tu ne doit pas utiliser .Range pour cela
With Sheets("Feuil1").Columns("A:A")
Si tu veux Utiliser .Range tu dois lui donner une cellule de d&#233;part et d'arriv&#233;e
With Sheets("Feuil1").Range("A1:A100")

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Re,
Ne tiens pas compte de mon message je d&#233;lire c'est le d&#233;but de soir&#233;e
as tu d&#233;clar&#233; ta variable lig en public ?
Si ce n'est pas le cas soit tu la d&#233;clares en public soit tu charges tes labels depuis ta premi&#232;re UserForm
Il faut aussi v&#233;rifier qu'elle ne soit pas &#224; z&#233;ro (Si pas trouv&#233;)

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Nipaqu · Answer

Merci pour tes r&#233;ponses Valtrase,


Tu as mis le doigt dessus! C'est exactement ce qui me manquait. Je ne travaillais qu'en private et ma variable n'&#233;tait donc pas reconnu par l'userform vers laquelle je devais exporter les donn&#233;es.


Toput est ok d&#233;sormais, merci pour ton aide


Bye

Urgent! Bug pour l'exportation de données depuis excel vers Userform

3 réponses

Discussions similaires