Extraction d'un chiffre d'un TextBox en format spécial en VBA
anakin_74
-
anakin_74 Messages postés 43 Statut Membre -
anakin_74 Messages postés 43 Statut Membre -
Voici mon problème :
J'ai réalisé un UserForm avec un TextBox dans lequel je mets 1 chiffre de 1 à 9999.
Je voudrai, quand j'éxécute ce UserForm, que la valeur de la case ce transfert dans une case d'une feuille Excel (cette partie je sais le faire!), mais avec format spécial(ça je ne sais pas faire!).
Je ne veux pas que ce format soit simplement en apparence mais en dur dans la cellule, car cette cellule me permet de créer à chemin d'accès à des dossiers.
Pour l'instant ma macro actuelle fonctionne pour tous les chiffres au dessus de 1000 (parce que les dossiers sont nommés avec 4 chiffres EX: 0274). Vu que j'ai plus 4000 dossiers je ne veux pas me palucher le renommage des dossiers 1 à 1!!!!!
Exemple format voulu:
1 deviendrai 0001
10 deviendrai 0010
100 deviendrai 0100
1000 resterai 1000
Merci d'avance pour l'aide
J'ai réalisé un UserForm avec un TextBox dans lequel je mets 1 chiffre de 1 à 9999.
Je voudrai, quand j'éxécute ce UserForm, que la valeur de la case ce transfert dans une case d'une feuille Excel (cette partie je sais le faire!), mais avec format spécial(ça je ne sais pas faire!).
Je ne veux pas que ce format soit simplement en apparence mais en dur dans la cellule, car cette cellule me permet de créer à chemin d'accès à des dossiers.
Pour l'instant ma macro actuelle fonctionne pour tous les chiffres au dessus de 1000 (parce que les dossiers sont nommés avec 4 chiffres EX: 0274). Vu que j'ai plus 4000 dossiers je ne veux pas me palucher le renommage des dossiers 1 à 1!!!!!
Exemple format voulu:
1 deviendrai 0001
10 deviendrai 0010
100 deviendrai 0100
1000 resterai 1000
Merci d'avance pour l'aide
2 réponses
-
Bonjour
Utilises une petite fonction pour formater ton résultat sur nc chiffres avant de l'envoyer dans la feuille, par exemple celle ci
Function FormateNombre(s As String, nc As Long) As String
If Len(s) >= nc Then
FormateNombre = s
Else
FormateNombre = String(nc - Len(s), "0") & s
End If
End Function
Cdlmnt-
Merci pour ta réponse.
Je comprends bien le principe de ta fonction.
Mais comment intégrer ce résultat dans ma procédure?
Je sais que ci-dessous ça ne fonctionne pas (j'ai créé un petit exemple)
J'ai mis TA fonction dans le même module que MA procédure
Sub TestFormat()
s = Range("A1").Value ' case d'origine du résultat
nc = 4 ' nombre de chiffre souhaité
Range("B1").Value = FormateNombre 'case avec transformation
End Sub
Acceptes mes excuses pour mon ignorance, mais je suis autodidacte.
si tu pouvais corriger mon exemple. Encore merci
-
-
