Discussion :

[brikoou]

Bonjour à tous,

je dois réaliser une macro sous Excel pour me permettre de classer des nomenclatures de fichier.
je m'explique, dans chaque cellule de ma première colonne, je vais avoir une chaîne de caractère de type: bn_220502_X_Cmde PCA_SAINTDENIS-BRISEECHALAS
bnl_220501_A_Cmde consoles BATC_SAINTDENIS-BRISEECHALAS_Provisoire

le but de la macro serait que mes chaînes de caractères comprises entre les "_" se retrouvent dans une cellule unique dans les colonnes d'à coté (sur la même ligne).
Est ce que quelqu'un a déjà eu à faire ce type de macros?

Je ne sais pas si je dois écrire plusieurs macros pour extraire chaque chaîne une à une pour le réintroduire dans une colonne de type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub extrairenumerodocument()
For Each cellule In Range("A1:A1000")
Dim Debut As String, Fin As String
Debut = InStr(1, cellule, "_")
Fin = InStr(5, cellule, "_")
If cellule.Value Like "*_*" Then
cellule.Offset(, 2) = Mid(cellule, Debut, Fin - Debut + 1)
End If
Next
For Each cellule In Range("C1:C1000")
cellule.Value = Replace(cellule.Value, "_", "")
Next
End Sub

l'inconvénient est que je dois imposer un nombre de caractère pour chaque chaîne sinon je vais avoir des louper.

je ne maîtrise pas bien les tableaux et peut être il a des choses plus simple.

Merci d'avance pour votre aide.

Extraire.xls

[clementmarcotte]

Bonjour,

Presque personne n'ouvre les pièces jointes.

Ceci dit, tu fais un Split de ta chaîne en séparant sur "_"

Puisque Split donne automatiquement un tableau des mots résultants, tu itères ton tableau en mettant chaque mot dans la bonne ligne et la bonne colonne

[Invité]

Bonjour,

Pour compléter le message de Clément :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub ExtraireNumeroDocument()
 
Dim MaChaine As Variant
Dim I As Integer
Dim Cellule As Range
Dim DerniereLigne As Long
 
        With ActiveSheet
             DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
             For Each Cellule In .Range("A1:A" & DerniereLigne)
                 MaChaine = Split(Cellule, "_")
                 If UBound(MaChaine) > 0 Then
                    For I = 1 To UBound(MaChaine) + 1
                        Cellule.Offset(0, I) = MaChaine(I - 1)
                    Next I
                 End If
            Next Cellule
        End With
End Sub

[unparia]

Bonjour
Ou plus simplement : convertir --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Range("A1:A1000").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        OtherChar:="_", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True

[brikoou]

Merci pour vos réponse.
Le code d'Eric correspond totalement à ce que je voulais faire.
j'ai encore quelques proprets à faire