Récupérer une valeur calculée sur un sheet pour le renvoyer dans une listbox

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

Bonjour,

Citation:

---

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 :

Citation:

---

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.

Bonjour,
le code est le suivant:

Code:

---

1 2 3

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

---

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:

---

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

---

Bonjour.

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

PGZ

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.

Re
Ça n'a pas duré longtemps.

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

Code:

---

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 !
@ +

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:

---

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

---

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 !