Amis du forum Bonjour,

je reviens vers vous, parce que j'ai bon retourner ce petit bout de code dans tout les sens, avec mes faibles connaissances, je ne trouve pas la soluce.

Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Worksheets("BD_FACTURES").Activate
Dim VarMois As String, ExVarMois As String
Dim LastCel As Range
Set LastCel = [B65536].End(xlUp)
ExVarMois = Left(LastCel, 6)
VarMois = Format(Date, "yymmdd")
If ExVarMois = VarMois Then
    LastCel.AutoFill Destination:=LastCel.Resize(2, 1), Type:=xlFillDefault
    Else
    LastCel.Offset(1) = VarMois & "-001"
End If
à l'issue de ce code un numéro de facture est générée.
Ce que je voudrais en faire, c'est simplement l'afficher dans une zone de texte au lieu de le renvoyer vers la feuille BD_FACTURES.
Je n'arrive pas à adapter cette ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
LastCel.AutoFill Destination:=LastCel.Resize(2, 1), Type:=xlFillDefault
Si vous avez la soluce, je suis preneur.
Merci