Discussion :

[nancy38]

Bonjour,

je cherche une macro qui me permet d'extraire les caractères qui se trouvent entre deux $ ou apres le deuxième $

Dans la colonne A et B j'ai

$B$60 $R$4
$A$98 $R$4
$B$72 $G$4
$C$63 $R$4
$B$75 $M$4
$D$105 $AB$46
$B$208 $R$461

J'ai besoin d'extraire dans la colonne C les chiffres qui se trouvent apres le 2ème $ dans le colonne A ex. 60, 98, 72...105,208 et besoin d'extraire dans la colonne D les lettres qui se trouvent entre les 2 $ dans la colonne B ex. R, R,M

Merci de votre aide

[Philippe Tulliez]

Bonjour,
Par exemple

Code :

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

=STXT(A2;CHERCHE("$";A2;2)+1;10)

[EDIT]
Ou plutôt

Code :

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

=LIGNE(INDIRECT(A2))

[nancy38]

Bonjour

je suis d'acord avec la formule mais j'ai besoin d'une macro pour automatiser cela. Sinon avec les formules stxt et droite j'arrive à le faire manuellement mais j'essaie d'integrer ca dans une macro...

merci encore

[pc75]

Bonjour,

Regarde la pièce jointe

[ZimCri]

Salut,


Tu peux utiliser "split"

Code :

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

tableau = split(Cells("A2").value, "$")

Ensuite tu as les valeurs que tu souhaites dans tableau(0) et tableau(1).

[nancy38]

Salut,


Tu peux utiliser "split"

Code :

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

tableau = split(Cells("A2").value, "$")

Ensuite tu as les valeurs que tu souhaites dans tableau(0) et tableau(1).

Quand je mets ça il m'affiche

Erreur d'exécution 5:
Argument ou appel de procédure incorrect (

[pc75]

Re,

Tu as regardé le fichier que je t'ai envoyé ?

[nancy38]

oui mais dedans il n'y a pas de macro... je vois que des formules dans les cases...

[jazzybluesy]

Normalement le split marche mais sinon tu fais comme ca :

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
21
22
 
Dim PositionDollar2 AS Long
Dim PremierMembre AS String
Dim DeuxiemeMembre AS String
Dim i As Long
 
i=1 'mets i= premiere ligne
Do While Len(cells(i,1))>0
 
PositionDollar2 = InStrRev(Cells(i,1),"$")
 
'On utilise la fonction Mid (Cellule contenant le string, position de debut, 'optionnal longueur de la chaine a extraire) pour extraire une chaine
 
PremierMembre = Mid(Cells(i,1), 2, PositionDollar2 - 2)
DeuxiemeMembre = Mid(Cells(i,1), PositionDollar2 +1)
 
Cells(i,3) = DeuxiemeMembre
Cells(i,4) = PremierMembre
 
i = i + 1
 
Loop

[pc75]

Re,

Dans l'éditeur Visual Basic, tu créés un nouveau module et tu copies ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function TraiteA(Valeur As String) As String
    chaine = Split(Valeur, "$")
    TraiteA = chaine(2)
End Function
 
Function TraiteB(Valeur As String) As String
    chaine = Split(Valeur, "$")
    TraiteB = chaine(1)
End Function

Tu retrouveras ces fonctions via Insertion => formule => personnalisée

[nancy38]

Normalement le split marche mais sinon tu fais comme ca :

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
21
22
 
Dim PositionDollar2 AS Long
Dim PremierMembre AS String
Dim DeuxiemeMembre AS String
Dim i As Long
 
i=1 'mets i= premiere ligne
Do While Len(cells(i,1))>0
 
PositionDollar2 = InStrRev(Cells(i,1),"$")
 
'On utilise la fonction Mid (Cellule contenant le string, position de debut, 'optionnal longueur de la chaine a extraire) pour extraire une chaine
 
PremierMembre = Mid(Cells(i,1), 2, PositionDollar2 - 2)
DeuxiemeMembre = Mid(Cells(i,1), PositionDollar2 +1)
 
Cells(i,3) = DeuxiemeMembre
Cells(i,4) = PremierMembre
 
i = i + 1
 
Loop

Merci beaucoup à tout le monde!!! ça a bien fonctionné )

merci encore une fois