Suppression saut de ligne/retour chariot d'une sélection

Bonjour,

J'utilise FileMaker pour créer une base de donnée dans laquelle j'ai des cases à cocher. Pour certaines rubriques il est possible de sélectionner plusieurs cases à cocher. Ceci se traduit par l'insertion des valeurs les unes en dessous des autres dans le mode tableau. Lorsque je transfert la base en format excel ces valeurs se retrouvent sur une même ligne mais cela n'est que visuel car si l'on sélectionne la cellule concernée excel ne prend en compte que la première valeur et si l'on clique deux fois sur la cellule les valeurs passent alors les unes en dessous des autres comme dans FileMaker. J'ai absolument besoin d'avoir mes valeurs sur une seule ligne dans chaque cellule pour l'analyse que je souhaite faire ensuite. J'ai donc trouvé à partir de macros du forum une macro qui permet de le faire pour une colonne à la fois et une qui le fait pour tout le document.Mon problème est que ma base est immense et je voudrais pouvoir appliquer cette macro à une sélection decolonnes ou de cellules. Quequ'un aurait-il s'il-vous-plait une solution ? (Je suis débutant niveau macro)

Voici la macro qui le fait pour une colonne:

Sub SuprEntrée()

Dim old_text As String

Dim new_text As String

For i = 2 To 3720

If Range("BJ" & i).Value <> "" Then

old_text = Range("BJ" & i).Value

new_text = Replace(old_text, Chr(10), "")

new_text = Replace(new_text, Chr(13), "")

new_text = Replace(new_text, " ", " ")

Range("BJ" & i).Value = new_text

End If

Next

End Sub

Voici la macro qui le fait pour tout le classeur:

Sub suprespace()

Dim c As Range

For Each c In ActiveSheet.UsedRange

c = Trim(c)

c.Replace What:=Chr(13), Replacement:=""

c.Replace What:=Chr(10), Replacement:=""

Next c

End Sub

Exemples de mon fichier:

https://www.excel-pratique.com/~files/doc/Probleme_macro_toonyto.xlsx

https://www.excel-pratique.com/~files/doc/Probleme_macro_toonyto.xls

Bien cordialement

Salut le forum

Toonyto, bienvenue comme nouveau membres.

Tu sélectionnes ta plage et ensuite tu lances la macro

Sub SuprEntrée()

Dim old_text As String
Dim new_text As String
Dim Cellule As Range

For Each Cellule In Selection
  With Cellule
    If .Value <> "" Then
        old_text = .Value
        new_text = Replace(old_text, Chr(10), " ")
        new_text = Replace(new_text, Chr(13), " ")
        .Value = new_text
    End If
  End With
Next Cellule

End Sub

Mytå

Merci beaucoup, ça fonctionne exactement comme je le souhaitais, c'est vraiment super Myta. Merci encore.

Toonyto