J'ai des feuilles excel dont les cellules B5 contiennent une chaine de
caracteres selon le format
SOCIETE1 - Monsieur Jean Martin, Directeur
Je souhaiterai integrer dans une macro les quelques lignes qui me
permettraient de chercher le carat=E8re - (tiret) dans la cellule B5 et
de le remplacer par ALT+ENTER afin d'obtenir le r=E9sultat suivant:
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Modeste
Bonsour® Christophe avec ferveur ;o))) vous nous disiez :
Je souhaiterai integrer dans une macro les quelques lignes qui me permettraient de chercher le caratère - (tiret) dans la cellule B5 et de le remplacer par ALT+ENTER afin d'obtenir le résultat suivant:
SOCIETE1 Monsieur Jean Martin, Directeur
en formule =SUBSTITUE(B5;CAR(45);CAR(10)) en VBA [B5] = WorksheetFunction.Substitute([B5], Chr(45), Chr(10))
attention dans les deux cas il faudra éventuellement que le renvoi à la ligne automatique soit activé [B5].WrapText = True
-- -- @+ ;o)))
Bonsour® Christophe avec ferveur ;o))) vous nous disiez :
Je souhaiterai integrer dans une macro les quelques lignes qui me
permettraient de chercher le caratère - (tiret) dans la cellule B5 et
de le remplacer par ALT+ENTER afin d'obtenir le résultat suivant:
SOCIETE1
Monsieur Jean Martin, Directeur
en formule
=SUBSTITUE(B5;CAR(45);CAR(10))
en VBA
[B5] = WorksheetFunction.Substitute([B5], Chr(45), Chr(10))
attention dans les deux cas il faudra éventuellement que le renvoi à la ligne
automatique soit activé
[B5].WrapText = True
Bonsour® Christophe avec ferveur ;o))) vous nous disiez :
Je souhaiterai integrer dans une macro les quelques lignes qui me permettraient de chercher le caratère - (tiret) dans la cellule B5 et de le remplacer par ALT+ENTER afin d'obtenir le résultat suivant:
SOCIETE1 Monsieur Jean Martin, Directeur
en formule =SUBSTITUE(B5;CAR(45);CAR(10)) en VBA [B5] = WorksheetFunction.Substitute([B5], Chr(45), Chr(10))
attention dans les deux cas il faudra éventuellement que le renvoi à la ligne automatique soit activé [B5].WrapText = True
-- -- @+ ;o)))
Christophe
Modeste:
Merci mille fois et bon week-end.
Christophe
Bonsour® Christophe avec ferveur ;o))) vous nous disiez :
Je souhaiterai integrer dans une macro les quelques lignes qui me permettraient de chercher le caratère - (tiret) dans la cellule B5 et de le remplacer par ALT+ENTER afin d'obtenir le résultat suivant:
SOCIETE1 Monsieur Jean Martin, Directeur
en formule =SUBSTITUE(B5;CAR(45);CAR(10)) en VBA [B5] = WorksheetFunction.Substitute([B5], Chr(45), Chr(10))
attention dans les deux cas il faudra éventuellement que le renvoi à la ligne automatique soit activé [B5].WrapText = True
-- -- @+ ;o)))
Modeste:
Merci mille fois et bon week-end.
Christophe
Bonsour® Christophe avec ferveur ;o))) vous nous disiez :
Je souhaiterai integrer dans une macro les quelques lignes qui me
permettraient de chercher le caratère - (tiret) dans la cellule B5 et
de le remplacer par ALT+ENTER afin d'obtenir le résultat suivant:
SOCIETE1
Monsieur Jean Martin, Directeur
en formule
=SUBSTITUE(B5;CAR(45);CAR(10))
en VBA
[B5] = WorksheetFunction.Substitute([B5], Chr(45), Chr(10))
attention dans les deux cas il faudra éventuellement que le renvoi à la ligne
automatique soit activé
[B5].WrapText = True
Bonsour® Christophe avec ferveur ;o))) vous nous disiez :
Je souhaiterai integrer dans une macro les quelques lignes qui me permettraient de chercher le caratère - (tiret) dans la cellule B5 et de le remplacer par ALT+ENTER afin d'obtenir le résultat suivant:
SOCIETE1 Monsieur Jean Martin, Directeur
en formule =SUBSTITUE(B5;CAR(45);CAR(10)) en VBA [B5] = WorksheetFunction.Substitute([B5], Chr(45), Chr(10))
attention dans les deux cas il faudra éventuellement que le renvoi à la ligne automatique soit activé [B5].WrapText = True