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

[bigs3232]

oui eric merci pour votre réponse .c'est bizarre excel des fois

[bigs3232]

bboy .je sais que ca marche mais j'ai pas compris pourquoi çà marche
on stocke la cellule dans une chaine et on applique numformat et apres on recupere chaine

Code :

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

1
2
3
4
 
chaine = c.Value
    c.NumberFormat = "@"
    c.Value = chaine

[unparia]

Bonjour
La canicule me joue peut-être des tours, mais pour moi (et si j'ai bien compris) :

Code :

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

1
2
3
4
5
6
Application.ScreenUpdating = False
    With Selection
      .NumberFormat = "@"
      .Value = .Text
    End With
    Application.ScreenUpdating = True

fait l'affaire

[bboy-eazy]

En fait quand j'ai voulu essayer ton truc j'ai remarquer que la date change dès que tu appliques le format texte.
du coup une fois le format appliqué, la date se transforme en nombre.

De ce fait pour que tu puisses garder le format texte avec la date en mode texte j'ai:
- stocker la valeur de la date en chaine de caractère (string)
- changer le format de la cellule en texte
- remis la chaine de caractère dans la cellule pour qu'il n'y ai pas de chagnement

Par contre ce que je ne comprends pas, c'est le pourquoi tu veux absolument un format texte?

[bigs3232]

j'ai des colonnes avec numéro série de constructeurs avec 12 à 15 chiffres et/ou -_ .des fois l'affichage de ces chiffrres ne se fait pas correctement et puis j'ai une fonction de recherche de doublons qui a besoin que la colonne soit en texte .
voilà et encore merci

[RyuAutodidacte]

Bonsoir,

Quel est le but de ta fonction de conversion ?
Si toutes les données sont censées être au format texte dans la colonne A (ou colonne toto), ne suffit il pas de mettre simplement ladite colonne au format Texte (ou le format souhaité) ? Point de conversion.
Et dans le traitement des données si les colonnes sont déjà mis au bon format avant, pour copier les données il suffit alors juste de coller la valeur des données (.Value),
les valeurs prendront automatiquement le format de la colonne (pré-formatée).

un exemple ici d'un problème survenu lors de traitements de données avec des colonnes non pré-formatées : post #5, post 8# et #9

Il est important de réfléchir en amont de la manière dont on va traiter les données afin d'éviter certains problèmes.

A voir …

Penser Excel avant vba (ce qui peut être fait avant faisons le, que ça soit les formats, les formules … etc …)

[bigs3232]

oui effectivement c'est pas bete .une fois que c'est au format texte j'ai plus besoin de refaire .il suffit de faire une fonction avec clear des anciennes données et reinjecter les nouvelles données pour appliquer ma fonction de recherche de doublons par exemple.
mais j'ai toujours besoin de ma fonction de conversion pour plein de taches car effectivement quand on saisie 0003450 sur une cellule standard ca n'affiche pas 0003450 d'ou ma fonction de conversion en 1 seul clic .mon but est de minimiser le nombre de clic pour une tache car on gagne beaucoup de temps

[RyuAutodidacte]

bonjour,

ne pas faire Clear qui efface aussi la mise en forme mais faire ClearContents
comme je te le disais si tu ré-injecte tes nouvelles données dans les colonnes pré-formatées par les valeur (sans mise en forme , etc …) point de conversion alors
après je ne sais pas de quelle manière tu les injectes, mais que ca soit par maplage.Value ou par tableau du moment que c'est bien paramètré ça marche

[bigs3232]

oui c'est vrai clearcontent je modifie mon code alors.un grand merci.allez encore une pouce pour toi avec plaisir

[RyuAutodidacte]

Bonjour,

Si tout est ok pour toi n'oublie pas de mettre