Discussion :

[Thierry2B]

Bonjour,
Il semble que mon 1er message ne soit pas passé. Je vous le renvoie donc.
Mon problème est le suivant: je saisis des données dans un userform qui sont envoyées dans un sheet. Des calculs de conformité sont effectués. Je souhaite récupérer certains de ces calculs dans le userform au niveau de listbox. Les données saisies s'incrémentant, seule la valeur de la dernière ligne doit être renvoyée. A l'heure actuelle, j'ai bien le retour au niveau de ma listbox, mais de la colonne entière !
Quelqu'un a t-il la solution ?
Merci d'avance.
Cordialement

[rvtoulon]

Bonjour,

A l'heure actuelle, j'ai bien le retour au niveau de ma listbox, mais de la colonne entière !

Très bien. Peux-tu mettre le code STP parce que :

seule la valeur de la dernière ligne doit être renvoyée

Oui, mais de quelle feuille, de quelle colonne etc...?
Peux-tu en dire un peu plus stp.

[Thierry2B]

Bonjour,
le code est le suivant:

Code :

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

1
2
3
With Sheets("BD").Range("L1")
         Me.ListBox1.RowSource = "BD!L1:L1" & Sheets("BD").Cells(1, 12).End(xlDown).Row
     End With

[rvtoulon]

Re,
je ne sais pas si j'ai bien compris:
Tu veux mettre dans la listbox la valeur de la dernière cellule utilisée de la colonne L?

si c'est çà alors :

Code :

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

Me.ListBox1.AddItem Sheets("BD").Range("L" & Rows.Count).End(xlUp).Value

[pgz]

Bonjour.

Question de curiosité : cela sert à quoi une listbox avec une seule valeur?

PGZ

[Thierry2B]

Bonjour,
Un grand merci à rvtoulon. Cela fonctionne enfin. J'ai tout de même mis ce code dans un bouton de commande car la valeur renvoyée était celle de la ligne précédente.
Maintenant, je valide mes données et ensuite je demande le retour de la dernière cellule colonne L.
Quant au choix de la listbox, en fait peu m'importe que ce soit une textbox, combobox ou listbox, je voulais juste un retour d'information dans une box. Comme j'ai différents contrôles en retour sur différentes colonnes et que certains sont numériques, la textbox me semblait proscrite et je souhaitais éviter une cascade de msgbox.
En fait, j'essaie d'apprendre, tout cela est très interressant mais parfois très obscur !!!
Encore merci et à bientôt
Très certainement.

[Thierry2B]

Re
Ça n'a pas duré longtemps.

Qu'y a t-il d'anormal dans ces lignes ?

Code :

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

1
2
3
4
5
6
7
Private Sub CMD2_Click()
 
 Me.ListBox1.AddItem Sheets("BD").Range("L" & Rows.Count).End(xlUp).Text
 Me.ListBox2.AddItem Sheets("BD").Range("AB" & Rows.Count).End(xlUp).Text
 Me.ListBox3.AddItem Sheets("BD").Range("AE" & Rows.Count).End(xlUp).Text
 
End Sub

Dans mon Usf, je reçois bien "L" mais pas "AB" ni "AE".
"L" me renvoie un horaire, "AB" et "AE" devraient me renvoyer le message "x discordances" en fonction des calculs effectués dans les colonnes les précédant.

Merci de votre patience !
@ +

[mercatog]

Utilise une seule ListBox (ListBox1) avec propriété ColumnCount à 3.
(Je rejoins la remarque sur l'utilité d'une listbox pour afficher une seule donnée)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CMD2_Click()
Dim LastLig As Long
 
LastLig = Sheets("BD").Range("L" & Rows.Count).End(xlUp).Row
With Me.ListBox1
    .Clear
    .AddItem Sheets("BD").Range("L" & LastLig).Value
    .List(0, 1) = Sheets("BD").Range("AB" & LastLig).Value
    .List(0, 2) = Sheets("BD").Range("AE" & LastLig).Value
End With
End Sub

[Thierry2B]

Bonjour,
Merci mercatog. Le code fonctionne très bien.
Le choix de la listbox était arbitraire. Sans vouloir abuser, quel serait le code pour un retour vers 3 textbox ?

Merci beaucoup !