formule dans un combobox

[aperobass]

Salut à tous , j'ai encore une question, pour une formule dans mon combobox.
Pour le nombre que je veut dans ma texbox je met ce code

valeurAdditionee = Val(Right(TextBox3, 5)) + (ComboBox3 - 1)
    TextBox4 = Left(TextBox3, 1) & Application.Rept("0", 5 - Len(valeurAdditionee)) & valeurAdditionee

avec ce code j'ai donc un carratère "t" et aprés "00000".Je voudrais faire le même chose mais avec un carratère au milieu "0000T12345" et additionné à gauche du "T".
Quelqu'un pourrais m'aider?🙂
A+

 

[Bebere]

Re : formule dans un combobox

bonjour Aperobass
pour la partie gauche
nbre1=val(mid("0000T12345",1,instr("0000T12345","T")-1))
pour la partie droite
nbre2=val(mid("0000T12345",instr("0000T12345","T")+1))
à bientôt

 

[aperobass]

Re : formule dans un combobox

Salut Bebere , merci pour ton code mais je n'arrive pas a le mettre en place dans mon combobox3.Tu m'explique comment la mettre en place?"fichier joint"
A+

 

[Bebere]

Re : formule dans un combobox

bonjour Aperobass
fichier joint inactif,tu peux mettre en pièce jointe - de 50k .xls ou .zip
à bientôt

 

[gilbert_RGI]

Re : formule dans un combobox

Bonjour,

peut-être comme ceci ?

Sub test()
    chaine = "00000T123456"
    nbre = InStr(chaine, "T")
    nbre1 = Mid(chaine, nbre + 1, (Len(chaine) - nbre))
    For i = 1 To Len(nbre1)
    q = Left(Right(nbre1, i), 1)
    r = r + Val(q)
    Next
    MsgBox r
End Sub

 

[aperobass]

Re : formule dans un combobox

bonsoir, j'ai mis mon fichier Bebere.

Gilbert_RGI je fais retarder ton code merci.
A+

 

[aperobass]

Re : formule dans un combobox

Gilbert_RGI j'ai essayer ton cde et il marche pas!!!
Merci a+

 

[Bebere]

Re : formule dans un combobox

bonjour aperobass,Gilbert
met des données dans une feuille et explique ce que tu veux
un exemple c'est tjrs mieux

 

[gilbert_RGI]

Re : formule dans un combobox

Gilbert_RGI j'ai essayer ton cde et il marche pas!!!
Merci a+

chez moi la msgbox indique bien 21 ???? 😕

désolé

 

[aperobass]

Re : formule dans un combobox

ok je vais vous expliquez ça sera plus facile.
Donc dans le classeur dés que vous ouvrez l'userform ,dans S/N vous écrivez 0001T12345 et dés que vous choisisez le nombre de pièces je veux que ça incrémente avant le "T" dans la texbox(S/N "---->")."0002T12345".
A+

 

[gilbert_RGI]

Re : formule dans un combobox

oups j'avais pas bien suivi

 

[Bebere]

Re : formule dans un combobox

bonjour
la méthode find est plus rapide qu'une boucle pour recherche dands feuille
avec du bonus
à bientôt

 

[aperobass]

Re : formule dans un combobox

Merci Bebere c'est nikel.. mais j'ai encore une question! Dans ton code on incrémente tourjour de 1,mais je voudrais incréménter avec combobox3. J'ai essayer de mettre combobox3 à la place du 1 ça marche pas, ça bloque aprés pourquoi?
A+

Private Sub ComboBox3_Change()
 If ComboBox3 = "" Then Exit Sub
mot = "0000"

    valeurAdditionee = Mid(TextBox3, 1, InStr(TextBox3, "T") - 1)
    reste = Mid(TextBox3, InStr(TextBox3, "T"))
    valeurAdditionee = valeurAdditionee + 1
    
    TextBox4 = Left(mot, Len(mot) - Len(valeurAdditionee)) & valeurAdditionee & reste

 

[Bebere]

Re : formule dans un combobox

bonjour Aperobass,le forum

valeurAdditionee = valeurAdditionee +val(combobox3)
sans val tu concatènes
à bientôt

 

[aperobass]

Re : formule dans un combobox

Merci bebere de m'avoir aider🙂🙂
A+