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

Usine à gaz · 4 Novembre 2021

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 · 4 Novembre 2021

Avec la formule en I2 et le code :

Chris401 · 4 Novembre 2021

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

Usine à gaz · 4 Novembre 2021

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 · 4 Novembre 2021

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

Usine à gaz · 4 Novembre 2021

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

Phil69970 · 4 Novembre 2021

Bonjour Lionel , Chris

Et la même chose en VBA :

VB:

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 · 4 Novembre 2021

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 · 4 Novembre 2021

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

Usine à gaz · 4 Novembre 2021

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 · 4 Novembre 2021

Re

Si j'ai compris

VB:

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

@Phil69970

Chris401 · 4 Novembre 2021

Avec la formule en I2 et le code :

Chris401 · 4 Novembre 2021

Sans passer par I2 (formule dans code)

Phil69970 · 4 Novembre 2021

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

VB:

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 · 4 Novembre 2021

Merci Chris,

Nickel, ça marche
lionel,

Phil69970 à dit:
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

VB:

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 · 4 Novembre 2021

Phil69970 à dit:
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

VB:

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

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Chris401

Chris401

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

Chris401

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Chris401

XLDnaute Accro

Pièces jointes

Chris401

XLDnaute Accro

Pièces jointes

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires