[Résolu] suprimer le texte dans les cellules et convertion numérique

[Geely]

Bonsoir le forum
Je souhaite copier mon tableau A pour le mettre dans le tableau B en supprimant le texte et en remplacent les points par des virgules pour ensuite faire un simple calcul.
J'ai essayé de plusieurs façon,(enregistrement de macro, fonction remplacer etc) mais impossible de faire la conversion numérique.
Le tableau A contient du texte et un nombre avec "."

Geely

 

[Modeste]

Re : suprimer le texte dans les cellules et convertion numérique

Bonsoir Geely,

En habitué du forum, tu n'auras pas manqué de lire dans pratiquement 1 message sur 2, qu'un fichier est souvent demandé: les cas de figures sont tellement variés dans ton cas, que le fichier exemple devient incontournable.

Pas besoin de tout le fichier: juste un extrait significatif de sa structure et des données qu'il contient ... sans infos confidentielles!

 

[Geely]

Re : suprimer le texte dans les cellules et convertion numérique

Bonsoir modeste

Oups le fichier ! J'ai juste oublié de le joindre.
merci du rappel

 

[Tibo]

Re : suprimer le texte dans les cellules et convertion numérique

Bonjour le fil,

Par formule, ça pourrait donner ceci :

=SUBSTITUE(F7;" g/l";"")*1

ou ceci si ton séparateur décimal est la virgule :

=SUBSTITUE(SUBSTITUE(F7;" g/l";"");".";",")*1

@+

 

[Modeste]

Re : suprimer le texte dans les cellules et convertion numérique

re-bonsoir,
Salut Tibo

Puisque Tibo l'a proposé (et à condition que l'exemple donné soit vraiment significatif), la même chose donc, par macro:

Sub convertir()
For Each c In Range("F7:F" & Range("F5000").End(xlUp).Row)
    c.Value = Trim(Application.Substitute(Application.Substitute(c, " g/l", ""), ".", ",")) * 1
Next c
End Sub

remplace directement les valeurs en colonne F

 

[Geely]

Merci à vous deux
j'avais utilisé la fonction SUBSTITUE mais en deux étapes.

avec une macro
Sub suprimepoint()
Range("I:I27").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Range("F7").Select
End Sub

Vos solutions sont plus simples et plus efficaces.
merci