Microsoft 365 Cellule d'1 page = cellule d'1 autre page est-il possible d'avoir le format du texte

[Usine à gaz]

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

Je reviens vous solliciter pour une question particulière (comme toutes mes questions LOL)

J'ai en feuille Texte_saisie cellule D2 un texte formaté.
en feuille Résultat avec = cellule H4, j'ai mis la formule : =Texte_saisie!D2

Est-il possible que la cellule H4 de la feuille Résultat avec = affiche le texte de la feuille Texte_saisie avec son format (dans l'exemple, les couleurs et tailles des caractères) ?
Je ne pense pas que ce soit possible mais avec nos ténors quasiment rien n'est impossible et ça m'arrangerait bien que ce soit possible 🙂
Peut-être en VBA ?
Auriez-vous la solution ?
En cas, je joins un petit fichier test.
Avec mes remerciements,
Amicalement,
lionel 🙂

 

[Phil69970]

Bonjour Lionel

La réponse est ici

@Phil69970

 

[Usine à gaz]

Bjr Phil69970 🙂
Merci à toi : je vais voir de ce pas 🙂
lionel,

 

[Usine à gaz]

Re-Bjr Phil69970

ça ne fonctionne pas dans mon cas 🙂
Je continue mes recherches,
Bonne journée 🙂

 

[laurent950]

Bonjour Usine à gaz,

En passant par VBA

Sub test()
Dim rgn As Range
    Set rgn = Worksheets("Texte_Saisie").Range("D2")
' Copie
    rgn.Copy Destination:=Worksheets("Résultat avec =").Range("H4")
    Range("h4").EntireColumn.ColumnWidth = rgn.EntireColumn.ColumnWidth
    Range("h4").EntireRow.RowHeight = rgn.EntireRow.RowHeight
End Sub

 

[Phil69970]

Re

Edit : Bonjour Laurent je n'avais pas vu ta réponse....

Autrement en VBA

Worksheets("Texte_Saisie").Range("D2").Copy Destination:=Worksheets("Résultat avec =").Range("H4")

*As tu regardé dans le lien que je t'ai donné dans le gestionnaire de nom

@Phil69970

 

[Usine à gaz]

laurent950 🙂
Un grand merci, c'est super ça fonctionne nickel 🙂
lionel,

 

[Usine à gaz]

Re

Autrement en VBA

Worksheets("Texte_Saisie").Range("D2").Copy Destination:=Worksheets("Résultat avec =").Range("H4")

*As tu regardé dans le lien que je t'ai donné le gestionnaire de nom
Regarde la pièce jointe 1106867
@Phil69970

Merci à toi, je vais regarder.
J'avais consulté des liens et celui que tu m'avais transmis sans succès.
lionel 🙂

 

[Usine à gaz]

Re-Bonjour 🙂
le code de laurent950 fonctionne parfaitement mais j'ai oublié que dans mon fichier de travail, la cellule réceptrice est fusionnée et ça "coince" :

Il y aurait une solution ?
Encore un grand merci 🙂
lionel,

 

[Usine à gaz]

Re :
J'ai résolu en défusionnant et refusionnant :

Sub format_texte()
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=""
Range("E2:E39").Select
    With Selection
        .MergeCells = False
    End With
Dim rgn As Range
    Set rgn = Worksheets("Argumentation").Range("f2")
' Copie
    rgn.Copy Destination:=Worksheets("Argu_Objections").Range("e2")
    Range("e2").EntireColumn.ColumnWidth = rgn.EntireColumn.ColumnWidth
    Range("e2").EntireRow.RowHeight = rgn.EntireRow.RowHeight
Range("E2:E39").Select
    With Selection
        .MergeCells = True
    End With
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Mais peut-être est-ce faisable autrement ?
lionel 🙂

 

[mapomme]

Bonjour @Usine à gaz 🙂, @laurent950 🙂, @Phil69970🙂 ,

Un essai :

Sub test()
Dim xrg, i&
   Set xrg = Sheets("Texte_saisie").Range("d2").MergeArea
   With Sheets("Résultat avec =")
      .Range("h4").UnMerge
      xrg.Copy .Range("h4")
      xrg.Copy: .Range("h4").PasteSpecial xlPasteColumnWidths
      For i = 0 To xrg.Rows.Count - 1: .Rows(4).Offset(i).RowHeight = xrg.Rows(i + 1).RowHeight: Next i
   End With
End Sub

 

[Usine à gaz]

Bonjour Mapomme 🙂

Et Hop! : ça marche nickel,
Un grand merci à toi 🙂
Bonne fin de journée 🙂
lionel,