XL 2019 Extraire avec condition un Numéro dans une chêne de caractère VBA Excel

[iliess]

Bonjour
Je souhaite Extraire le numéro qui se trouve au début ou juste après "-C_"

J'ai utiliser le code suivant

Sub extraire()
Dim Arr
Arr = Range("A2:C7")
For i = LBound(Arr) To UBound(Arr)
  
    If Arr(i, 2) Like "*-C_*" Then
          Range("C" & i).Value = Left(Arr(i, 2), Find("-", Arr(i, 2) - 1)) & "_" & Split(Arr(i, 2), "_")(1)
    Else
          Range("C" & i).Value = Left(Arr(i, 2), Find("-", Arr(i, 2) - 1)) & "_" & Arr(i, 1)
    End If
Next i
End Sub

voici un fichier Exemple
Merci

 

[Jacky67]

Bonjour
Je souhaite Extraire le numéro qui se trouve au début ou juste après "-C_"

J'ai utiliser le code suivant

Sub extraire()
Dim Arr
Arr = Range("A2:C7")
For i = LBound(Arr) To UBound(Arr)
 
    If Arr(i, 2) Like "*-C_*" Then
          Range("C" & i).Value = Left(Arr(i, 2), Find("-", Arr(i, 2) - 1)) & "_" & Split(Arr(i, 2), "_")(1)
    Else
          Range("C" & i).Value = Left(Arr(i, 2), Find("-", Arr(i, 2) - 1)) & "_" & Arr(i, 1)
    End If
Next i
End Sub

voici un fichier Exemple
Merci

Bonjour,
Sans VBA ???

=TEXTE(A2;"0000000")&"_"&GAUCHE(B2;TROUVE("-";B2)-1)

 

[iliess]

Merci Mr Jacky pour votre réponse
svp je souhaite en vba car c'est une partie d'un autre code

 

[Jacky67]

Merci Mr Jacky pour votre réponse
svp je souhaite en vba car c'est une partie d'un autre code

Re..
En vba cela pourrait ressembler à ceci

Sub extraire1()
    With Feuil1
        With .Range("c2.c" & .Cells(.Rows.Count, "A").End(xlUp).Row)
            .Formula = "=TEXT(A2,""0000000"")&""_""&LEFT(B2,FIND(""-"",B2)-1)"
            .Value = .Value
        End With
    End With
End Sub

 

[iliess]

voici ce message d'erreur

 

[Jacky67]

voici ce message d'erreur
Regarde la pièce jointe 1124830

Re..
Le classeur que j'ai mis en PJ fonctionne ???
Vérifier si le CodeName de la feuille est bien "Feuil1"
Sinon changer
With Feuil1
par
With ("LeNomRéelDeLafeuille")
**Ou mettre le classeur avec cette erreur en PJ

 

[iliess]

Non ca marche pas même si j'ai remplacer With Feuil1 par With Sheets("Feuil1")
Monsieur Svp
il y a une condition if dans mon code

j'ai trouver cette fonction mais c'est en Excel est ressourdre que la premier condition

=SI((TROUVE("-C_";B2)>1);STXT(B2;TROUVE("-C_";B2)+3;7)&"_"&GAUCHE(B2;TROUVE("-";B2)-1);TEXTE(A2;"0000000")&"_"&GAUCHE(B2;TROUVE("-";B2)-1))

je pense que les cellule #Valeur a cause de cette fonction TROUVE("-C_";B2)>1

 

[Jacky67]

Non ca marche pas même si j'ai remplacer With Feuil1 par With Sheets("Feuil1")
Monsieur Svp
il y a une condition if dans mon code

j'ai trouver cette fonction mais c'est en Excel est ressourdre que la premier condition

=SI((TROUVE("-C_";B2)>1);STXT(B2;TROUVE("-C_";B2)+3;7)&"_"&GAUCHE(B2;TROUVE("-";B2)-1);TEXTE(A2;"0000000")&"_"&GAUCHE(B2;TROUVE("-";B2)-1))

je pense que les cellule #Valeur a cause de cette fonction TROUVE("-C_";B2)>1

Regarde la pièce jointe 1124834

Re..
Je répète
Est-ce que le classeur que j'ai mis en PJ fonctionne ???
Mettre le classeur avec cette erreur en PJ

 

[iliess]

ca marche pas

 

[Jacky67]

ca marche pas

Re..
Je n'éprouve aucune difficulté avec le classeur que j'ai mis en ligne
Mettre le classeur avec cette erreur en PJ

 

[iliess]

voici votre fichier

 

[Jacky67]

voici votre fichier

Re..
Aucune erreur avec ce classeur

Si une bonne âme passe par ici, et pourrait tester mon classeur #4

 

[iliess]

j'ai rien compris j'ai télécharge le fichier plusieurs une fois et ca marche pas voici capture d'écran, j'ai rien changer.

c'est pas grave j'ai trouver cette solution
=SI(ESTNUM(TROUVE("-C_";B2));STXT(B2;TROUVE("-C_";B2)+3;7)&"_"&GAUCHE(B2;TROUVE("-";B2)-1);TEXTE(A2;"0000000")&"_"&GAUCHE(B2;TROUVE("-";B2)-1))

 

[iliess]

Peut être que c'est la version Excel
Merci beaucoup pour votre aide j'ai appris plusieurs chose avec vous
merci

 

[mapomme]

Bonsoir à tous,

Essayez :

Sub extraire()
Dim Arr, x
   Arr = Range("A2:C7").Formula
   For i = LBound(Arr) To UBound(Arr)
      If Arr(i, 2) Like "*-C_*" Then
         x = Split(Replace(Arr(i, 2), "-", "_"), "_")
         Arr(i, 3) = x(2) & "_" & x(0)
      Else
         Arr(i, 3) = Format(Arr(i, 1), "0000000") & "_" & Split(Arr(i, 2), "-")(0)
      End If
   Next i
   Range("A2:C7") = Arr
End Sub