Discussion :

[guismoman60]

Bonjour,

Pour bien comprendre mon problème, je vais vous donner deux exemples :

- 10+120 120*250X8 U => Cellule A1

- 10+120 120*250X22 U => Cellule A2

Le chiffre suivie du "X" donc 8 et 22 est le chiffre ou nombre que je souhaite extraire.
Il sera toujours précédé d'un "X". Par contre, je ne veux pas le U.

Comment faire en VBA?

Merci de votre réponse rapide

Cordialement

Vincent CRESSONNIER

[excfl]

Bonjour le forum,

Si après le "X" 1 ou 2 caractères à extraire :

Code :

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

=STXT(A1;CHERCHE("X";A1;1)+1;2)

excfl

[guismoman60]

Je voulais écrire la formule dans mon programme VBA.

VOila ce que ça donne mais ça ne marche pas :

Code :

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

Range("C" & compteur).Formula = "=STXT(B" & compteur & ";TROUVE("X";B" & compteur & ";1)+1;2)"

Une solution

Merci beaucoup pour tes informations

Cordialement

Vincent

[Igloobel]

Bonjour,

A priori ceci devrait faire l'affaire. J'utilise l'objet cell qui permet de se déplacer de ligne en ligne simplement par de variable car je suppose que tu n'as pas que 2 données

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
    Dim Var As String
    Dim Var2 As String
 
    Var = Trim(Mid(Cells(1, 1).Value, 16, 2))
    Var2 = Mid(Cells(2, 1).Value, 16, 2)
 
    MsgBox "A1 : " & Var & vbCrLf & "A2 : " & Var2
 
End Sub

Tu dis si cela te conviens

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim C As Range
For Each C In Range("A1", Cells(Rows.Count, 1).End(xlUp))
    C.Offset(, 1).Value = Application.Substitute(C.Value, " U", "")
    C.Offset(, 1).Value = Split(C.Offset(, 1).Value, "X")(1)
Next C
End Sub

[rjamin]

Bonjour,
On peut faire cela sans VBA avec STXT et TROUVE

Si en D1 par exemple vous mettez

Code :

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

=STXT(A1;TROUVE("X";A1;1)+1;TROUVE("U";A1;1)-2-TROUVE("X";A1;1))

Vous aurez en réponse 8

Vous tirez cette formule vers le bas et en D2 vous aurez 22 comme réponse.

On se sert de TROUVE pour déterminer la position de X et de U dans la chaîne de caractère qui est en Ax

STXT est une fonction texte qui sert justement à extraire une sous chaine d'une chaine dans l'aide d'Excel on trouve

STXT(texte, no_départ, no_car)
MIDB(texte, no_départ, no_octets)
La syntaxe des fonctions STXT et MIDB contient les arguments (argument : valeur qui fournit des informations à une action, un événement, une méthode, une propriété, une fonction ou une procédure.) suivants :

texte Obligatoire. Représente la chaîne de texte contenant les caractères à extraire.
no_départ Obligatoire. Représente la position dans le texte du premier caractère à extraire. Le premier caractère de texte a un no_départ égal à 1, et ainsi de suite.
no_car Obligatoire. Indique le nombre de caractères à extraire du texte à l’aide de STXT.
no_octets Obligatoire. Indique le nombre de caractères à extraire du texte à l’aide de MIDB, en octets.

[guismoman60]

@Igloobel
Désolé mais ça ne va pas car mon X n'est pas toujours à la 16 ième place.

La formule en dure si dessus marche. Donc autant réussir à l'écrire mais en VBA. Donc pouvez vous m'aider à écrire cette formule dans VBA. J'ai une erreur de Syntaxe que je ne trouve pas.

Code :

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

Range("C" & compteur).Formula = "=STXT(B" & compteur & ";TROUVE("X";B" & compteur & ";1)+1;2)"

Merci beaucoup pour vos réponses.

Merci

Vincent

@rjamin
La formule marche en effet, mais je veux l'écrire dans mon code VBA.

[keygen08]

Bonjour
si

Code :

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

Range("C" & compteur).Formula = "=STXT(B" & compteur & ";TROUVE("X";B" & compteur & ";1)+1;2)"

fonctionne
en vba, pourquoi ne pas utiliser

Code :

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

Range("C" & compteur).Formulalocal = "=STXT(B" & compteur & ";TROUVE("X";B" & compteur & ";1)+1;2)"

Apres test

Code :

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

1
2
 
Range("c" & compteur).FormulaLocal = "=STXT(B" & compteur & ";TROUVE(""x"";B" & compteur & ";1)+1;2)"

ne me renvoi plus d'erreur

[guismoman60]

J'ai du sans doute mal me faire comprendre. La formule marche en dure dans excel mais ne marche pas en VBA

[guismoman60]

Je vous remercie pour toutes vos réponses.

J'ai trouvé la solution. La voici :

Code :

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

Range("C" & compteur).Formula = "=MID(B" & compteur & ",FIND(""X"",B" & compteur & ",1)+1,2)"

[Igloobel]

Salut,

tu as dit

Le chiffre suivie du "X" donc 8 et 22 est le chiffre ou nombre que je souhaite extraire.
Il sera toujours précédé d'un "X". Par contre, je ne veux pas le U.
Comment faire en VBA?

donc je te propose une solution VBA

et aussi

Désolé mais ça ne va pas car mon X n'est pas toujours à la 16 ième place.

Du coup on peut faire comme ceci

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
Sub test()
    Dim Var As String
    Dim Var2 As String
    Dim Trouv As Boolean
    Dim i As Long
 
    Trouv = False
    For i = 1 To Len(Cells(1, 1).Value)
        If Mid(Cells(1, 1).Value, i, 1) = "X" Then
            Trouv = True
            Exit For
        End If
    Next
    If Trouv = True Then
        Var = Trim(Mid(Cells(1, 1).Value, i + 1, 2))
        MsgBox "A1 : " & Var
    Else
        MsgBox "X non Trouvé"
    End If
 
End Sub

Solution quasi prète a l'emploi

PS : evite l'objet Range et utilise Cells c'est plus pratique

tu dis

A+

[Daniel.C]

Je vous remercie pour toutes vos réponses.

J'ai trouvé la solution. La voici :

Code :

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

Range("C" & compteur).Formula = "=MID(B" & compteur & ",FIND(""X"",B" & compteur & ",1)+1,2)"

Sans doute, sauf que (pour pinailler) ça ne fonctionne pas si tu dois renvoyer le résultat dans une variable; il faut alors utiliser "Evaluate" .

[guismoman60]

Nickel, ta solution marche très bien. Mais j'ai une colle.

Certaine référence ont trois chiffres suivie d'autre caractère que des chiffres.

Exemple :

120*250X70/PAL
120*250X150/E
120*275X152E

Comment prendre le 150, le 152 ou le 70 sans le slash.

Désolé mais je pense que c'est une vrai colle.

Je pense qu'il faudrait contrôler chaque caractère après le X. Et si le caractère n'est plus un integer, alors je m'arrête . Je fais des tests. Mais c'est moche, et ça ne marche pas du tout. Quelqu'un a une idée?

[Daniel.C]

Certaine référence ont trois chiffres suivie d'autre caractère que des chiffres.

Ca serait sympa d'exposer la totalité de ton problème du premier coup.

[Igloobel]

Salut

Peux-tu certifier que le chiffre a prendre est entre X et / ?

Exemple :

120*250X70/PAL
120*250X150/E
120*275X152E

Ce qui n'était l'exemple du début

- 10+120 120*250X8 U => Cellule A1

- 10+120 120*250X22 U => Cellule A2

Tu dis

A+

[Marc-L]

Bonjour, bonjour !

+1 avec Daniel ‼

Quelqu'un a une idée?

Oui, utiliser ses neurones !

Donc après avoir trouvé la position du "X", extraire le texte à partir de cette position via la fonction Mid
(ou mieux Split comme dans le post suivant) puis convertir en numérique via la fonction Val par exemple …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[eriiic]

Bonjour,

avec une fonction personnalisée :

Code :

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

1
2
3
Function dim3(s As String) As Double
    dim3 = Val(Split(s, "X")(1))
End Function

eric

[Daniel.C]

Code :

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

1
2
3
4
5
6
7
8
9
Dim C As Range, Txt As String, L As Variant
For Each C In Range("A1", Cells(Rows.Count, 1).End(xlUp))
    C.Offset(, 1).Value = Split(C.Value, "X")(1)
    Txt = "X"
    For i = 1 To Len(C.Offset(, 1))
        L = Mid(C.Offset(, 1), i, 1)
        If L = "X" Or IsNumeric(L) Then Txt = Txt & L
    Next i
Next C

puis convertir en numérique via la fonction Val par exemple …

Je ne connaissais pas cette utilisation de "Val" ! Je n'ai pas perdu ma journée. Chapeau à eriiic aussi.

[Invité]

Bonjour,
Teste ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Xnum(V) As Long
Dim aa
aa = V
aa = Split(UCase(aa & "xx"), "X")
aa = aa(1)
For i = 1 To Len(aa)
    If IsNumeric(Mid(aa, i, 1)) = False Then Mid(aa, i, 1) = "~"
Next
Xnum = Replace(aa, "~", "")
End Function
 
Sub test()
Debug.Print Xnum("120*275X152E")
End Sub

[guismoman60]

Pourquoi ça ne marche pas? Sniiiif


Classeur1.xlsm