Formule pr enlever espace pour voir tout sur la même ligne

Bonsoir à Tous,

Besoin de votre aide pour une formule (à mon avis) ou autre:

Sur le fichier exemple que je joins, sur la ligne D1, si vous double cliquer sur la cellule, le texte est sur plusieurs lignes.

Y a t'il une formule ou autre pour:

• - enlever les espaces pour avoir tout sur la même ligne, mais avoir un double espace après chaque deux points (:)
• - et remplacer les astériques (*****) par un double espace.

Je vous joins deux photos pour démontrer le résultat que j'espère.

Merci

Jean

Bonjour,

Espérant avoir bien compris ...

À tester ...

Sub ColonneD()
Dim cel As Range
Dim DerLig As Long

DerLig = Range("D" & Rows.Count).End(xlUp).Row
For Each cel In Range("D1:D" & DerLig)
    cel = Replace(cel, " ", "")
    cel = Replace(cel, "*", "  ")
    cel = Replace(cel, ":", ":  ")
    cel.WrapText = False
Next
End Sub

Gelinotte

Bonsoir Gelinotte,

C'est presque ça,

Il manque juste que le texte soit sur le même ligne et non un en dessous de l'autre

quand je double clic sur une ligne.

Merci de Votre Aide

Jean

Bonjour,

Si tu étires la colonne D, tout le texte est sur la même ligne. Le double-clique semble réactiver le "Renvoie à ligne automatique" que j'ai désactivé dans la macro ( cel.WrapText = False ).

Je cherche comment contrôler cela.

Gelinotte

Bonjour,

Bon, la seule chose que j'ai trouvé : clique dans le coin haut/gauche pour sélectionner toute la feuille.

En gardant le curseur sur les entêtes de lignes > bouton de droite de la souris > Hauteur de ligne, inscrit 18 > bouton OK. Cela fixe la hauteur des lignes.

Dès lors, le double-clique sur une cellule de la colonne D montre le texte sur plusieurs lignes; mais, si tu cliques ailleurs ou frappe ESC, ce n'est pas conservé. Le texte retourne sur une seule ligne.

Pour l'instant, c'est le mieux que j'ai trouvé.

Gelinotte

Bonsoir Gelinotte,

Merci de Votre Aide, je vais continuer de chercher sur mon côté.

Jean

Gelinotte,

Voici ce que j'ai trouvé:

Ceci enlève le ALT+ENTER:

= SUBSTITUE(D1;CAR(10);"")

Ensuite je copie la ligne et je colle seulement la valeur.

Ensuite je vais me servir de votre code pour l'adapter avec les

espace et le deux points.

Un GROS MERCI

Jean