Discussion :

[yaneve]

Hello la communauté

J'ai un problème que je ne parviens pas à contourner et qui peut se résumer en 7 lignes de codes VBA dans une feuille excel :

Code :

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

1
2
3
4
5
6
7
Sub dummy()
    Dim Zone As String
    With Me
        Zone = CStr(.Cells(1, 1))    '*** Cells(1,1) contient 'DEC1'
        .Cells(1, 2) = Zone    '*** Cells(1,2) contient '01-Déc'
    End With
End Sub

en fait, après restauration de la donnée, il y a interprétation et le string DEC1 devient une date '01-Déc'
Bien sur, si la cellule (1,1) contient 'ABC', la cellule (1,2) contient aussi 'ABC'
mais si la cellule (1,1), contient une chaine qui ressemble à une date, il y a interprétation de données...

Plus largement, comment éviter cette interprétation de données ? si par exemple, je tape dans une cellule 'MAR3', je me retrouve avec un 'Mars-03' !

Toutes les idées, suggestions, sont les bienvenues !

[78chris]

Bonjour

Soir formater au préalable tes cellules en format texte, soit faire précéder la mention d'une apostrophe (qui ne s'affichera pas)

[Pierre Fauconnier]

Salut.

Tu as deux solutions (comme en Excel, d'ailleurs ) et qui sont copiées sur ce que tu peux réaliser sur une feuille.

Soit faire précéder ton texte d'une apostrophe

Code :

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

1
2
  Text = "mar-03"
  ActiveCell.Value = "'" & Text

Soit formater d'abord ta cellule

Code :

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

1
2
3
  Text = "mar-03"
  ActiveCell.NumberFormat = "@"
  ActiveCell.Value = Text

[Menhir]

Code :

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

1
2
3
Zone = CStr(.Cells(1, 1))
.Cells(1, 2).NumberFormat =  = "@"
.Cells(1, 2) = Zone

https://msdn.microsoft.com/fr-fr/lib.../ff196401.aspx