Séparer deux mots et creer 2 colonnes

Bonsoir,

Merci pour ce forum et ceux qui y participent pour aider les autres .

s'il vous plait

Je cherche une méthode où code vba qui peut :

1)- séparer les deux mots (contraires) et supprime & comme le premier exemple

2)- et si possible enlever les accents de tout les mots.

et Merci d'avance.

Bonsoir hicham2610,

Une proposition pour le point 1.

Cordialement.

Bonjour toutes et tous

@ tester

une fonction + 1 bouton pour supprimer '&'

Bonjour

essayez cette macro

Sub separer()
Dim uR As Long, J As Long
Dim MotA As Variant, MotB As Variant
    uR = Cells(Rows.Count, 1).End(xlUp).Row
    For J = 2 To uR
        On Error Resume Next
        MotA = Replace(Replace(Replace( _
            Cells(J, 1), "É", "E"), "À", "A"), "È", "E")
        MotB = Split(MotA, "&")
        Cells(J, 2) = MotB(LBound(MotB))
        Cells(J, 3) = MotB(UBound(MotB))
    Next
End Sub

re,

Les 2 points.

Merci à gmollet

Gmollet a dit:

Bonjour tout le monde,

Pour les flemmards, voila la formule :

=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A:A;"é";"e");"è";"e");"ê";"e");"ë";"e");"ô";"o");"ö";"o");"ï";"i");"î";"i");"ç";"c");"ù";"u");"û";"u");"ü";"u")

Et elle marche tres bien !

Gmollet

PS jeu : trouver où il manque un accent dans mon message.

Cordialement.

Merci infiniment à vous tous.

C'est bien pour la première

Mais je n'arrive pas à enlever les accents .

Bonjour hicham2610,

Voyez si le fichier joint peut vous aider, il n'utilise pas de macro

Pour trouver le mot avant &

=SUBSTITUE(GAUCHE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;"À";"A");"È";"E");"É";"E");"Ê";"E");CHERCHE(CAR(38);A1));CAR(38);"")

Pour trouver le mot après &

=SUBSTITUE(DROITE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;"À";"A");"È";"E");"É";"E");"Ê";"E");NBCAR(A1)-CHERCHE(CAR(38);A1));CAR(38);"")