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

[joe.levrai]

Bonjour,

c'est normal, dans ta boucle tu modifies ton label ... ce que fais qu'en sortant de ta boucle, peut importe où tu avais cliqué, tu va te retrouver avec la dernière valeur en A pour laquelle la cellule en K = "oui"

tu n'as absolument pas besoin d'une boucle si ton exposé est clair.

étant donné que c'est au click sur une cellule que tu enclenches la machinerie, base tout ton traitement sur Activecell pour connaître le numéro de la ligne et naviguer dedans

[mercatog]

Tu fais une boucle, évidement tu auras toujours la dernière ligne
Essaies comme ceci

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
Dim a As Long
 
a = ActiveCell.Row
Me.CheckBox1.Value = Range("K" & a) = "Oui"
Me.Label1.Caption = Format(Range("A" & a), "# ## ## ## ### ###")
End Sub

[Edit]

antonysansh
merci je corrige la coquille

[antonysansh]

Bonjour,

La réponse est dans la boucle.

Si tu boucles sur toutes les lignes à chaque fois tu affiches toujours la dernière ligne à oui.

Dans ton cas tu ne dois pas faire de boucle mais seulement récupérer les données de la ligne en question.

EDIT : Doublé par mercatog mais attention a la coquille, c'est End Sub et non End if

[Ardiden31]

Merci à vous trois pour votre aide