Vba excel

ilhem1986 -  
Bonjour,

vba excel
je me bloque de nouveau,je veux aussi faire l incrémentation automatique dans un textbox sous forme "B"l'année ainsi "0000"par exemple l'année 2016 je veux le format"B16-0000".aidez moi svp j'ai pas beaucoup de temps

1 réponse

  1.  jordane45 Modérateur
    Bonjour,

    Il te suffit donc de récupérer les deux dernier chiffres de l'année et de concaténer le tout avec le reste de ta chaine.... 

    
Sub toto()

Dim maintenant As Date
Dim annee As String
Dim resultat As String

maintenant = Now()
annee = Right(Format(maintenant, "YYYY"), 2)

resultat = "B" & annee & "-0000"

MsgBox resultat

End Sub


    1. ilhem1986 Auteur
      merci bien Jordane mais pourrier vous m aidez plus ou pourrais je mettre cette marco ainsi comment je peux incrémenter à chaque nouveau enregistrement
    2. jordane45 Modérateur
      @ilhem1986Comme je ne sais pas à quoi ressemble ton fichier...
      Ni ce que tu comptes en faire ...
      Impossible de t'en dire plus.

      Merci de faire un effort d'explications si tu souhaites obtenir de l'aide. Je ne suis malheureusement pas encore devin :-)
    3. ilhem1986 Auteur
      @jordane45je m excuse je suis tellement boulversé de tel façon je explique pas alors mon classeur contient une feuiille de gestion de vente j'ai crée un userform pour saisir les bon de livraison dans un textbox 1 apres avoir saisi je les enregistre sur ma feuille.mes BL de cette année ont forme B16-0000 pour le 1 ere Bl ainsi de suite..je veux que lorsque je clique sur nouveau bl il m affiche le numero de bl suivant sur le textbox....merci d avance