OVH Cloud OVH Cloud

appliquer la mise en forme

3 réponses
Avatar
arnaud
Bonjour à tous !

J'ai un tableau mis en forme.
je colle par macro une colonne supplémentaire à chaque execution.
J'aimerai que cette colonne prenne la mise en forme de la colonne précédente
pour que mon tableau soit homogène.

Quelle macro enregistrer ??

Merci d'avance !
Arnaud

3 réponses

Avatar
Nicolas B.
Salut Arnaud,

Avec la dernière colonne du tableau (avant la copie) dans la variable col :

Columns(col).Copy
Columns(col + 1).PasteSpecial xlPasteFormats
Application.CutCopyMode = False


A+
Nicolas B.


arnaud wrote:
Bonjour à tous !

J'ai un tableau mis en forme.
je colle par macro une colonne supplémentaire à chaque execution.
J'aimerai que cette colonne prenne la mise en forme de la colonne précédente
pour que mon tableau soit homogène.

Quelle macro enregistrer ??

Merci d'avance !
Arnaud




Avatar
arnaud
J'ai testé mais je n'y arrive pas !

il faut que je mette dim col auparavant ?


"Nicolas B." a écrit dans le message
de news:
Salut Arnaud,

Avec la dernière colonne du tableau (avant la copie) dans la variable col
:


Columns(col).Copy
Columns(col + 1).PasteSpecial xlPasteFormats
Application.CutCopyMode = False


A+
Nicolas B.


arnaud wrote:
Bonjour à tous !

J'ai un tableau mis en forme.
je colle par macro une colonne supplémentaire à chaque execution.
J'aimerai que cette colonne prenne la mise en forme de la colonne
précédente


pour que mon tableau soit homogène.

Quelle macro enregistrer ??

Merci d'avance !
Arnaud






Avatar
Nicolas B.
il faut que je mette dim col auparavant ?


Si tu veux, et surtout mettre dans la variable col le numéro de la
dernière colonne du tableau. Par exemple comme ça :

Dim col As Integer
col = [A1].End(xlToRight)
Columns(col).Copy
Columns(col + 1).PasteSpecial xlPasteFormats
Application.CutCopyMode = False


A+
Nicolas B.


arnaud wrote:
J'ai testé mais je n'y arrive pas !

il faut que je mette dim col auparavant ?


"Nicolas B." a écrit dans le message
de news:

Salut Arnaud,

Avec la dernière colonne du tableau (avant la copie) dans la variable col


:

Columns(col).Copy
Columns(col + 1).PasteSpecial xlPasteFormats
Application.CutCopyMode = False


A+
Nicolas B.