Convertir texte en nombre en VBA

**frajowc** · 09/01/2018, 12h16

bonjour

je souhaiterai faire un copier coller (via code vba) d'une colonne ou les donner sont en texte a l'origine, pour les coller sur une autre colonne en format nombre.
sachant que les donner a copier sont des chiffre en format texte.
j'ai fait ce code mais rien le copier - coller reste en format texte.

Code :

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

1
2
3
4
5
6
Sheets("1°&2° TOUR  Allées").Visible = True   
    Columns("D:D").Select
    Selection.Copy
    Columns("AG:AG").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

merci de votre aide:

**Menhir** · 09/01/2018, 12h42

C'est un code fait à l'arrache directement sur le forum et non testé. Il se peut donc qu'il y ait un peu de débugage.

Code :

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

1
2
3
4
Dim Cel As Range
For Each Cel In UsedRange.Column("D")
   Cel.Offset(0, 29).Value = Val(Cel.Value)
Next Cel

Lire : https://msdn.microsoft.com/fr-fr/VBA...s/val-function

Pour que ça marche, il faut bien sûr que tes cellules de destination ne soient pas au format Texte.

**unparia** · 09/01/2018, 12h47

Bonjour
J'ai des difficultés à comprendre que l'on puisse poser une telle question.
Si les données sont en format texte, mais dont la chaîne est une expression numérique, la transposition en numérique se fait très simplement dans une autre cellule (puisque tel est don voeu), par simple formule Excel.
Ainsi, si tu as en A1 du texte "transcriptible" en numérique, il te suffit de mettre en B1, formatée en numérique, la simple formule

Code :

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

= A1

!!!
Tu comprendras dès lors mon grand étonnement, puisque l'on est ici à du B.A.BA

Si, par contre, ce que tu as en A1 n'est pas une expression de chaine numérique, ta question est à reposer avec les précisions nécessaires.

**frajowc** · 09/01/2018, 12h55

bonjour UNPARIA

les données récupéré dans la colonne D font partie d'une recherche texte (=STXT(PLAN_CHARG!E2;16;4))
donc ma série de 4 chiffres apparais en format texte.
je souhaiterais copier les donner dans cette colonne et les coller , et les convertir en nombre
merci

**frajowc** · 09/01/2018, 12h58

Bonjour Menhir

Merci pour ta formule ; mais cela ne fonctionne pas erreur 424

**unparia** · 09/01/2018, 13h36

Ta réponse, frajowc, ne change pas un seul iota à celle que je t'ai faite !

**MarcClap** · 09/01/2018, 13h42

Bonjour !

En reprenant l'approche de Menhir, essaie ceci

Code :

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

1
2
3
4
5
6
Dim Cel As Range
Dim Plage As Range
Set Plage = Application.Intersect(ActiveSheet.Columns("D"), ActiveSheet.UsedRange)
For Each Cel In Plage.Cells
    Cel.Offset(0, 29).Value = Val(Cel.Value)
Next Cel

**unparia** · 09/01/2018, 13h45

Bonjour MarcClap
A l'armée, on a l'expression : "même punition pour même motif".

La "punition" arrive si expression numérique non entière, avec une version où le séparateur décimal n'est pas le point.

**MarcClap** · 09/01/2018, 13h48

Bonjour Unparia,

Chez moi ça marche. Attendons de voir ce que ça donne chez frajowc. Il a peut-être que des nombres entiers ou le séparateur de décimales ad'hoc.

**unparia** · 09/01/2018, 13h58

Si cela "marche" chez toi, c'est que :
- soit le séparateur décimal de ta machine est le point
- soit que le texte traité n'est pas l'expression d'un décimal.
Chez moi (séparateur virgule) :
si A1 contient par exemple "11,12" (du texte, donc)
et que j'exécute :

Code :

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

Range("B1").Value = Val(Range("A1").Value)

B1 ne contiendra pas 11,12, mais 11

**MarcClap** · 09/01/2018, 14h02

Oui mais il avait indiqué qu'il s'agissait de 4 chiffres. Donc si c'est effectivement que ça, ça fonctionnera. Dans le cas contraire, on pourra toujours compléter l'ébauche si c'est plus complexe.

**Menhir** · 09/01/2018, 14h09

Envoyé par frajowc

les données récupéré dans la colonne D font partie d'une recherche texte (=STXT(PLAN_CHARG!E2;16;4))

Pourquoi ne pas avoir fait simplement :

Code :

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

=CNUM(STXT(PLAN_CHARG!E2;16;4))

Envoyé par frajowc

Merci pour ta formule ; mais cela ne fonctionne pas erreur 424

J'ai prévenu qu'il y aurait sans doute un peu de débugage à faire.
Tu comptes un peu participer à la résolution de TON problème ou tu attends que ça te tombe tout cuit dans le bec.

En plus, tu ne prends même pas la peine de donner la description de l'erreur ni la ligne concernée.

**frajowc** · 09/01/2018, 14h22

bonjour MarcClap et merci

non ta formule ne fonctionne pas.

je vais reformuler ma demande :

dans la colonne D jai une série de quatre chiffre ,qui elle même vient d'une série d'écriture que j’appellerais clef transport:

Code :

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

528 03/01/2018 7300

de cette clef je fait la formulation suivante dans une feuille exel

Code :

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

=STXT(PLAN_CHARG!E2;16;4)

a partir de la ma série de 4 chiffes (N° de tour) ;là pour l'exemple 7300.
je veux faire un copier de cette valeurs dans la colonne AG
a partir de ce copier coller il y a une recherche qui est faite. formule :

Code :

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

=SI(AG6="";"";(RECHERCHE(AG6;'mission infolog'!A:B;'mission infolog'!B:B)))

hors lors du coller des N° de tour ils apparaissent en texte , et nom pas en nombre , d'où ma problématique pour la recherche.

actuellement j'ai le code ci-dessous mais qui ne change rien

Code :

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

1
2
3
4
5
6
        Sheets("1°&2° TOUR  Allées").Visible = True
      Columns("D:D").Select
    Selection.Copy
  Columns("AG:AG").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False

merci d’éclaire ma lanterne

**frajowc** · 09/01/2018, 14h28

ok merci Menhir

ton CNUM résout la problématique

Code :

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

=CNUM(STXT(PLAN_CHARG!E2;16;4))

**frajowc** · 09/01/2018, 14h30

merci de votre aide a tous

pas facile de récupéré un VBA 2003 sans commentaire et de le passé sur du 2013....

**Marc-L** · 16/01/2018, 10h33

Bonjour !

Envoyé par frajowc

pas facile de récupéré un VBA 2003 sans commentaire et de le passé sur du 2013....

Aucun rapport avec la version car c'est juste un problème de conception ‼

Beaucoup de mes codes développés sous 2003 fonctionnent sans souci dans les versions supérieures !
La plupart de mes réponses dans le bon forum - ici n'étant pas celui du VBA ‼ - proviennent d'une version 2003
sans que cela gêne par exemple un demandeur sous la version 2013 …

___________________________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Convertir texte en nombre en VBA

Macros et VBA Excel

Discussions similaires

Partager

Partager