Transformer du texte en nombres...

[Guido]

Bonjour

Apres avoir fait un copier -coller dans une feuille excel..j'aimerais enlever des formes d'image???

voir le fichier..

est ensuite transformer les valeur texte en nombres..

voir dans la meme feuille..

Merci d'avance pour votre aide.

Guido

 

[Victor21]

Re : Transformer du texte en nombres...

Bonjour Guido

Copier-coller depuis quoi ?

Pour les "formes d'image" : Rechercher et sélectionner, Sélectionner les cellules, Objets, OK, puis appuyer sur la touche Suppr.

 

[NezQuiCoule]

Re : Transformer du texte en nombres...

Bonjour Guido,

Pour supprimer toutes les images : Clic droit sur une image pour la sélectionner, Ctrl + A pour les sélectionner toutes puis Supprimer
Pour les valeurs en nombre : Utiliser la fonction Excel REMPLACER pour remplacer le point par une virgule.

 

[Paf]

Re : Transformer du texte en nombres...

Bonjour Guido, Victor21


Une autre solution pour les formes d'images : avec la flèche des outils dessin, sélectionner la zone, puis touche <Suppr>

ou par macro:

Sub Macro()
 Dim Shp As Shape
 For Each Shp In ActiveSheet.Shapes
    Shp.Delete
 Next Shp
End Sub

mais attention ! tout sera supprimé, images,boutons, formes...


Pour le problème des nombres sous forme de texte:

Sub Macro2()
 Dim cel
 For Each cel In Worksheets("Feuil2").Range("A1").CurrentRegion
    cel.Replace What:=".", Replacement:=","
    cel.Value = CDbl(cel.Value)
 Next
End Sub

A+

Edit: bonjour NezQuiCoule

 

[Guido]

Re : Transformer du texte en nombres...

Bonjour Guido

Copier-coller depuis quoi ?

Pour les "formes d'image" : Rechercher et sélectionner, Sélectionner les cellules, Objets, OK, puis appuyer sur la touche Suppr.

Re

Salut Patrick

je ne voulais pas faire de pub????

Je copie sur un site genre PMU...les cotes...la page des partants d'une course et les cotes..

et je colle sur la page excel.

Re

Salut NezQuiCoule

Pour les valeurs en nombre : Utiliser la fonction Excel REMPLACER pour remplacer le point par une virgule

Oui ,j'ai essaié mais ca ne fonctionne pas,j'ai fait point par virgule et l'inverse...

Merci

a plus

Guido

 

[Victor21]

Re : Transformer du texte en nombres...

Re, bonjour NQC, Paf 🙂

Effectuez une recherche sur l'importation de données.

 

[Guido]

Re : Transformer du texte en nombres...

Bonjour Guido, Victor21


Une autre solution pour les formes d'images : avec la flèche des outils dessin, sélectionner la zone, puis touche <Suppr>

ou par macro:

Sub Macro()
 Dim Shp As Shape
 For Each Shp In ActiveSheet.Shapes
    Shp.Delete
 Next Shp
End Sub

mais attention ! tout sera supprimé, images,boutons, formes...


Re

Donc ,j'ai reussi a faire la macro,c'est bon

Mais ,comme tu me l'avait dit..le bouton a été supprimer aussi

si je met le bouton de cette macro dans une autre feuille vierge esque cela peut fontionné...ou faut il modifier la macro...

Merci

Guido

 

[Paf]

Re : Transformer du texte en nombres...

Re,

une modif permettant de fonctionner ou que soit le bouton de lancement, puisque ne supprimant que les images nuisibles (les autres aussi d'ailleurs) :

Sub Macro()
 Dim Shp As Shape
 For Each Shp In Worksheets("Feuil2").Shapes ' nom de la feuille à adapter
    If Shp.Type = 13 Then Shp.Delete
 Next Shp
End Sub

A+

 

[Guido]

Re : Transformer du texte en nombres...

Re

Je te remercie

le fichier a deux feuilles

la premiere

STARTER

La 2em

Saisies des cotes

Merci a plus

je ne suis pas trop modifier les texte ..des macros..

Guido

 

[Staple1600]

Re : Transformer du texte en nombres...

Bonjour à tous

Guido

Je copie sur un site genre PMU...les cotes...la page des partants d'une course et les cotes..

Ce que disait camarchepas dans cet autre fil que tu as initié ,il y a quelque jours reste valable, non ?
https://www.excel-downloads.com/threads/la-macros-bugg.229444/
A savoir qu'on ne peut pas publier sur XLD de solutions qui interférent avec le point 8 de la charte du forum.


[Pour infos et pour varier les plaisirs]
Sinon pour supprimer des objets : F5 / Cellules / [x] Objets et appuie sur la touche SUPPR
et si besoin en VBA

Sub ZapShapes()
ActiveSheet.Shapes.SelectAll: Selection.Delete
End Sub

Évidemment là aussi on supprime tous les objets
Mais ce n 'est pas grave puisque plus bas, on sait comme supprimer sélectivement des shapes sur une feuille 😉

 

[Guido]

Re : Transformer du texte en nombres...

Ré

Bonjour Staple1600

Tout a fait ok avec Toi,

Mais j'ai juste repondu a Victor21

Bonjour Guido

Copier-coller depuis quoi ?Incident clos,merci

Je n'arrive tj pas a transformer les nombres texte en nombres normal..

qui se trouve dans le fichier poster en premier.

meme avec remplacer....point par virgule..

a plus

Guido

 

[Staple1600]

Re : Transformer du texte en nombres...

Bonjour à tous

Guido

Je n'arrive tj pas a transformer les nombres texte en nombres normal..

Et pourtant ... 😉
On dirait que la macro ci-dessous y arrive, non ? 😉
Je sélectionne au préalable les cellules C1:C14 puis je lance la macro ci-dessous
et j'obtiens bien des nombres.
(test OK sur Excel 2013)

Sub MacroOK()
Dim x$
x = Chr(160)
Selection.Replace What:=x, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
Selection.TextToColumns _
        Destination:=Range("C1"), DataType:=xlDelimited, _
        FieldInfo:=Array(1, 1), DecimalSeparator:="."
End Sub

EDITION:
Guido
D’ailleurs la macro de Paf le faisait très bien aussi dès le message #4
https://www.excel-downloads.com/threads/transformer-du-texte-en-nombres.229601/

 

[Paf]

Re : Transformer du texte en nombres...

re bonjour à tous

@ Staple1600 : merci de l'avoir remarqué.

Même si les cellules vides passent à 0 et qu'il y a plantage dès qu'une cellule contient du texte pur.

A+

 

[Guido]

Re : Transformer du texte en nombres...

Bonsoir

j'ai essayé et voila..ca bugg

Dim x$
x = Chr(160)
Selection.Replace What:=x, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows


Le texte en dessous..est jaune



Selection.TextToColumns _
Destination:=Range("C1:C14"), DataType:=xlDelimited, _
FieldInfo:=Array(1, 1), DecimalSeparator:="."

le texte de la macro est tout jaune




End Sub

Merci de corriger ma macro..

Guido

Ps pour les objet c tout ok avec F5 encore merci

Guido

 

[Staple1600]

Re : Transformer du texte en nombres...

Bonsoir à tous

Guido

Je sélectionne au préalable les cellules C1:C14 puis je lance la macro ci-dessous

tu as sélectionné ?