Discussion :

[Ardiden31]

Bonjour,

Je sollicite votre aide pour une macro qui ne s’exécute pas correctement.
J’ai un fichier Excel avec des données en A1 :K… :



J’ai mis en place une macro qui me permet de faire apparaitre un userform en cliquant sur chaque ligne au niveau de la colonne I.

Voici le code :

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
Private Sub UserForm_Initialize()
 
Dim f As Integer
Dim a As Integer
 
f = Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row
 
For a = 2 To f
 
If Range("K" & a) = "Oui" Then
CheckBox1.Value = True
End If
 
Me.Controls("Label1").Caption = Format((Range("A" & a)), "# ## ## ## ### ###")
 
Next a
 
End Sub

Et dans mon userform je reprends les données de la colonne en A en fonction de la ligne (si je clic sur K2 je vois les données de A2, si je clic sur K3 je vois les données de A3…).
Sauf qu’ici en cliquant sur les lignes je récupère toujours la même donnée.
Je sais qu’il y a un problème au niveau de ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Controls("Label1").Caption = Format((Range("A" & a)), "# ## ## ## ### ###")

Apres plusieurs recherches sur le site je n’ai pas réussi à résoudre mon problème.

Merci pour votre aide.

Loumie