Collage dans la première colonne vide et mise en forme

Hello

Je cherche coller une colonne issue de ma page Home dans un tableau de comparaison sur ma page Comparison et a mettre en forme.

Pour cela, j'ai fait la macro suivante mais ça buf sur le centrage...

Je vous remercie par avance pour votre aide

Bastie,n

Sub compare1()

Dim derncol As Long

Application.ScreenUpdating = False

With Sheets("Comparison")
    Sheets("Home").Range("C14:C29").Copy
    derncol = .Cells(3, .Columns.Count).End(xlToLeft).Column
        If derncol > 1 Then derncol = derncol + 1
    .Cells(3, derncol).PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    .Range("B3:B18").Copy
    .Range(.Cells(3, derncol), .Cells(18, derncol)).PasteSpecial Paste:=xlPasteFormats, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        With .Range(.Cells(3, derncol), .Cells(18, derncol))
            .HorizontalAlignment = xlHAlineCenter
            .VerticalAlignment = xlVAlignCenter
        End With
    Columns(derncol).ColumnWidth = 50
End With

Application.ScreenUpdating = True

End Sub

Bonjour

En modifiant ces deux lignes

.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

Cordialement

C'était si simple :-(

Merci pour l'aide

Question subsidiaire, quand j'execute la macro sur ma page Home, l'affichage passe sur la page Comparison.

Je suis sur qu'on peut executer la macro sans qu'il y ait ce changement d'affichage mais je bute sur la solution ... Je pensais que le Application.ScreenUpdating = False et le Application.ScreenUpdating = true ferait le travail mais ça ne semble pas etre la solution :-(

Merci par avance pour l'aide

Question subsidiaire, quand j'execute la macro sur ma page Home, l'affichage passe sur la page Comparison.

?? Je n'ai pas compris votre souci

En fait j’ai mis 1 bouton sur la feuille Hone qui fait appel à la macro compare1.

Lorsque je clique dessus, cela exécute la macro et elle fait son office mais en plus je bascule de la feuille Home à la feuille Compare.

Je préférerais rester sur la feuille Home quand je clique sur le bouton et je pensais qu’en mettant un Application.ScreenUpdating = False au début et un Application.ScreenUpdating = truecela éviterait ce passage d’une feuille à l autre mais ça semble pas fonctionner.

Bonjour

En fait j’ai mis 1 bouton sur la feuille Hone qui fait appel à la macro compare1.....mais en plus je bascule de la feuille Home à la feuille Compare....Je préférerais rester sur la feuille Home quand je clique sur le bouton

Non, dans votre code vous ne basculez pas vers la feuille Compare, vous restez sur la feuille Home

Pour qui est de l'instruction Screenupdating, elle ne sert qu'à éviter de voir le rafraichissement de l'écran lors de l'exécution du code.

Merci pour votre réponse

Oui en théorie, je suis sensé resté sur la feuille home.

Mais dans la pratique, étrangement, ça me bascule sur la feuille Comparison

Alors c'est que le code que vous avez posté n'est pas identique.

Mettez votre fichier en ligne je regarderai

Cordialement

Hello,

J'ai résolu le probleme en ajoutant un Sheets("Home").Select a la fin de la macro.

Merci pour votre aide

Bastien

Sub compare1()

Dim derncol As Long

Application.ScreenUpdating = False

With Sheets("Comparison")
    Sheets("Home").Range("C14:C29").Copy
    derncol = .Cells(3, .Columns.Count).End(xlToLeft).Column
        If derncol > 1 Then derncol = derncol + 1
    .Cells(3, derncol).PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    .Range("B3:B18").Copy
    .Range(.Cells(3, derncol), .Cells(18, derncol)).PasteSpecial Paste:=xlPasteFormats, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        With .Range(.Cells(3, derncol), .Cells(18, derncol))
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
    Columns(derncol).ColumnWidth = 50
End With

Sheets("Home").Select

Application.ScreenUpdating = True

End Sub

Ok tant mieux si cela fonctionne mais quand je lis que votre bouton est sur la feuille Home, cela reste incompréhensible que vous basculiez sur la feuille Comparaison. Il doit y avoir autre chose dans les codes de votre fichier. Peut-être avez-vous dans la feuille Comparaison une macro genre "Activate" qui explique ce que vous m'écrivez.

Je regarde

En tout cas encore merci pour la mise en forme