Code VBA pour code client

Bonjour,

Je souhaite créer un code client à partir d'un nom

Par exemple Mr DUPONT

Date du contact 311219

Il faut que le code client puisse correspondre à cela POU 191231

en fait je prends les 3 dernières lettres du nomsoit ONT et je rajoute la lettre l'alphabet qui suit soit

pour O = P

pour N = O

pour T = U

puis pour la date, un format US 19 12 31

Merci pour votre aide

bonjour,

je te propose une fonction

Function codeclient(nom As String, dateco As Date)
    cod = ""
    For i = Len(nom) - 2 To Len(nom)
        cod = cod & Chr(Asc(Mid(nom, i, 1)) + 1)
    Next i
    cod = cod & " " & Format(dateco, "yymmdd")
    codeclient = cod
End Function

exemple d'appel de la fonction

msgbox=codeclient("DUPONT",datevalue("31/12/2019")

Merci

je vais essayer

Bonjour,

Attention à la présence du Z dans les trois dernière lettres !

Avec remplacement par le A :

Function CODECLIENT(nom As String, dateco As Date)

    Dim I As Integer
    Dim J As Integer
    Dim Cod As String

    Cod = ""
    For I = Len(nom) - 2 To Len(nom)

        J = Asc(Mid(nom, I, 1))
        If J = 90 Then J = 64
        Cod = Cod & Chr(J + 1)

    Next I

    CODECLIENT = Cod & " " & Format(dateco, "yymmdd")

End Function

Merci theze

effectivement si Z on repart sur A

je n'arrive malheureusement pas malgré votre aide à integrer vos codes

Je vous joins mon fichier

Pourriez-vous m'aider sachant que dans le userform je n'ai pas créer de label ou textbox CODE

Pour information le nom est dans le combobox1 et la date en textbox11

je vous remercie vivement

10test-forum.xlsm (86.15 Ko)

voici ton fichier modifié :

22test-forum.xlsm (87.89 Ko)

merci de lire cet autre post (pour ce même exo) :

https://forum.excel-pratique.com/viewtopic.php?p=735653#p735653

dhany

...sachant que dans le userform je n'ai pas créer de label ou textbox CODE

Pour information le nom est dans le combobox1 et la date en textbox11

Voici ce qui arrive quand on ne donne pas toutes les informations, c'est pour cette raison que h2so4 t'a proposé une fonction pour feuille de calcul Excel et non une fonction pour UserForm, il a probablement oublié sa boule de cristal !

merci à tous

@fabguilb

j'espère que tu as lu attentivement tous les commentaires placés dans la sub TextBox11_Exit() de UserForm1 !

dhany

Rechercher des sujets similaires à "code vba client"