Convertir texte en nombre en VBA

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:

---

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:

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:

---

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.

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:

---

= 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.

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

Bonjour Menhir

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

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

Bonjour !

En reprenant l'approche de Menhir, essaie ceci

Code:

---

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

---

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.

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.

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:

---

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

---

B1 ne contiendra pas 11,12, mais 11

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. ;)

Citation:

---

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:

---

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

---

Citation:

---

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.

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:

---

528 03/01/2018 7300

---

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

Code:

---

=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:

---

=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:

---

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

ok merci Menhir

ton CNUM résout la problématique

Code:

---

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

---

merci de votre aide a tous

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

Bonjour !

Citation:

---

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, …