Dernier chiffre d'une colonne +1

Bonsoir Bruno,

Tu pourrais utiliser un bout de code ressemblant à ceci :

Tu adaptes le nom de la feuille.

'-----------------------------
Dim A As Double
With Worksheets("Feuil1")
A = .Range("A1:A" & Range("A65536").End(xlUp).Row).Value
End With
If IsNumeric(A) Then
MsgBox A + 1
End If
'-----------------------------


Salutations!



"Bruno ALEMANNO" <balemanno@skynet.be> a écrit dans le message de news: uWnn6z2JFHA.3516@TK2MSFTNGP10.phx.gbl...
Bonjour,
J'ai créer un UserForm dans lequel il faut introduire un index
J'aimerai avoir à l'appel de ce UserForm un MessageBox ou autres
qui me donnerait la dernière valeur de la colonne A +1

Merci
Crole

Pour la colonne A de la feuille "Feuil1" :

Private Sub UserForm_Initialize()
MsgBox [lookup(9^9,Feuil1!A:A)] + 1
End Sub

AV

Merci j'essaie

Amicalement
Bruno

Merci AV
Cela fonctionne

Amicalement
Bruno