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
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