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

iliess à dit:
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

Bonjour,
Sans VBA ???

Code:

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

iliess · 15 Décembre 2021

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

Jacky67 · 15 Décembre 2021

iliess à dit:
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

VB:

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

voici ce message d'erreur

Jacky67 · 15 Décembre 2021

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

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

VB:

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

iliess à dit:
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

VB:

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

ca marche pas

Jacky67 · 15 Décembre 2021

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

voici votre fichier

Jacky67 · 15 Décembre 2021

iliess à dit:
voici votre fichier

Re..
Aucune erreur avec ce classeur

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

iliess · 15 Décembre 2021

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

Peut être que c'est la version Excel
Merci beaucoup pour votre aide j'ai appris plusieurs chose avec vous
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

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

Jacky67

XLDnaute Barbatruc

Pièces jointes

iliess

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

iliess

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

iliess

XLDnaute Occasionnel

Pièces jointes

Jacky67

XLDnaute Barbatruc

iliess

XLDnaute Occasionnel

Pièces jointes

Jacky67

XLDnaute Barbatruc

iliess

XLDnaute Occasionnel

Pièces jointes

iliess

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Discussions similaires