En-tête excel macro

[Thorgal2013]

Bonjour à tous,

Je suis assez néophyte dans l'utilisation de macro excel, c'est pour cela que je m'adresse à vos vous. Je n'ose croire que mon problème ne trouve pas solution parmis vous ;-)

Voilà je souhaiterai mettre une entête dans une worksheet excel à partir de 5 cases (dans l'exemple illustré A1 à A5). Le résultat escompté ferait en sorte de reprendre ces 5 cases dans l'entête de 5 lignes.

Je ne sais pas si je suis assez clair, merci de me revenir dans le cas contraire.

MERCI DEJA A TOUS

 

[camarchepas]

Re : En-tête excel macro

bonjour

Code à mettre dans un module standard.

Sub Entete()
'
    Sheets.Add After:=Sheets(Sheets.Count)
    activesheet.name = "Base"
    Sheets("Feuil1").Select
    Range("A1:A5").Select
    Selection.Copy
    Sheets("Base").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

 

[Robert]

Re : En-tête excel macro

Bonjour Thorgal et bienvenu, Çamarchepas, bonjour le forum,

J'ai pas compris ton code Garcimore !... Ou alors j'ai pas compris ta question Thorgal...
Je propose :

Sub Macro1()
Dim ET As String

With Sheets("Feuil1")
    ET = .Range("A1").Value & Chr(10) & .Range("A2").Value & Chr(10) & .Range("A3").Value & Chr(10) & .Range("A4").Value & Chr(10) & .Range("A5").Value
    Application.PrintCommunication = False
    With .PageSetup
        .CenterHeader = ET
    End With
    Application.PrintCommunication = True
End With
End Sub

pas pris le temps de commenter le code, désolé...

 

[Thorgal2013]

Re : En-tête excel macro

Merci Camarchepas et Robert.

La macro de Robert correspond exactement a ce que j'attendais.
Je vais dormir un peu moins bête cette nuit.