Controle REFEDIT et EVENEMENT

[BRUNO I]

Forum , bien le bonjour.

Dans un Usf, j'utilise un Refedit qui me sert à selectionner une plage de cellule.
Est il possible par le biais d'un évènement qu'a chaque sélection de la première cellule d'une colone, la séléction s'étend automatiquement à la fin de cette même colone, ou encore mieux à la dernière ligne contenant des données ?

Merci de l'aide que vous pourrez m'apporter .

A bientot.

Bruno

 

[Zon]

Salut,

l'évènement Change devrait convenir, testes ceci :

Private Sub RefEdit1_Change()
If Range(RefEdit1.Value).Cells(1, 1).Row = 1 Then
RefEdit1.Value = ActiveSheet.Name & "!" & Range(Range(RefEdit1.Value), Range(RefEdit1.Value).End(xlDown)).Address
End If
End Sub


A+++

 

[BRUNO I]

Bonjour Zon

Je ne sais pourquoi mais dans l'évènement Change, cela ne fonctionne pas.
Je l'ai casé dans "Private Sub OKButton_Click()" et ca marche.
Merci de ton aide et bonne journée.

A bientôt.

Bruno