Discussion :

[bigs3232]

j'ai une colonne A de cette forme

HP-A1501A3B1
463952-001
378768-001

et j'ai une fonction qui convertit colonne A en texte avec ce code trouvé sur le forum

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub f_ConversionNb_En_Texte_Ssel()
    Application.ScreenUpdating = False
    Dim c As Range
    For Each c In Selection
    c.NumberFormat = "@"
    c = Format(c.Value)
    Next c
    Application.ScreenUpdating = True
End Sub

le souci c'est que quand je lance le code ca me genere çà avec ligne en date alors que je ne veux pas que ca change en date

HP-A1501A3B1
01/01/5200
378768-001

y a til une solution pour resoudre ce bug?
merci d'avance

[Invité]

Bonjour,

Une solution possible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub f_ConversionNb_En_Texte_Ssel()
 
Dim c As Range
 
    Application.ScreenUpdating = False
    For Each c In Selection
        c = "'" & c
    Next c
    Application.ScreenUpdating = True
 
End Sub

[Docmarti]

Pourquoi utiliser la fonction Format?
C'est une fonction intelligente specialisee en conversion en date ou en nombre.
Pour simplement convertir en String, il y a la fonction Cstr.

[bigs3232]

merci a vous 2 .la soltion de docmartin ne semble pas marcher.la solution d eric me met guillemet devant
et quand je vais dans accueil ,le format reste toujours en standard voir image en dessous

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub f_ConversionNb_En_Texte_Ssel()
    Application.ScreenUpdating = False
    Dim c As Range
    For Each c In Selection
c = CStr(c)
    Next c
    Application.ScreenUpdating = True
End Sub

[bboy-eazy]

Bonjour,
et comme ca?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub f_ConversionNb_En_Texte_Ssel()
    Application.ScreenUpdating = False
    Dim chaine As String
    For Each c In selection
    chaine = c.Value
    c.NumberFormat = "@"
    c.Value = chaine
    Next c
    Application.ScreenUpdating = True
End Sub

[Invité]

merci a vous 2 .la soltion de docmartin ne semble pas marcher.la solution d eric me met guillemet devant
et quand je vais dans accueil ,le format reste toujours en standard voir image en dessous

Il n'en demeure pas moins que dans les deux cas, vous obtenez du texte. Quant au champ "Format de nombre" du menu Excel, regardez l'aide en ligne d'Excel.

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
21
22
23
24
25
 
 
Sub f_ConversionNb_En_Texte_Ssel()
 
Dim Aire1 As Range, Aire2 As Range, Cellule As Range
 
    With ActiveSheet
 
         Set Aire1 = .Range("A1:A3")
         For Each Cellule In Aire1 'Docmarti
             Cellule = CStr(Cellule)
         Next Cellule
         Set Aire1 = Nothing
 
         Set Aire2 = .Range("C1:C3")
         For Each Cellule In Aire2 'EK
             Cellule = "'" & Cellule
         Next Cellule
         Set Aire2 = Nothing
 
         MsgBox "Nombre de caractères dans A1 : " & Len(.Range("A1")) & Chr(10) & "Nombre de caractères dans C1 : " & Len(.Range("C1"))
 
    End With
 
End Sub

Pièce jointe 287920

[bigs3232]

la solution de bboy semble bien marcher .pas de conversion en date.et j'ai bien accueil texte et non accueil standard
je continue le controle