Discussion :

[ghisunit]

Bonjour a tous les amis,

J'ai utilise la formule suivante que l'on m'a gentillement explique sur ce super site:

Code :

Code :

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

1
2
3
4
Function remove_aprespointvirgule(Rng As Range)
    Application.Volatile
    remove_aprespointvirgule= Left(Rng.Value, InStr(Rng.Value, ";")-1)
End Function

Qui me permet de supprimer tous les caractères après le ; (point virgule) dans toute ma colonne A.

A | B
Aer12 |Aer12;#17
Aer12 |Aer12;#17
Aer12 |Aer12;#17
All Program |All Program;#14
All Program |All Program;#14
All Program |All Program;#14

Mais en fait, je souhaiterai mettre en place une autre Macro ou en VBA pour faire quelque chose d'un peu plus complexe.

L’idée est de retirer tous les caractères inutile de la colonne E dans la colonne D.
Autrement dit de retirer les point virgules
les # ainsi que les chiffres entre ;#1;
Puis enfin de faire un retour a la ligne dans la même cellule.

Comme cela:

D |E

Aer12
Ber12
Ghi41 |Aer12;#1;Ber12;#2;Ghi41;#5

Aer12
Ber12 |Aer12;#1;Ber12;#2

Aer12
Ber12
Ghi41 |Aer12;#1;Ber12;#2;Ghi41;#5

Aer12
Ber12 |Aer12;#1;Ber12;#2

Aer12
Ber12
Ghi41 |Aer12;#1;Ber12;#2;Ghi41;#5

All Program
Aer12
Ber12
Ghi41 |All Program;#14;Aer12;#1;Ber12;#2;Ghi41;#5

All Program
Ber12
Ghi41 |All Program;#14;Ber12;#2;Ghi41;#5



J'ai mi le fichier Excel si ça peut aider.
N'hesiter pas a me dire si ma demande n'est pas claire.
Merci d'avance pour votre aide les amis.

Ciao

Ghis