Microsoft 365 fonction qui renvoie son résultat à la ligne

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

Il y a déjà longtemps, à l'occasion d'un besoin, je souhaitais que ma formule m'affiche son résultat comme ci-dessous dans sa cellule :
---------------------------------------------------------------
"Bjr, Le Forum, je souhaite que le résultat de ma formule
soit renvoyé à la ligne comme je l'ai saisi ici
J'ai fait des recherches,
des tests,
sans résultat,
Auriez-vous la solution ?
Un grand merci par avance.
Je vous souhaite une belle journée,
lionel "
--------------------------------------------------------------
J'avais recherché à nouveau, refait des tests, utilisé "car10", mais toujours pas trouvé Grrrr !

J'ai à nouveau le besoin et j'y reviens .
Auriez-vous la solution ?
Je joins un petit fichier test.
Un grand merci à vous tous,
lionel

 

[Chris401]

Bonjour;
As-tu coché "Renvoyer à la ligne automatiquement" ?

 

[Usine à gaz]

Bonjour Chris401,
OUI, j'ai tenté en cochant cette option sans résultat : je ne parle pas de renvoi de la formule dans la barre de formule mais de l'affichage de la cellule

 

[Chris401]

Mon image montre le résultat de la formule en I2 ; ce n'est pas ce que tu voulais ?

 

[Usine à gaz]

Ben si lol mais ça n'a pas fonctionné chez moi. je vais refaire la manip

 

[Phil69970]

Bonjour Lionel , Chris

Et la même chose en VBA :

Sub RenvoiAuto()
[I2].WrapText = True
Rows("2:2").EntireRow.AutoFit
Columns("I:I").EntireColumn.AutoFit
Rows("2:2").EntireRow.AutoFit
End Sub

@Phil69970

 

[Usine à gaz]

Bonjour Phil
Chez moi : "Renvoyer à la ligne automatiquement" n'a aucun effet sur l'affichage de la cellule.

Merci pour ton code, je teste et je reviens

 

[Usine à gaz]

Alors ça c'est nickel
Merci à toi
lionel,

 

[Usine à gaz]

Hé ben non !
ça a marché 1 fois et je ne sais pas pourquoi et ça ne fonctionne plus.

De plus, j'ai mal posé mon souci :
En fait, je voudrais garder la formule en I2 et que le résultat soit renvoyé en texte dans une autre cellule comme dans le fichier joint,
Mais est-ce possible ?
lionel

 

[Phil69970]

Re

Si j'ai compris

[I4] = [I2]
[I4].WrapText = True

@Phil69970

 

[Chris401]

Avec la formule en I2 et le code :

 

[Chris401]

Sans passer par I2 (formule dans code)

 

[Phil69970]

Re

En faite auto fit s'adapte à la largeur de la colonne donc quand sur ton fichier la colonne I est en largeur 48 (439 pixels) tu as l'impression que tu as tout redimensionné du 1er coup mais si la colonne est de la même largeur que la colonne d'a coté c'est à dire largeur 12 (115 pixels) alors le redimensionnement s'effectue sur la hauteur....
Donc :
-Soit tu pré-dimensionnes la largeur de la colonne I (comme Chris a fait)
-Soit par le code tu dimensionnes la largeur et la hauteur.
Par exemple

Sub RenvoiAuto()
[I10].FormulaLocal = "=B2 & "" "" & C2 & CAR(10)& D2 & CAR(10)& B3 & CAR(10)& B4 & CAR(10) & B5 & CAR(10) & B6 & CAR(10) & B7 & CAR(10) & B8 & CAR(10) & B9 & CAR(10) & B10"
[I10] = [I10].Value
Columns("I:I").ColumnWidth = 40
Rows("10:10").RowHeight = 144
End Sub

@Phil69970

 

[Usine à gaz]

Merci Chris,

Nickel, ça marche
lionel,

Re

En faite auto fit s'adapte à la largeur de la colonne donc quand sur ton fichier la colonne I est en largeur 48 (439 pixels) tu as l'impression que tu as tout redimensionné du 1er coup mais si la colonne est de la même largeur que la colonne d'a coté c'est à dire largeur 12 (115 pixels) alors le redimensionnement s'effectue sur la hauteur....
Donc :
-Soit tu pré-dimensionnes la largeur de la colonne I (comme Chris a fait)
-Soit par le code tu dimensionnes la largeur et la hauteur.
Par exemple

Sub RenvoiAuto()
[I10].FormulaLocal = "=B2 & "" "" & C2 & CAR(10)& D2 & CAR(10)& B3 & CAR(10)& B4 & CAR(10) & B5 & CAR(10) & B6 & CAR(10) & B7 & CAR(10) & B8 & CAR(10) & B9 & CAR(10) & B10"
[I10] = [I10].Value
Columns("I:I").ColumnWidth = 40
Rows("10:10").RowHeight = 144
End Sub

@Phil69970

Dsl Phil, j'étais sorti. je vais tester et te dire

 

[Usine à gaz]

Re

En faite auto fit s'adapte à la largeur de la colonne donc quand sur ton fichier la colonne I est en largeur 48 (439 pixels) tu as l'impression que tu as tout redimensionné du 1er coup mais si la colonne est de la même largeur que la colonne d'a coté c'est à dire largeur 12 (115 pixels) alors le redimensionnement s'effectue sur la hauteur....
Donc :
-Soit tu pré-dimensionnes la largeur de la colonne I (comme Chris a fait)
-Soit par le code tu dimensionnes la largeur et la hauteur.
Par exemple

Sub RenvoiAuto()
[I10].FormulaLocal = "=B2 & "" "" & C2 & CAR(10)& D2 & CAR(10)& B3 & CAR(10)& B4 & CAR(10) & B5 & CAR(10) & B6 & CAR(10) & B7 & CAR(10) & B8 & CAR(10) & B9 & CAR(10) & B10"
[I10] = [I10].Value
Columns("I:I").ColumnWidth = 40
Rows("10:10").RowHeight = 144
End Sub

@Phil69970

Evidemment ça marche. Où avais-je la tête. Merci Phil