Discussion :

[Exceleur]

Bonjour,

Je cherche une macro qui permettrait de détecter tous les retours à la ligne suivis d'aucun texte dans les cellules, et de supprimer ces retours à la ligne. Dans mon fichier excel, j'ai parfois des retours à la ligne avec ALT+ENTER. La plupart du temps, ils sont utiles, car c'est pour introduire une nouvelle ligne de texte. Mais parfois, j'ai des retours à la ligne "en trop" suivis d'aucun texte. C'est ces dernières lignes que j'aimerais supprimer pour certaines raisons. Donc la fonction devrait être capable de différencier les retours à la ligne suivis d'un texte et ceux qui ne sont pas suivis d'un texte.

Est-ce que vous avez une idée ?

PS: je débute en macro, je n'arriverais pas à écrire moi-même le code

Merci beaucoup !

[unparia]

Bonjour
- Un retour à la ligne dans une cellule est le caractère 10 (donc chr(10) )
- le dernier caractère d'une chaîne de caractères toto est :

Code :

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

right(toto,1)

Il te faut donc :
- parcourir tes cellules
- y regarder le dernier caractère
- si = chr(10), le supprimer
on supprime le dernier caractère d'une chaîne toto ainsi :

Code :

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

toto = left(toto, len(toto) -1)

A toi de jouer avec cela.

[Exceleur]

Bonjour, merci pour ta réponse.

Est-ce qu'il y a un moyen d'écrire une macro avec ça pour automatiser ?

[unparia]

Est-ce qu'il y a un moyen d'écrire une macro avec ça pour automatiser ?

Tout-à-fait (bien évidemment).
Commence donc à l'écrire.

[Exceleur]

Si seulement j'en avais les compétences, je ne viendrais pas demander de l'aide ! C'est là que j'en appel à l'expertise des forumeurs de Developpez.com

[Marc-L]

Bonjour,

bien lire les règles d'un forum avant de s'y inscrire …

Ici c'est avant tout une question de logique, le reste étant de niveau grand débutant

car détaillé dans l'aide VBA interne, il suffit juste de l'ouvrir et de la lire !

Sans compter la et la pléthore de tutoriels à disposition sur ce forum …

  Manipuler les chaînes de caractères en VB6 et VBA Excel

Donc avec la fonction Right comparer (If) le dernier caractère à la constante vbLf
et si c'est bien équivalent utiliser la fonction Left pour modifier la chaine …

Et puis comme c'est aussi directement réalisable par de simples formules de calculs
si tu es plus à l'aise donc sans VBA, là aussi tout est consultable dans l'aide d'Excel …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …