Extraire un chiffre ou un nombre dans une désignation

Version imprimable

Voir 40 message(s) de cette discussion en une page

17/09/2014, 10h08
guismoman60

Extraire un chiffre ou un nombre dans une désignation

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
17/09/2014, 10h18
excfl

Bonjour le forum,

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

Code:

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

excfl
17/09/2014, 10h29
guismoman60

Je voulais écrire la formule dans mon programme VBA.

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

Code:

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

Une solution

Merci beaucoup pour tes informations

Cordialement

Vincent

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:

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

Bonjour,

Code:

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

17/09/2014, 10h38
rjamin

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

Si en D1 par exemple vous mettez

Code:

=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.
17/09/2014, 10h55
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:

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.
17/09/2014, 11h00
keygen08
Bonjour
si

Code:

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

fonctionne
en vba, pourquoi ne pas utiliser

Code:

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

Apres test
Code:

1 2 Range("c" & compteur).FormulaLocal = "=STXT(B" & compteur & ";TROUVE(""x"";B" & compteur & ";1)+1;2)"
ne me renvoi plus d'erreur
17/09/2014, 11h03
guismoman60

J'ai du sans doute mal me faire comprendre. La formule marche en dure dans excel mais ne marche pas en VBA
17/09/2014, 11h06
guismoman60

Je vous remercie pour toutes vos réponses.

J'ai trouvé la solution. La voici :

Code:

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

Salut,

tu as dit

Citation:

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

Citation:

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:

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+

17/09/2014, 11h30
Daniel.C

Citation:

Envoyé par guismoman60

Je vous remercie pour toutes vos réponses.

J'ai trouvé la solution. La voici :

Code:

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" :lol:.
17/09/2014, 11h32
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?
17/09/2014, 11h36
Daniel.C

Citation:

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.
17/09/2014, 11h40
Igloobel

Salut

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

Citation:

Exemple :

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

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

Citation:

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

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

Tu dis

A+
17/09/2014, 11h42
Marc-L

Bonjour, bonjour !

+1 avec Daniel ‼

Citation:

Envoyé par guismoman60

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
17/09/2014, 11h42
eriiic

1 pièce(s) jointe(s)
Bonjour,

avec une fonction personnalisée :
Code:

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

Code:

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

Citation:

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.

Bonjour,
Teste ça

Code:

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

17/09/2014, 12h25
guismoman60

1 pièce(s) jointe(s)

Pourquoi ça ne marche pas? Sniiiif

Pièce jointe 156480

Voir 40 message(s) de cette discussion en une page