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]

Bonsoir à tous,

Essayez :

Sub extraire()
Dim Arr
   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

Hello mapomme
Pourrais-tu stp tester mon classeur #4 sur l'erreur 1004

 

[iliess]

oui je lai tester mais tjr le même problème

 

[mapomme]

Pourrais-tu stp tester mon classeur #4 sur l'erreur 1004

Une petite étourderie dans l'écriture : Juste un point qui manque

With .Range("c2.c" & .Cells(.Rows.Count, "A").End(xlUp).Row)

c2:c et non c2.c

 

[Jacky67]

Une petite étourderie dans l'écriture : Juste un point qui manque

c2:c et non c2.c

Merci mapomme
C'est tout de même bizarre que Xl2007 ne relève pas cette conn....étourderie.
Bien que le résultat pour le demandeur ne soit pas au rendez-vous ; aucune erreur n'est signalée.
Xl2007 prend la plage comme si c'était un double point.

 

[iliess]

Bonsoir Mr Mapomme
Mille merci , un très joli travail qui ressourdre mon problème
Svp j'ai pas compris le x

 

[mapomme]

Svp j'ai pas compris le x

Dans les textes à traiter (cas où le texte contient "-C_") le texte à retirer commence avec un "souligné _" mais se termine soit par un "souligné _" soit par un "tiret -":

15447-C_0004717_ Achat Materiel Construction_31/2020

28-C_000857-Achat Materiel Construction_31/2020

Pour uniformiser tout ça, on remplace les tirets par des soulignés d'où:
x = Split(Replace(Arr(i, 2), "-", "_"), "_")

Et on obtient donc :

15447_C_0004717_ Achat Materiel Construction_31/2020

28_C_000857_Achat Materiel Construction_31/2020

On voit que le texte à extraire se situe maintenant toujours entre le 2ème et 3ème "souligné".

Le Split( Replace(Arr(i, 2), "-", "_") , "_") va renvoyer un tableau en prenant le souligné comme séparateur. L'élément qui nous intéresse sera toujours le troisième élément du tableau. Comme Split() renvoie un tableau dont l'indice commence à zéro, le 3ème élément qui nous intéresse aura pour indice 2 (et non 3) soit x(2).

 

[iliess]

Merci beaucoup Mr pour cette magnifique explication
Maintenant j'ai bien compris le principe
Bonne soirée