XL 2016 Derniere Cellule Remplie d'une colonne sur USF

andrekn13

XLDnaute Occasionnel
Bonjour à tous .... heureusement que ce site super est là quand on patoge !
Le but est de pré remplir un USF :
j'ai testé ma macro qui fonctionne sur une macro habituelle :
DerniereCelluleRemplie = Columns("A:A").Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
Range("A" & DerniereCelluleRemplie).Select
DerniereCelluleRemplie = ActiveCell.Value
MsgBox "DerniereCelluleRemplie" & DerniereCelluleRemplie
DerniereCelluleRempliePLUSun = DerniereCelluleRemplie + 1
MsgBox "DerniereCelluleRempliePLUSun " & DerniereCelluleRempliePLUSun

par contre impossible de la metre au profit d'un USF pour pré-remplir un champs ( incrémenter une commande) sur un Texbox à l'initialisation de l'USF
ma dernière bidouille qui marche pas non plus...... grrrr
qu'est-ce que j'ai encore loupé ???? ça paraissait trop simple ! grrrr
With TextBox8
Set ws = Sheets("ORDERS")
With Sheets("ORDERS")
DerniereCelluleRemplie = Columns("A:A").Find("*", ws.Range("A1"), , , xlByRows, xlPrevious).Row
Range("A" & DerniereCelluleRemplie).Select
' DerniereCelluleRemplie = ActiveCell.Value
'MsgBox "DerniereCelluleRemplie" & DerniereCelluleRemplie
'DerniereCelluleRempliePLUSun = DerniereCelluleRemplie + 1
' TextBox8 = DerniereCelluleRemplie + 1
'MsgBox "DerniereCelluleRempliePLUSun " & DerniereCelluleRempliePLUSun
End With
End With

merci pour celui qui pourrait m'éclairer
 

andrekn13

XLDnaute Occasionnel
c'est fou , même en simplifiant à l'extrême je vois pas pourquoi ça ne rempli pas la textbox :
Private Sub UserForm_Initialize()
Set ws = Sheets("FACTURATION")
With Sheets("FACTURATION")
TextBox8 = Sheets("FACTURATION").Range("I8").Value
End With
.........
 

Discussions similaires

Statistiques des forums

Discussions
312 885
Messages
2 093 259
Membres
105 659
dernier inscrit
louloudu37