Discussion :

[PierrotMfff]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 , je vous remercie d'avoir lu jusqu'ici et pour vos potentielles réponses! Bonne journée le club!

[Michel_M]

Bonjour,

B^tement de ma part:

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

[PierrotMfff]

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

[Invité]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PierrotMfff]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 à+ !

[PierrotMfff]

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

[joe.levrai]

Bonjour,

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

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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