Où me trompe-je
Le
Fredo(67)
Bonjour,
j'ai essayé plusieurs versions, mais je n'arrive pas à mes fins
j'ai un userform dont un textbox se nomme numéro_reserve
j'ai dans la colonne A une série de chiffres
je veux à l'affichage de l'userform Saisie_reserve que Excel aille cherch=
er la dernière valeur contenue dans la colonne A, incrémente de 1 la va=
leur et la pose dans le textbox numéro_reserve
Voici mon code
Private Sub Saisie_Reserve_Initialize()
Dim i As Integer
i = Cells(1, 1).End(xlDown).Value
i = i + 1
Controls("numéro_reserve").Value = i
End Sub
Où me trompe-je ?
y'a t'il moyen de faire plus simple ?
j'ai essayé plusieurs versions, mais je n'arrive pas à mes fins
j'ai un userform dont un textbox se nomme numéro_reserve
j'ai dans la colonne A une série de chiffres
je veux à l'affichage de l'userform Saisie_reserve que Excel aille cherch=
er la dernière valeur contenue dans la colonne A, incrémente de 1 la va=
leur et la pose dans le textbox numéro_reserve
Voici mon code
Private Sub Saisie_Reserve_Initialize()
Dim i As Integer
i = Cells(1, 1).End(xlDown).Value
i = i + 1
Controls("numéro_reserve").Value = i
End Sub
Où me trompe-je ?
y'a t'il moyen de faire plus simple ?
comme ça ca marche
Private Sub UserForm_Initialize()
Dim j As Integer
j = Cells(1, 1).End(xlDown).Value
j = j + 1
NumerO_ReservE = j
End Sub
ben voilà
Le mardi 7 août 2012 08:38:54 UTC+2, Fredo(67) a écrit :
Quand je lance 2 ou 3 fois mon userform, la permière fois il m'incrémen te bien le numéro mais pas les autres fois (il reprend à chaque fois le meme num)
Le mardi 7 août 2012 08:38:54 UTC+2, Fredo(67) a écrit :
Attention, extraire la dernière valeur de la colonne A et lui ajoutet 1,
ne modifie pas dans la feuille la valeur de la dernière cellule. Si cela
est répété plusieurs fois, tu obtiendras toujours le même résultat puisque
tu ajoutes toujours 1 à la dernière valeur de la colonne A mais cette
dernière n'est pas mise à jour dans la procédure...
'------------------------------------------------------
Private Sub UserForm_Initialize()
Dim j As Double
With Worksheets("Feuil1") 'Nom Feuille à adapter
j = .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value + 1
'Si tu veux mettre à jour la valeur dans la dernière cellule
Application.EnableEvents = False
.Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value = j
Application.EnableEvents = True
End With
NumerO_ReservE = j
End Sub
'------------------------------------------------------
MichD
---------------------------------------------------------------
ce que je veux, c'est récupérer cette valeur, l'incrémenter, l'affich er dans l'userform, mais la saisie de cette valeur dans la feuille ne se fe ra qu'à la validation finale de l'userform.
Mais en fait, j'ai corrigé et syntaxé la chose différemment et cela m arche maintenant
(l'erreur venait de Private Sub Saisie_Reserve_Initialize() au lieu de Pri vate Sub UserForm_Initialize() )
hé hé hé
Le mardi 7 août 2012 08:38:54 UTC+2, Fredo(67) a écrit :