Conserver format cellule spécial dans TextBox après conténation

Bonjour,

J'ai créé un formulaire qui doit générer à chaque ouverture un numéro de dossier type 2017-DIVERS-001


J'ai concaténé deux cellules pour obtenir mon numéro de dossier dans une TextBox de mon formulaire, qui s'incrémente de 1 à chaque nouvelle saisie:
G1=ANNEE(AJOURDUI())&"-"&"DIVERS"&"-" et H1="001", avec un format spécial pour conserver les deux zéros devant le 1.

Code:

---

1 2 3 4 5

Private Sub NuméroDossier_Change()   NuméroDossier = Range("G1") & Range("H1") + WorksheetFunction.CountA(Range("B3:B100"))   End Sub

---

Mon problème est que le résultat affiché de ma TextBox est 2017-DIVERS-1
Le format "001" de ma cellule H1 n'est pas conservé. J'ai trouvé des exemples sur le forum avec la fonction NumberFormat mais je n'arrive pas à l'appliquer à mon code :weird:

Quelqu'un pour m'expliquer comment faire?

Merci d'avance!

Bonjour,

Essaie comme ceci pour voir...

Code:

---

NuméroDossier = Range("G1") & Range("H1") + Format(WorksheetFunction.CountA(Range("B3:B100")), "000")

---

Merci de ton aide!
Mais ça ne change rien, j'ai toujours le même format...

Bonjour !

Au moins si la propriété Text de la cellule eut été utilisée !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour Marc-L,

Pourais-tu dévelopepr pour la novice que je suis?

Si je mets ma cellule H1 en format texte, je ne peux plus incrémenter de 1 à chaque nouvelle ouverture...

Ou bien dois-je appliquer un format spécial à ma TextBox?

La propriété Text d'une cellule n'ayant aucun rapport avec une cellule formatée en texte !
Elle est disponible dans toute cellule, peu importe son format !
Ne pas confondre valeur de la cellule (Value, Value2) et son affichage (Text) …

Et pourtant c'est accessible à tout débutant pour peu qu'il ait la volonté de tester lui-même …

Désolé, j'ai fait une petite erreur.
J'ai placé le Format au mauvais endroit...

Code:

---

NuméroDossier = Range("G1") & Format(Range("H1") + WorksheetFunction.CountA(Range("B3:B100")), "000")

---

Je pense pourtant être une débutante qui a la volonté :

- j'ai crée mon formulaire alors que j'y connaissais rien en vba avant la semaine dernière,
- j'ai harcelé mon ami google pour trouver comment coder chaque opération que j'avais besoin que mon formulaire déclenche (ouvrir un autre fichier, le remplir...)
- j'ai même cherché 3 jours pour réussir à incrémenter ce numéro de dossier concatené, parce que ce qui te parait évident ne l'était pas pour moi...

Je me suis résolue à demander de l'aide sur ce forum parce que vraiment là je galère avec ce 001, j'ai essayé de nombreuses choses depuis hier, j'ai cherché sur beaucoup de forums, et non, désolée ô expert du vba, je ne trouve pas la solution de mon problème et j'ose demander de l'aide.

Je ne demande pas la solution toute faite, juste qu'on m'explique la marche à suivre, ou la fonction à utiliser si besoin (que tu me souffles avec un mépris presque palpable, mais bon, je n'y connais rien donc je l'ai bien cherché hein?!)

Je vais donc me renseigner sur cette propriété text , dussé-je y passer mes prochaines journées...

Merci quand même.

Ça fonctionne Parmi!
Je saurais maintenant grâce à toi comment appliquer un format...
Merci beaucoup! :oops:

Pour explication,
Si tu tapes 1 dans une cellule sa valeur est numérique
Si tu changes son format pour 001, elle demeure numérique
Range("A1") est par défaut Range("A1").Value qui demeure numérique
Range("A1").Text est différent et te retourne son texte "001"

Pour ce qui est de ma ligne de code, Format de l'addition retourne par défaut le texte tel qu'on l'a spécifié un peu comme la formule Excel =Texte(A1, "000").

Merci d'avoir pris le temps de m'expliquer les détails :)

Attention Value n'est pas la propriété par défaut de Range !

Elle est souvent celle renvoyée mais parfois VBA choisit Text selon le contexte.
Ainsi mieux vaut prendre l'habitude de bien spécifier la bonne propriété et ne pas laisser VBA choisir …