Dernier N° de Facture

Pierrot93

XLDnaute Barbatruc

• 18 Février 2011

• #2

Re : Dernier N° de Facture

Bonjour,

essaye ceci :

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 18 Février 2011

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Février 2011

• #4

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 18 Février 2011

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Février 2011

• #6

Re : Dernier N° de Facture

Re,

regarde ceci :

Code:

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)

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 18 Février 2011

• #7

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Février 2011

• #8

Re : Dernier N° de Facture

Re,

tu remplaces ceci :

Code:

MsgBox Application.Max(t)

Par cela :

Code:

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 18 Février 2011

• #9

Re : Dernier N° de Facture

Re,

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

Bon aprés midi

@+
Max

 

Vote positif 0 Vote négatif