Excel VBA : extraire chaine caracteres Résolu

Question

Bonjour, 

Je cherche a extraire la chaine de caractères présente avant le caractère *
La chaine peut avoir une longueur variable (c'est pour ça que je sèche :) )
Exemple :
terrelune*123156
terre*15594
Da,s ces 2 cas je voudrais récupérer la valeur avant "*" donc 
- terrelune
- terre

Auriez vous une piste ? Merci d'avance !

le père · Answer

Bonjour

if instr("*",b$)>0  then a$=left(instr("*",b$)-1)

Eaheru · Answer

Merci pour votre réponse rapide, je vais tester de ce pas ! :)

Eaheru · Answer

Hum, j'ai du mal à l'intégrer dans mon code ...
 
 ' Analyse colonne C du fichier 1 - recherche de la clé
    For Each cel1 In ws1.Range("C2:C" & derlig1)
For Each cel3 In ws3.Range("C2:C" & derlig3)
            ' Si les clés correspondent, alors verifier de quel produit elle depend et transfert de la ligne vers l'onglet concerné
            b = cel1
            If InStr("*", b$) > 0 Then A$ = Left(InStr("*", b$) - 1)
            If (cel3.Value Like cel1.Value) Or (A Like cel3) Then
                ws1.Rows(cel1.Row).Copy
                    ws8.Select
                    Cells(cel8, 1).Select
                        ActiveSheet.Paste
                            cel8 = cel8 + 1
            End If
        Next cel3
Next cel1

Désolé, je dois m'y prendre comme une courge.

michel_m · Answer

Bonjour 

le problème vient du fait que l'étoile (*) est un joker et quand on cherche "*" cela revient à dire:  " on cherche s'il existe au moins un caractère  voire une valeur nulle style "") " 
il faut donner feinter 

cette fonction renvoie le texte avant l'étoile ou le texte entier si il n'y a pas détoile 

Function avant_etoile(ByVal texto As String) As String
Dim cptr As Byte
For cptr = 1 To Len(texto)
     If Asc(Mid(texto, cptr, 1)) = 42 Then
          avant_etoile = Left(texto, cptr - 1)
          Exit Function
     End If
Next
avant_etoile = texto
End Function

Sub test()
cell1 = "ddd*(-è"
cell1 = avant_etoile(cell1)
MsgBox cell1
End Sub
 Michel

le père · Answer

Non, la fonction Instr n'a pas de joker, ni *, ni autre chose.
Mais j'ai inversé l'ordre des paramètres ->
 If InStr(b$,"*") > 0 Then A$ = Left(InStr(b$,"*") - 1)

Eaheru · Answer

Merci de ces informations, je vais tenter la modif illico ! :)

Eaheru · Answer

Je suis désolé, mais j'ai du mal a comprendre et donc à intégrer cette ligne directement dans mon code : 

' Analyse colonne C du fichier 1 - recherche de la clé 
    For Each cel1 In ws1.Range("C2:C" & derlig1) 
For Each cel3 In ws3.Range("C2:C" & derlig3) 
            ' Si les clés correspondent, alors verifier de quel produit elle depend et transfert de la ligne vers l'onglet concerné 
            b$ = cel1 
             
            If InStr(b$, "*") > 0 Then A$ = Left(InStr(b$, "*") - 1) 
            b = (Split(cel1, "*")) 
            If (cel3.Value Like cel1.Value) Or cel3 = A$ Then 
                ws1.Rows(cel1.Row).Copy 
                    ws8.Select 
                    Cells(cel8, 1).Select 
                        ActiveSheet.Paste 
                            cel8 = cel8 + 1 
            End If 
        Next cel3 
Next cel1 


Suis je sur la bonne piste en affectant cel1 à b$ ? puis en comparant cel3 à A$ ?
Lorsque je lance la macro, Excel me renvoi le message : 
erreur de compilation / Argument non facultatif
en s'arrêtant sur l'instruction "Left" de la formule "A$ = Left(InStr(b$, "*") - 1"

Eaheru · Answer

La fonction proposée par Michel_m a l'air de fonctionner parfaitement :)
Je vais partir la dessus

Merci a vous pour votre aide !

Excel VBA : extraire chaine caracteres

8 réponses

Discussions similaires

Newsletters