Bonjour à tous,
Je bloque sur l'adaptation d'une formule dans un userform,
La formule en question
=SI(NBCAR(D8)<30;CONCATENER(GAUCHE(D8;6);"0000");CONCATENER(STXT(D8;TROUVE(";";D8;1)+1;6);"0000"))*1
Vu que c'est pour un userform, la donnée à traiter ne ce trouve plus en D8 mais dans le textbox1 avec le résultat en label8
Private Sub Label17_Click() 'Bouton Recherche
If TextBox1 = "" Then
MsgBox "Aucune données matériel", vbExclamation, "Alerte"
Else
Label8.value = 'ma formule
End If
End Sub
J'ai essayer de retranscrire avec Evaluate mais sans succès
Label8.value = Evaluate("=IF(LEN(TextBox1)<30,CONCATENATE(LEFT(TextBox1,6),""0000""),CONCATENATE(MID(TextBox1,FIND("";"",TextBox1,1)+1,6),""0000""))*1")