Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Récupérer une valeur, l'incrémenter, l'afficher dans un textbox

Récupérer une valeur, l'incrémenter, l'afficher dans un textbox

2 réponses
Avatar
Fredo(67)
Bonjour

dans la colonne A j'ai une s=E9rie de chiffre
je veux r=E9cup=E9rer la derni=E8re valeur de cette colonne, l'incr=E9mente=
r de 1 et r=E9cup=E9rer la valeur pour l'afficher dans mon textbox1

Private Sub UserForm_Initialize()
'Recherche le num=E9ro de la derni=E8re r=E9serve et incr=E9mente de 1
Controls("TextBox1").Value =3D Cells(1, 1).End(xlDown).Value + 1
End Sub

au premier lancement de l'userform, =E7a marche, mais pas aux suivants (il =
reprend la derni=E8re valeur incr=E9ment=E9e...)

merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonjour,

Essaie comme ceci

TextBox1.Value = Range("A" & Cells(Rows.Count, 1).End(xlUp).Row) + 1

--
Salutations
JJ


"Fredo(67)" a écrit dans le message de news:

Bonjour

dans la colonne A j'ai une série de chiffre
je veux récupérer la dernière valeur de cette colonne, l'incrémenter de 1 et récupérer la valeur pour
l'afficher dans mon textbox1

Private Sub UserForm_Initialize()
'Recherche le numéro de la dernière réserve et incrémente de 1
Controls("TextBox1").Value = Cells(1, 1).End(xlDown).Value + 1
End Sub

au premier lancement de l'userform, ça marche, mais pas aux suivants (il reprend la dernière valeur
incrémentée...)

merci
Avatar
DanielCo
Bonjour,
J'ai compris autrement :
Private Sub Saisie_Reserve_Initialize()
Cells(1, 1).End(xlDown).Value = Cells(1, 1).End(xlDown).Value + 1
Me.Controls("numéro_reserve").Value = Cells(1, 1).End(xlDown).Value
End Sub
Daniel


Bonjour

dans la colonne A j'ai une série de chiffre
je veux récupérer la dernière valeur de cette colonne, l'incrémenter de 1 et
récupérer la valeur pour l'afficher dans mon textbox1

Private Sub UserForm_Initialize()
'Recherche le numéro de la dernière réserve et incrémente de 1
Controls("TextBox1").Value = Cells(1, 1).End(xlDown).Value + 1
End Sub

au premier lancement de l'userform, ça marche, mais pas aux suivants (il
reprend la dernière valeur incrémentée...)

merci