OVH Cloud OVH Cloud

Rechercher la dernière valeur + 1

5 réponses
Avatar
crole
Bonjour le groupe,

J'ai une base de donn=E9e index=E9e =E0 partir de la cellule A2
,1,2,3......
Je souhaiterais par l'action d'un command button ouvrir un message box
dans lequelle serait affich=E9 la derni=E8re valeur +1 de tel mani=E8re =E0
informer la valeur =E0 inscrire comme index dans un userform.

Merci d'avance pour vos r=E9ponses
Cordialement
Crole

5 réponses

Avatar
Daniel
Bonjour.
Si, comme tu le laisse entendre, la dernière valeur est la plus grande :
MsgBox Application.Max([A2:A65536]) + 1
Cordialement.
Daniel
"crole" a écrit dans le message de news:

Bonjour le groupe,

J'ai une base de donnée indexée à partir de la cellule A2
,1,2,3......
Je souhaiterais par l'action d'un command button ouvrir un message box
dans lequelle serait affiché la dernière valeur +1 de tel manière à
informer la valeur à inscrire comme index dans un userform.

Merci d'avance pour vos réponses
Cordialement
Crole
Avatar
FxM
Bonjour le groupe,

J'ai une base de donnée indexée à partir de la cellule A2
,1,2,3......
Je souhaiterais par l'action d'un command button ouvrir un message box
dans lequelle serait affiché la dernière valeur +1 de tel manière à
informer la valeur à inscrire comme index dans un userform.

Merci d'avance pour vos réponses
Cordialement
Crole




Bonjour Crole,

Si 1, 2, 3 sont des nombres, max(A2:A65536)+1 devrait convenir.
Derrière un bouton et donc VBA, il doit falloir le faire précéder d'un
application. voir application.worksheetfunction.

@+
FxM

Avatar
lSteph
Bonjour,

Si ce sont bien des valeurs:

msgbox [A65536].end(xlup)+1


lSteph
"crole" a écrit dans le message de news:

Bonjour le groupe,

J'ai une base de donnée indexée à partir de la cellule A2
,1,2,3......
Je souhaiterais par l'action d'un command button ouvrir un message box
dans lequelle serait affiché la dernière valeur +1 de tel manière à
informer la valeur à inscrire comme index dans un userform.

Merci d'avance pour vos réponses
Cordialement
Crole
Avatar
lSteph
Bonjour,

Si ce sont bien des valeurs ..croissantes:

msgbox [A65536].end(xlup)+1


lSteph

(...manquait une précision)
"crole" a écrit dans le message de news:

Bonjour le groupe,

J'ai une base de donnée indexée à partir de la cellule A2
,1,2,3......
Je souhaiterais par l'action d'un command button ouvrir un message box
dans lequelle serait affiché la dernière valeur +1 de tel manière à
informer la valeur à inscrire comme index dans un userform.

Merci d'avance pour vos réponses
Cordialement
Crole
Avatar
crole
Bonjour à vous tous,

Un grand merci pour vos réponses.

Passer un bon dimanche
à bientôt

Amicalement
Crole