Discussion :

[ArthurO0O]

Bonjour,

J'aimerais pouvoir sélectionner une valeur au milieu d'un texte dans une cellule...

Ex. Si une cellule a pour valeur "Il fait 17°" sélectionner le 17, poour pouvoir l'utiliser dans un champ température...

2ème cas : Dans une cellule "Il fait 17° et il y a 46% d'humidité", pouvoir repérer chaque valeur une à une (pouvoir par ex. avoir un champ température et un autre humidité, et que les 2 s'actualisent...)

J'espère avoir été clair...

Meci d'avance de vos réponses

ArthurO0O

[SilkyRoad]

bonjour


Tu peux tester et adapter cet exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub extraireValeursNumeriques_DansChaine()
    Dim x As Integer, Nb As Integer
    Dim Cible As String, Resultat As String
    Dim Nombre As Single
 
    Cible = "12,3azerty23,5 67"
    'il faut remplacer les virgules par des points
    'Pour que fonction Val puisse reconnaitre les décimales.
    Cible = Replace(Cible, ",", ".")
    'Remplacement des espaces par un caractère Alphabétique, pour
    'gérer deux nombres qui se suivent.
    Cible = Replace(Cible, " ", "$")
 
    'Boucle sur tous les caractères de la chaîne cible.
    '(La fonction Len renvoie le nombre de caractères contenu dans la variable "Cible").
    For x = 1 To Len(Cible)
        'Si le caractère est de type numérique
        If IsNumeric(Mid(Cible, x, 1)) Then
            'Extrait la donnée numérique de la chaîne
            Nombre = Val(Mid(Cible, x, Len(Cible) - x + 1))
            Nb = Nb + 1
            'Enregistre la valeur dans la variable de résultat
            Resultat = Resultat & Nombre & vbLf
 
            '--- Force l'incémentation de la variable compteur (x) du nombre de caractères
            'que contient la donnée numérique extraite:
            x = x + Len(Str(Nombre)) - 1
            ' ---
        End If
    Next
 
    MsgBox "Il y a " & Nb & " valeurs numériques dans la chaîne:" & vbLf & Resultat
End Sub

michel

[ArthurO0O]

Merci cela fonctionne à merveille... Cependant, le problème est qu'il me renvoie une MsgBox, m'indiquant le nombre de valeurs numériques, et les quelles elles sont...
("Il y a 2 valeur numérique dans la chaînes : /17 /46") (les / représentent les retours de ligne. )

Cependant, il fat que j'entre manuellement les valeurs pour les exploiter à nouveau... Comment faire pour que les valeurs deviennent sélectionnées (ex. qu'en faisant Selection.Paste ensuite, l puisse les copier dans une autre cellule? )

De plus, dans la MsgBox de fin, est-il possible de séparer les valeurs les unes des autres? (ex. La il affiche "Il y a 2 valeur numérique dans la chaînes : /17 /46" (les / représentent les retours de ligne. ) et il faudrait afficher "Tempérture extraite des données : 17 /Humidité extraite des données : 46"...

Serait-ce possible?

[SilkyRoad]

rebonsoir

Je ne comprend pas le sens de ton message ...

il suffit de récupérer les valeurs prises par la variable "Nombre", dans cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'Extrait la donnée numérique de la chaîne
Nombre = Val(Mid(Cible, x, Len(Cible) - x + 1))

michel

[ArthurO0O]

Oui, merci, je n'avais pas réfléchi, je m'en suis rendu compte entre temps...

Cependant, j'ai un autre problème Je suis désolé...

La ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cible = Replace(Cible, ".", ",")

et l'autre ligne avec la fonction Replace ne fonctionnent pas...
Comme j'utilise un Excel en anglais, ca ne me gêne pas, mais j'aimerais envoyer cela à des utilisateurs d'un Excel français, et la problème... Lorsque j'éxécute la macro, il ne me donne pas d'erreur, mais ne remplace pas les points...

Je ne comprends pas comment faire... J'ai cru que peut-être c'était car la nouvelle valeur de la cellule n'est pas enregistrée dans la variable de résultat, mais je ne sais pas comment résoudre ce problème... J'ai essayé de m'inspirer de l'autre partie ou la valeur était elle enregistrée dans la var. de rés., mais je ne suis arrivé à rien...

Merci d'avance
ArthurO0O

[ouskel'n'or]

Au lieu de remplacer les points pas des virgules, essaie de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cible = Replace(Cible, ",", ",")

L'Excel français place des virgules à la place des points mais si tu saisis un point, il l'assimile à une virgule...
C'est ainsi que je me l'explique mais j'ai déjà eu ce pb et en outre j'ai vu passer une discussion ou ce simple remplacement réglait le pb.
A tout hasard.

[ArthurO0O]

Merci, ca marche en effet!

Je mets Résolu de suite!