Dernier N° de Facture

[apdf1]

Bonjour

Voila j'ai un USF avec des textbox et il y a un textbox pour le N° de Facture.

Ma question: Comment peut on avoir sur mon USF soit par le biais d'un label ou d'un textbox le dernier N° de Facture qui est se trouve sur ma feuille dans la colonne "E"

Merci d'avance

Cordialement
Max

 

[Pierrot93]

Re : Dernier N° de Facture

Bonjour,

essaye ceci :

TextBox1.Value = Sheets("Feuil1").Range("E65536").End(xlUp).Value

bonne journée
@+

 

[apdf1]

Re : Dernier N° de Facture

Bonjour Pierrot et merci

Le seul probleme est qu'il me donne je N° le plus petit alors qu'il me faudrai le dernier.

Se sont les trois dernier N° qui compte c'est à dire qu'il y a N° 022011-544 c'est le "544" qui compte puisque les autre est le mois et l'année.

bonne journée
Max

 

[Pierrot93]

Re : Dernier N° de Facture

Re

Le seul probleme est qu'il me donne je N° le plus petit alors qu'il me faudrai le dernier

Non, ce code va chercher le numéro présent dans la dernière cellule de la colonne.... Désolé je n'avais pas compris ta demande...

 

[apdf1]

Re : Dernier N° de Facture

Re,

Se que voudrais c'est qu'il va chercher le N° de Facture le plus grand de la colonne E

Max

 

[Pierrot93]

Re : Dernier N° de Facture

Re,

regarde ceci :

Dim t() As Variant, i As Integer
t = Range("E10", Range("E65536").End(xlUp))
For i = LBound(t) To UBound(t)
    t(i, 1) = CInt(Split(t(i, 1), "-")(1))
Next i
MsgBox Application.Max(t)

 

[apdf1]

Re : Dernier N° de Facture

Re,

Oui pierrot c'est pratiquement se que je recherche mais plutôt que le mettre dans une msgbox peut on le mettre dans un label sur le USF sinon tu as bien compris ma demande

Merci beaucoup

Max

 

[Pierrot93]

Re : Dernier N° de Facture

Re,

tu remplaces ceci :

MsgBox Application.Max(t)

Par cela :

Nomlabel.Caption = Application.Max(t)

faire précéder du nom de l'usf, si procédure n'est pas dans le module de celui-ci..

bon après midi
@+

 

[apdf1]

Re : Dernier N° de Facture

Re,

Merci beaucoup Pierrot c'est super .....

Bon aprés midi

@+
Max