Bonjour =E0 Toutes et =E0 Tous,
comment r=E9aliser la transposition d'une ligne en colonne=20
vers une autre feuille en conservant les liaisons aux=20
cellules.
j'ai essay=E9 l'enregistreur de macro mais la combinaison=20
transposition et liaisons ne se fait pas .
Sheets("sep").Select
Range("B2:J2").Select
Application.CutCopyMode =3D False
Selection.Copy
Sheets("1").Select
Range("J2").Select
ActiveSheet.Selection.PasteSpecial Paste:=3DxlPasteAll,=20
Operation:=3DxlNone, SkipBlanks:=3D _
False, Transpose:=3DTrue and.Paste link :=3DTrue
Range("J2").Select
'
merci de suivre
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
Joël GARBE
Bonjour Freedo !
J'ai eu l'occasion de proposer ce code une fois...
Un truc dans ce genre-la en VBA te conviendrait-il ?
Sub CollerAvecLiaisonTranspose() Dim PlageSource As Range Set PlageSource = Worksheets(1).Range("A1:G50") Dim ocell As Range For Each ocell In PlageSource Worksheets(2).Cells(ocell.Column, ocell.Row).Formula = _ "='" & Worksheets(1).Name & "'!" & ocell.Address Next End Sub
Bon courage, et tiens-nous au courant
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Freedo" a écrit dans le message de news: 219301c4ae94$e0513df0$ Bonjour à Toutes et à Tous, comment réaliser la transposition d'une ligne en colonne vers une autre feuille en conservant les liaisons aux cellules. j'ai essayé l'enregistreur de macro mais la combinaison transposition et liaisons ne se fait pas . Sheets("sep").Select Range("B2:J2").Select Application.CutCopyMode = False Selection.Copy Sheets("1").Select Range("J2").Select ActiveSheet.Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True and.Paste link :=True Range("J2").Select ' merci de suivre
Bonjour Freedo !
J'ai eu l'occasion de proposer ce code une fois...
Un truc dans ce genre-la en VBA te conviendrait-il ?
Sub CollerAvecLiaisonTranspose()
Dim PlageSource As Range
Set PlageSource = Worksheets(1).Range("A1:G50")
Dim ocell As Range
For Each ocell In PlageSource
Worksheets(2).Cells(ocell.Column, ocell.Row).Formula = _
"='" & Worksheets(1).Name & "'!" & ocell.Address
Next
End Sub
Bon courage, et tiens-nous au courant
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Freedo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 219301c4ae94$e0513df0$a301280a@phx.gbl...
Bonjour à Toutes et à Tous,
comment réaliser la transposition d'une ligne en colonne
vers une autre feuille en conservant les liaisons aux
cellules.
j'ai essayé l'enregistreur de macro mais la combinaison
transposition et liaisons ne se fait pas .
Sheets("sep").Select
Range("B2:J2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1").Select
Range("J2").Select
ActiveSheet.Selection.PasteSpecial Paste:=xlPasteAll,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True and.Paste link :=True
Range("J2").Select
'
merci de suivre
J'ai eu l'occasion de proposer ce code une fois...
Un truc dans ce genre-la en VBA te conviendrait-il ?
Sub CollerAvecLiaisonTranspose() Dim PlageSource As Range Set PlageSource = Worksheets(1).Range("A1:G50") Dim ocell As Range For Each ocell In PlageSource Worksheets(2).Cells(ocell.Column, ocell.Row).Formula = _ "='" & Worksheets(1).Name & "'!" & ocell.Address Next End Sub
Bon courage, et tiens-nous au courant
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Freedo" a écrit dans le message de news: 219301c4ae94$e0513df0$ Bonjour à Toutes et à Tous, comment réaliser la transposition d'une ligne en colonne vers une autre feuille en conservant les liaisons aux cellules. j'ai essayé l'enregistreur de macro mais la combinaison transposition et liaisons ne se fait pas . Sheets("sep").Select Range("B2:J2").Select Application.CutCopyMode = False Selection.Copy Sheets("1").Select Range("J2").Select ActiveSheet.Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True and.Paste link :=True Range("J2").Select ' merci de suivre
Freedo
Bonjour Joel, Un grand MERCI pour ta solution car elle m'a épargné un travail énorme de report de références de cellules. J'ai pu même adapter la formule pour transposer dans l'autre sens pour une autre application. Freedo
Bonjour Freedo !
J'ai eu l'occasion de proposer ce code une fois...
Un truc dans ce genre-la en VBA te conviendrait-il ?
Sub CollerAvecLiaisonTranspose() Dim PlageSource As Range Set PlageSource = Worksheets(1).Range("A1:G50") Dim ocell As Range For Each ocell In PlageSource Worksheets(2).Cells(ocell.Column, ocell.Row).Formula = _ "='" & Worksheets(1).Name & "'!" & ocell.Address Next End Sub
Bon courage, et tiens-nous au courant
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Freedo" a écrit dans le message de news: 219301c4ae94$e0513df0$ Bonjour à Toutes et à Tous, comment réaliser la transposition d'une ligne en colonne vers une autre feuille en conservant les liaisons aux cellules. j'ai essayé l'enregistreur de macro mais la combinaison transposition et liaisons ne se fait pas . Sheets("sep").Select Range("B2:J2").Select Application.CutCopyMode = False Selection.Copy Sheets("1").Select Range("J2").Select ActiveSheet.Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True and.Paste link :=True Range("J2").Select ' merci de suivre
Bonjour Joel,
Un grand MERCI pour ta solution car elle m'a épargné un travail énorme de
report de références de cellules.
J'ai pu même adapter la formule pour transposer dans l'autre sens pour une
autre application.
Freedo
Bonjour Freedo !
J'ai eu l'occasion de proposer ce code une fois...
Un truc dans ce genre-la en VBA te conviendrait-il ?
Sub CollerAvecLiaisonTranspose()
Dim PlageSource As Range
Set PlageSource = Worksheets(1).Range("A1:G50")
Dim ocell As Range
For Each ocell In PlageSource
Worksheets(2).Cells(ocell.Column, ocell.Row).Formula = _
"='" & Worksheets(1).Name & "'!" & ocell.Address
Next
End Sub
Bon courage, et tiens-nous au courant
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Freedo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 219301c4ae94$e0513df0$a301280a@phx.gbl...
Bonjour à Toutes et à Tous,
comment réaliser la transposition d'une ligne en colonne
vers une autre feuille en conservant les liaisons aux
cellules.
j'ai essayé l'enregistreur de macro mais la combinaison
transposition et liaisons ne se fait pas .
Sheets("sep").Select
Range("B2:J2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1").Select
Range("J2").Select
ActiveSheet.Selection.PasteSpecial Paste:=xlPasteAll,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True and.Paste link :=True
Range("J2").Select
'
merci de suivre
Bonjour Joel, Un grand MERCI pour ta solution car elle m'a épargné un travail énorme de report de références de cellules. J'ai pu même adapter la formule pour transposer dans l'autre sens pour une autre application. Freedo
Bonjour Freedo !
J'ai eu l'occasion de proposer ce code une fois...
Un truc dans ce genre-la en VBA te conviendrait-il ?
Sub CollerAvecLiaisonTranspose() Dim PlageSource As Range Set PlageSource = Worksheets(1).Range("A1:G50") Dim ocell As Range For Each ocell In PlageSource Worksheets(2).Cells(ocell.Column, ocell.Row).Formula = _ "='" & Worksheets(1).Name & "'!" & ocell.Address Next End Sub
Bon courage, et tiens-nous au courant
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Freedo" a écrit dans le message de news: 219301c4ae94$e0513df0$ Bonjour à Toutes et à Tous, comment réaliser la transposition d'une ligne en colonne vers une autre feuille en conservant les liaisons aux cellules. j'ai essayé l'enregistreur de macro mais la combinaison transposition et liaisons ne se fait pas . Sheets("sep").Select Range("B2:J2").Select Application.CutCopyMode = False Selection.Copy Sheets("1").Select Range("J2").Select ActiveSheet.Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True and.Paste link :=True Range("J2").Select ' merci de suivre
