Problème date intempestive

Bonjour le forum, j'ai un petit souci de date intempestive... Je m'explique:

Mon fichier gère des Problèmes répertoriés par l'utilisateur, eux même divisés en actions.

Par exemple:
Problème 1-1 = problème 1, action 1
Problème 1-2 = problème 1, action 2

Les actions relatives à un problème peuvent s'incrémenter autant de fois que necessaire.
On peut obtenir dans le fichier Problème 152-12 par exemple.

En VBA Lors de la création d'un problème, Je n'ai pas de soucis pour extraire le premier numéro et de lui ajouter 1, pour créer le problème suivant.
A ce chiffre (ou nombre) récupéré, appellons le NumPb, je le modifie pour qu'il corresponde à l'action 1 (pas de problème sans action)

Code:

---

NumPb = NumPb & "-1"

---

Jusqu'ici parfait, mais avec tout le brouhaha que les dates provoquent sur le net je n'arrive pas à trouver la réponse précise à mon problème, à savoir que ce NumPb néoformé, lorsqu'il est stocké, prend le format date . . .
ainsi un NumPb = 5-1 me renvoie le 1-Mai.. (inversion anglaise)

J'ai essayé:

Code:

---

1 2 3

.Cells(x,y).NumberFormat = "Général" 'avant de lui faire prendra la valeur Dim NumPb as String 'pour qu'il comprenne que je ne parle pas d'une date...

---

Rien n'y fait, je craque :aie: , je vous remercie d'avoir lu jusqu'ici et pour vos potentielles réponses! Bonne journée le club!

Bonjour,

B^tement de ma part:

peut-^tre remplacer le tiret par un point-virgule ou autre séparateur ?

Merci, je te rassure c'est loin d'être bête, j'y avais pas pensé ! si personne ne sait je ferai comme ça ^_^

bonjour,

Code:

---

.Cells(x,y).value="'152-12"

---

Bonjour,

il faut formater la cellule en texte avant d'y envoyer ta chaine :

exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit   Sub test() Dim NumPb As String   NumPb = "1" NumPb = NumPb & "-5"   With ActiveCell   .NumberFormat = "@" .Value = NumPb   End With   End Sub

---

En fait j'ai fait plus simple, pour ceux que ça pourra aider:

Code:

---

Sheets("Source").Cells(n + 1, 1).NumberFormat = Sheets("Source").Cells(n, 1).NumberFormatLocal

---

où n+1 étant la ligne créée, et n la dernière ligne...

En passant par une variable j'ai trouvé que le format était "@"

Donc:

Code:

---

Sheets("Source").Cells(n + 1, 1) = Format( NumPb & "-1" , "@" )

---

Le format général n'était donc pas le bon ! Merci Michel pour ton aide à+ !

pas besoin, juste lui dire que c'est du texte avec le caractère [']

Code:

---

.Cells(x,y).value="'152-12"

---

Bonjour rdurupt, joe.levrai,

Joe: ça revient à ce que je viens de trouver hihi
rdurupt: je ne connaissais pas du tout cette méthode, je la garde en mémoire!

Merci à vous trois, sujet résolu ! Bonne journée :D