XL 2016 Première valeur non vide dans Textbox

job75

XLDnaute Barbatruc

• 13 Février 2023

• #2

Bonjour karinette,

VB:

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

A+

 

Vote positif 0 Vote négatif

K

karinette

XLDnaute Occasionnel

• 13 Février 2023

• #3

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.

 

Pièces jointes

• Valeur_du_haut.xlsm

  16.9 KB · Affichages: 1

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Février 2023

• #4

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

 

Vote positif 0 Vote négatif

K

karinette

XLDnaute Occasionnel

• 13 Février 2023

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Février 2023

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

K

karinette

XLDnaute Occasionnel

• 13 Février 2023

• #7

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

 

Vote positif 0 Vote négatif