Discussion :

[francky74]

Bonjour,

Après un traitement dans des tableaux dynamiques, je souhaite insérer les résultats de ma macro dans un tableau excel.
Mais j'ai des données (qui pourtant sont stockées dans une variable string) qui changent de format une fois copiées sur la feuille Excel.
Par exemple un texte "0/6" va se transformer en date et un "07," va se transformer en "7" ou pire avec des décimales.
Je souhaiterai donc forcer toutes ces cellules en format TEXTE.

Merci à vous

[mercatog]

Bonsoir
En effet, Excel interprète certaines données spécifiques.

Manuellement, sur une cellule au format standard, écris 1/6
Sur une autre, au format texte, écris la même chose
Et enfin, sur une dernière cellule écris '1/6 (avec une apostrophe au préalable)

Refais le même teste avec 007

Par macro, lance ce test et tu comprendra

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
18
19
20
Sub Test()
Dim t As String
 
'1--------------------------------
t = "1/6"
With Range("A1")
    .NumberFormat = "@"
    .Value = t
End With
Range("B1").Value = "'" & t
Range("C1").Value = t
'2--------------------------------
t = "007"
With Range("A2")
    .NumberFormat = "@"
    .Value = t
End With
Range("B2").Value = "'" & t
Range("C2").Value = t
End Sub

[francky74]

C'est bon, c'est ca !

Code :

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

1
2
3
4
With Range("A1")
    .NumberFormat = "@"
    .Value = t
End With

Merci beaucoup