Valeur dans un message Box

Salut,

Essaie ceci :
Sub Essai()
v = [a63356].End(xlUp) + 1
MsgBox v
End Sub

Serge

<crolegoogle@skynet.be> a écrit dans le message de news: 502ae610-3e8b-47bc-bd65-1b5b4db089fc@z70g2000hsb.googlegroups.com...
Bonsoir ou bonjour le groupe,

Je souhaiterais lors de l'action d'un bouton commande, affiché la
valeur de la dernière cellule de la colonne A plus une unité.

exemple si ma valeur A167 est 166 et bien je souhaiterais cette valeur
+ 1
Pour le moment j'ai
[lookup(9^9,Base!A:A)] + 1
Mais j'ai la valeur 134, pourquoi je ne sais pas

Merci pour votre aide

Cordialement
Crole

Et en spécifiant le nom de la feuille :
Sub Essai1()
v = Worksheets("Base").[a63356].End(xlUp) + 1
MsgBox v
End Sub

Serge


<crolegoogle@skynet.be> a écrit dans le message de news: 502ae610-3e8b-47bc-bd65-1b5b4db089fc@z70g2000hsb.googlegroups.com...
Bonsoir ou bonjour le groupe,

Je souhaiterais lors de l'action d'un bouton commande, affiché la
valeur de la dernière cellule de la colonne A plus une unité.

exemple si ma valeur A167 est 166 et bien je souhaiterais cette valeur
+ 1
Pour le moment j'ai
[lookup(9^9,Base!A:A)] + 1
Mais j'ai la valeur 134, pourquoi je ne sais pas

Merci pour votre aide

Cordialement
Crole

Bonsoir,

Merci beaucoup cela fonctionne à merveille.
A bientôt sur le groupe

Cordialement
Crole

Bonjour,

Sub essai()
x = [lookup(9^9,base!A:A)] + 1
MsgBox x
End Sub

JB


On 21 fév, 00:51, crolegoo...@skynet.be wrote:

Bonsoir ou bonjour le groupe,

Je souhaiterais lors de l'action d'un bouton commande, affiché la
valeur de la dernière cellule de la colonne A plus une unité.

exemple si ma valeur A167 est 166 et bien je souhaiterais cette valeur
+ 1
Pour le moment j'ai
[lookup(9^9,Base!A:A)] + 1
Mais j'ai la valeur 134, pourquoi je ne sais pas

Merci pour votre aide

Cordialement
Crole