Où me trompe-je

Bon ben réponse à moi même

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 :

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 cher cher la dernière valeur contenue dans la colonne A, incrémente de 1 la valeur 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 ?

Ben en fait cela ne marche pas si bien que ça.

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 :

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 cher cher la dernière valeur contenue dans la colonne A, incrémente de 1 la valeur 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 ?

Bonjour,

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

C'est fait expres

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 :

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 cher cher la dernière valeur contenue dans la colonne A, incrémente de 1 la valeur 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 ?