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

iliess · 15 Décembre 2021

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

J'ai utiliser le code suivant

VB:

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

mapomme · 15 Décembre 2021

Bonsoir à tous,

Essayez :

VB:

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

Jacky67 · 15 Décembre 2021

mapomme à dit:

Bonsoir à tous,

Essayez :

VB:

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 · 15 Décembre 2021

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

mapomme · 16 Décembre 2021

Jacky67 à dit:
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 · 16 Décembre 2021

mapomme à dit:
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 · 16 Décembre 2021

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

mapomme · 16 Décembre 2021

iliess à dit:
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 · 16 Décembre 2021

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

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

iliess

XLDnaute Occasionnel

Pièces jointes

mapomme

Jacky67

XLDnaute Barbatruc

iliess

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

iliess

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

iliess

XLDnaute Occasionnel

Discussions similaires

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

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency