Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transformer du texte en nombres...

  • Initiateur de la discussion Initiateur de la discussion Guido
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Guido

XLDnaute Accro
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
 

Pièces jointes

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

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

Code:
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
 
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
 
Re : Transformer du texte en nombres...

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

Code:
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+
 
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
 
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
Code:
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 😉
 
Dernière édition:
Re : Transformer du texte en nombres...



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
 
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)
Code:
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/
 
Dernière édition:
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+
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Format de nombres
Réponses
21
Affichages
422
  • Question Question
Microsoft 365 Power Query
Réponses
2
Affichages
267
D
  • Question Question
Power Query powerquery
Réponses
4
Affichages
543
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…