Extraction d'un chiffre d'un TextBox en format spécial en VBA Fermé

Question

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

ccm81 · Answer

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 StringIf Len(s) >= nc Then  FormateNombre = sElse  FormateNombre = String(nc - Len(s), "0") & sEnd IfEnd Function
Cdlmnt

ccm81 · Answer

Un petit fichier exemple
	https://www.cjoint.com/?3KyqDjNi8gX 

Cdlmnt

Extraction d'un chiffre d'un TextBox en format spécial en VBA

2 réponses

Discussions similaires

Newsletters