XL 2010 copier cellule avec du texte dans autre cellle en valeur

[lao31]

Bonjour,

J'ai cherché dans les forums mais je ne trouve pas.
Probablement que ma demande est mal formulé.
Ce que je souhaiterai est:
dans la celluleA1 j'ai une serie de nombre
ex: 2 6 4 12 ils sont en texte
est il possible d'avoir en B1 2 en C1 en D1 4 et en E1 12
C'est peut etre simple, mais j'ai essayer avec substitute et je m'embrouille.
Merçi pour votre aide
cordialement
Michel

 

[pierrejean]

Bonjour lao31

Un essai en Vba (fonction personnalisée)

 

[Jacky67]

Bonjour,

J'ai cherché dans les forums mais je ne trouve pas.
Probablement que ma demande est mal formulé.
Ce que je souhaiterai est:
dans la celluleA1 j'ai une serie de nombre
ex: 2 6 4 12 ils sont en texte
est il possible d'avoir en B1 2 en C1 en D1 4 et en E1 12
C'est peut etre simple, mais j'ai essayer avec substitute et je m'embrouille.
Merçi pour votre aide
cordialement
Michel

Bonjour,
Menu Données==>convertir ne fait pas ?

 

[lao31]

Bonjour Pierre jean, Jacky67

Merci a vous deux,
y a des moments ou je me fais du soucis, Je croyais que l'on pouvais convertir que des fichiers CSV
merci pour la claque.

Cordialement

 

[lao31]

Re bonjour,
Certainement que j'avais mal formulé ou que je suis a coté de la plaque.
ou mon fichier n'etait ps le bon.
Pourquoi:
Pierre jean; j'ai bien pris ton fichier lao 31
j'ai readapter au mien et :
quand j'essai de faire une somme je trouve 0
alors est ce que cela provien du fait que ma celleule a convertir est du texte ou autre chose ?
cela expliquerai qu'une fois converti je ne peut pas faire d’opération dessus ?
A moins que cela vienne du fait que le fichier est en lecture seule ?
ou est ce que ? ben jsuis trop nul...
merçi aniway.
je join quand même ce petit fichier pour j'en suis sur être éclairé.

 

[Staple1600]

Bonjour le fil, le forum

A titre illustratif, A TESTER SUR UN CLASSEUR VIERGE
Copier ce qui suit dans un module puis lancer la macro nommée Traitement

Sub Traitement()
Pour_Test
MsgBox "Utilisation de Données/Convertir", vbOKOnly, "TEST"
Conversion
End Sub
Private Sub Pour_Test()
Cells.Clear: Range("A1:A30") = "=ROW() & "" 1 2 3 4 """
[A1:A30].Value = [A1:A30].Value
End Sub
Private Sub Conversion()
Columns(1).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, ConsecutiveDelimiter:=True, Space:=True
End Sub

Normalement, si tu utilises Données/Convertir manuellement et que tu coches bien Standard à l'étape 3 , tu dois obtenir des données au format Standard comme c'est spécifié
"l'option Standard convertit les valeurs numériques en nombres"

J'ai mis cette macro, juste comme une démonstration (pour tu vois qu'ensuite tu pourras faire tes sommes)

 

[lao31]

Bonjour le forum, staple1600

J'ai bien recopier ton code, mais le probleme est le suivant;
Quand je lis ton code:
Sub Traitement()
Pour_Test
MsgBox "Utilisation de Données/Convertir", vbOKOnly, "TEST"
Conversion
End Sub
Private Sub Pour_Test()
Cells.Clear: Range("A1:A30") = "=ROW() & ""4 5 14 15 18 20 ......... """ si je dois me taper tout les nombres contenu dans la cellule A1 sur x lignes, cela me parait impossible
[A1:A30].Value = [A1:A30].Value
End Sub
Private Sub Conversion()
Columns(1).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, ConsecutiveDelimiter:=True, Space:=True
End Sub

Comme j'ai pas al de ligne cela me parait trop compliquer pour utiliser le code ci-dessus:
quand à:
Normalement, si tu utilises Données/Convertir manuellement et que tu coches bien Standard à l'étape 3 , tu dois obtenir des données au format Standard comme c'est spécifié
"l'option Standard convertit les valeurs numériques en nombres"
Cela ne fonctionne pas dans ma feuille
snif snif

cordialement

lao31

 

[pierrejean]

Re
Comme le contenu de A1 est du texte la fonction renvoie du texte
Avec la modif de ce fichier on aura des nombres (mais attention il sera nécessaire d'en avoir au depart)

 

[lao31]

Re,

Merci Pierrejean, mais plus j'avance, plus je suis convaincu que les cellules que j'ai prises sur le net sont des images.
Il n'y a donc pas moyen de faire quelques choses ?
A moins d'utiliser le code de Staple1600 ce qui voudrait dire que je dois me taper toutes les lignes a la main.
Cordialement

PS: Pour ne rien vous cacher, ces les historiques des tirages du Keno que j'ai pris sur un site

Michel

 

[pierrejean]

Re
poste un fichier exemple

 

[lao31]

Re Pierrejean
Voici une petite partie du fichier ( cause place ).

 

[pierrejean]

Re

Vois si cela te convient

 

[lao31]

RE,

Merci 1000 fois c'est parfait.
Vais voir dans la maco comment cela fonctionne.
Bonne soirée a tous.
Cordialement

Michel

 

[Staple1600]

Bonjour le fil, le forum, lao31, pierrejean 😉

lao31
Il faut parfois lire le nom que je donne à mes macros
Private Sub Pour_Test()

Ce qui veut dire que cette macro n'était là que pour créer un exemple🙄

Seule comptait la macro conversion 😉