VBA, recherche d'une adresse d'une chaine de caractère partiellement variable

[paulo65]

Bonjour à tous,

Via une macro, je cherche a extraire un nombre contenu dans une donnée de type chaine de caractère dont l'adresse et le nombre cherché sont variable mais dont une partie du texte de la chaine de caractère est lui figé.

Exemple dans "FrequencyResolution=0.8544921875" le texte jusqu'a "=" est toujours le même mais le nombre est une donnée variable ainsi que son adresse, que je cherche à extraire

Voici un fichier exemple avec comment je le fais.

Merci pour vos réponses.

 

[DoubleZero]

Re : VBA, recherche d'une adresse d'une chaine de caractère partiellement variable

Bonjour, paulo65, le Forum,

Peut-être ainsi :

Sub Nombres_de_A_extraire_vers_B()
'code de MichelXld (merci !)
Dim i As Byte, j As Byte
Dim Cell As Range
Dim Cible As String
Dim Nombre As Double, Total As Double

For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Cible = Cell
j = 0
i = 0
Cible = Application.Substitute(Cible, ",", ".")
Cible = Application.Substitute(Cible, " ", "x")
For i = 1 To Len(Cible)
If IsNumeric(Mid(Cible, i, 1)) Then
j = j + 1
Cell.Offset(0, j) = Val(Mid(Cible, i, Len(Cible) - i + 1))
i = i + Len(Str(Cell.Offset(0, j))) - 1
End If

Next i
Next Cell

End Sub

A bientôt 🙂

 

[CHALET53]

Re : VBA, recherche d'une adresse d'une chaine de caractère partiellement variable

bonjour à tous

Ou alors comme ça (à adapter):

Sub essai()
For i = 5 To 10
adr = Split(Cells(i, 1), "=")
adr1 = adr(1)
Cells(i, 10) = adr1
Next i
End Sub

 

[pierrejean]

Re : VBA, recherche d'une adresse d'une chaine de caractère partiellement variable

Bonjour paulo65

Vois si cela te convient

Edit : Salut Double Zero
Salut Chalet

 

[paulo65]

Re : VBA, recherche d'une adresse d'une chaine de caractère partiellement variable

Merci beaucoup pour vos réponses.
Je vais m'inspirer de tout cela pour trouver une solution.
Encore merci