Discussion :

[frajowc]

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]

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]

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]

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]

Bonjour Menhir

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

[unparia]

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

[MarcClap]

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