Suppression d'espaces et de -

[Pepette]

Bonjour le Forum,

Voici mon souci, dans une colonne (exemple en colonne B), on saisit des noms. Je souhaiterais que chaque nom saisi avec un espace ou un tiret, soit agrégé.

Exemple en cellule B5 : VINCENT-RITTON devienne VINCENTRITTON
autre exemple en B6 : LA PIERRE devienne LAPIERRE
autre exemple en B7 : GUYOT DE LA GARDE devienne GUYOTDELAGARDE
autre exemple en B8 : DE-PARDON BUY devinne DEPARDONBUY

Merci d'avance pour votre contribution.

A bientôt

Pepette

 

[Tibo]

Bonjour Pepette,

Essayes avec la fonction SUBSTITUE :

Si tes données sont en colonne A :

mettre en B1 :

=SUBSTITUE(SUBSTITUE(A1;' ';'');'-';'')

et recopier vers le bas


@+

 

[Moa]

Salut Pepette !

Si tu vas en zone de téléchargement, tu y trouveras une macro complémentaire qui s'appelle 'Moa'sSelectionsV2'.

Elle est très facile à installer et à utiliser.

Elle fait très bien ce travail, plus pleins d'autres aussi.

Voilà le chemin : https://www.excel-downloads.com/resources/moa-selections-v2.165/

Bonne journée à Toi !

@ +++


Moa

Message édité par: moa, à: 11/08/2005 12:06

 

[porcinet82]

bonjour a tous,

meme si tu as deja 2 solutions de proposées, je me permet d'ajouter la mienne, je te propose une macro bricolée qui devrait realiser ce que tu souhaites

Sub agreg()
Dim x1, x2, z, w As Variant
Dim i as Integer
i=1

Sheets('feuil1').Range('B1').Select
GoTo line1
line2:
    If x1 <> 0 Then
        z = Left(ActiveCell.Value, x1 - 1)
        w = Mid(ActiveCell.Value, x1 + 1)
        ActiveCell.Value = z & w
    ElseIf x2 <> 0 Then
        z = Left(ActiveCell.Value, x2 - 1)
        w = Mid(ActiveCell.Value, x2 + 1)
        ActiveCell.Value = z & w
    Else
        Cells(i + 1, 2).Activate
        i = i + 1
        If ActiveCell.Value = '' Then
            Exit Sub
        End If
    End If
    GoTo line1
    Exit Sub

line1:
    x1 = InStr(1, ActiveCell.Value, '-', 1)
    x2 = InStr(1, ActiveCell.Value, ' ', 1)
    GoTo line2

End Sub

bon courage pour la suite

@+

 

[Pepette]

Merci à vous trois, Porcinet, Moa et Tibo, je ne m'attendais pas à toutes ces réponses aussi vite.

Vous êtes trop fort !!!

Recevez une grosse bise de Pepette et à bientôt pour de nouvelles aventures.

Pepette