bonjour,
encore une fois je crie à l'aide pour un problème sur lequel je butte.

j'ai un Usf2 qui me permet de faire la recherche d'un adhérent en se basant sur l'Id calculé sur nom+prenom
quand je clique sur bouton "Affichage fiche Adhérent", cela m'ouvre "Usf1 fiche adhérent" et a partir de l'ID cela doit remplir
les divers champs de cet Usf1.
c'est la que le bas blesse ou plutôt bug.
en effet le debogger me dit "variable non définie" en surlignant "label128_DateMAJ !!!!
on doit definir un label comme variable ?

merci d'avance pour vos réponses


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
38
39
40
41
42
Private Sub CommandButton1_Click()  ' affichage fiche adherent a l'aide du bouton de l'USF2
 
' on recupère la valeur du champ ID vers  feuille "DonnéesDiverses" A33
 
Sheets("DonnéesDiverses").Range("A33").Value = Label7_ID.Caption
 
Unload UserForm2    ' on ferme USF2 de recherche
 
 
' ouverture de USF1 qui affiche les données adhérents
UserForm1.Show
 
 
' recherche de la ligne concernant l'adhérent
 
Dim c As Range
Dim Lig As Long
Dim ID_Rech As String   ' on definit la variable ID_Rech
 
ID_Rech = Sheets("DonnéesDiverses").Range("A33").Value     ' valeur  de l' ID
 
With Sheets("Données_Adhérents")
 
' on determine le n° de la ligne
 
Set c = .Columns(4).Find(ID_Rech, LookIn:=xlValues, lookat:=xlWhole)
 
Lig = c.Row
 
'  ligne pour Test  a supprimer par la suite
Sheets("DonnéesDiverses").Range("A32").Value = Lig
 
' Transfert de toutes les données de l'adhérent de la feuille Données_Adhérents
' en fonction de la valeur de l'ID vers les champs de l'Userform1
 
 
 
 
' Transfert Données concernant identitée adhérent
 
Label128_DateMAJ.Caption = Sheets("Données_Adhérents").Range("A" & Lig).Value
TextBox1_Nom.Value = Sheets("Données_Adhérents").Range("B" & Lig).Value