XL 2016 Première valeur non vide dans Textbox

[karinette]

Bonjour à tous,

Comment pourrais-je recuperer la premiere valeur non vide dans une colonne, par le biais d'un Textbox ?
Je m'explique, j'ai ce code :
TextBox1.Value = Selection.End(xl1).Value
Le problème, c'est qu'il me donne la première valeur non vide en remontant, mais ce que j'aimerais, c'est la première valeur non vide en démarrant la colonne.

Dans mon exemple, il me faudrait "Valeur1" ...
Merci de votre aide

 

[job75]

Bonjour karinette,

TextBox1 = IIf(IsEmpty(ActiveCell), ActiveCell.End(xlDown), ActiveCell)

A+

 

[karinette]

Hello,
Je n'ai rien d'affiché dans le Textbox,sauf la valeur de la cellule active.
Je n'ai pas la valeur du haut de la colonne ...
Je mets mon fichier en PJ.

 

[job75]

Mon code utilise ActiveCell, c'est donc à partir de la cellule active que le calcul est effectué.

 

[karinette]

Lorsque je me place sur une cellule au hasard et que je lance mon USF, je ne récupère rien ...

 

[job75]

Maintenant si vous voulez calculer à partir de la cellule en ligne 1 :

Private Sub UserForm_Activate()
With Cells(1, ActiveCell.Column) 'en ligne 1
    TextBox1 = IIf(IsEmpty(.Value), .End(xlDown), .Value)
End With
End Sub

 

[karinette]

Super, c'est exactement ça !!
Encore merci