Problème de macro affichage de valeurs dans userforms

Bonjour à tous,


J'ai un soucis dans mon code VBA je pense car absolument rien ne s'affiche dans mes label de mes users forms.

Pour résumer j'ai un user form qui s'affiche et je veux que s'affiche certaines infos de ma plage article


Voici donc dans mon module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

Option Explicit   Dim Ancien_code Dim Nouveau_code Dim Libel_Français_N Dim Libel_Français_U Dim Libel_Anglais_N Dim Libel_Anglais_U Dim article_indentique Dim Libel_correct Dim Libel_pec_français Dim Libel_pec_anglais     Dim I As Integer     Sub Recherche_plage()   I = 1 Sheets("Tous articles").Activate Range("M2").Select   Do Until ActiveCell.Value = "" ActiveCell.Offset(1, 0).Select I = I + 1 Loop   Ancien_code = Selection.Offset(0, 1).Value Nouveau_code = Selection.Offset(0, 2).Value Libel_Français_N = Selection.Offset(0, 6).Value Libel_Français_U = Selection.Offset(0, 5).Value Libel_Anglais_N = Selection.Offset(0, 4).Value Libel_Anglais_U = Selection.Offset(0, 3).Value     End Sub

---

Globalement je veux que la macro me recherche la première cellule vide dans ma colonne M et me renvois les valeurs correspondant sur la même ligne.

Lorsque je clique donc sur le bouton j'ai donc :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub ToggleButton1_Click()   Unload Bienvenue   Load LIBB With LIBB Recherche_plage   .ancode.Caption = Ancien_code (ce sont les noms de mes labels) .nvcode.Caption = Nouveau_code .frnodhos.Caption = Libel_Français_N .frunidata.Caption = Libel_Français_U .annodhos.Caption = Libel_Anglais_N .anunidata.Caption = Libel_Anglais_U   End With LIBB.Show

---

pour que s'affiche mon USERFORM avec les infos correspondante.

Et bien ça ne marche pas du tout je n'ai absolument rien dans mes label !

End Sub

Merci pour votre éclairage car j'ai essayé plusieurs variations et rien... :(

Bonjour,

Et de cette façon ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Recherche_plage()   Dim Fe As Worksheet Dim Lgn As Long   Set Fe = Sheets("Tous articles") Fe.Activate   With Fe: Lgn = .Cells(.Rows.Count, 13).End(xlUp).Row: End With   Ancien_code = Fe.Cells(Lgn, 14).Value 'colonne N Nouveau_code = Fe.Cells(Lgn, 15).Value 'colonne O Libel_Français_N = Fe.Cells(Lgn, 16).Value 'colonne P Libel_Français_U = Fe.Cells(Lgn, 17).Value 'colonne Q Libel_Anglais_N = Fe.Cells(Lgn, 18).Value 'colonne R Libel_Anglais_U = Fe.Cells(Lgn, 19).Value 'colonne S   End Sub

---