Afficher la dernière valeur non vide dans TextBox

fanfan38

XLDnaute Barbatruc

• 9 Septembre 2019

• #2

Bonjour,
Un fichier est TOUJOURS le bienvenu
derlig=range("P"&rows.count).end(xlup).row
textbox1.value=range("P"&derlig).value
A+ François

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 9 Septembre 2019

• #3

fanfan38 à dit:

Bonjour,
Un fichier est TOUJOURS le bienvenu
derlig=range("P"&rows.count).end(xlup).row
textbox1.value=range("P"&derlig).value
A+ François

Cliquez pour agrandir...

Bonjour Francois
merci pour la remarque
ci joint le fichier
a+

 

Pièces jointes

• charlie TextBox derniere cellule non vide.xlsm

  69.3 KB · Affichages: 15

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 9 Septembre 2019

• #4

Ci joint ma réponse ...
Si ton textbox est bien Ref_kdtt...

A+ François

 

Pièces jointes

• charlie TextBox derniere cellule non vide.xlsm

  71.2 KB · Affichages: 58

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 9 Septembre 2019

• #5

Bonjour le forum
Bonjour chaelie2015, fanfan38

A ta place, je placerai le résultat de notre ami François dans le Label26. Ainsi, tu auras directement le n° d'enregistrement lors de la visualisation de ton UserForm

VB:

Private Sub UserForm_Activate()
derlig = Range("P" & Rows.Count).End(xlUp).Row
Label26.Caption = Range("P" & derlig).Value
End Sub

Bonne après-midi à toutes & à tous
@+ Eric c

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 9 Septembre 2019

• #6

Bonjour Eric,
Re François
merci pour les réponses
Mon souci est résolut
a+

 

Vote positif 0 Vote négatif