Discussion :

[lexus92]

Bonjour à toutes et à tous,

Je fais de nouveau appel à vous pour un petit souci. Dans le tableau ci joint, j'ai deux macros très simples qui me copie colle chacune un tableau de manière dynamique. J'aimerais créer un nouveau bouton que j'appelerais Valider, qui me grisera le nouveau tableaux, pour qu'il soit de même couleur que les tableaux le précédent. J'aimerais également que l'écart soit automatiquement le même entre chaque tableau. J'ai essayé de faire plusieurs macros avec une mise en forme avec le pinceau, uniquement la couleur, le trait, l'écart, des macros automatiques ... Mais rien n'y fait, ce n'est jamais ce que je souhaites.

Merci d'avance pour votre aide,

Cordialement,

Alexandre

[Daniel.C]

Bonjour,

Pour ce qui est des largeurs de colonne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub MacroMatiere()
 
    Range("L200:N271").Select
    Selection.Copy
    Range("IV1").End(xlToLeft).Offset(0, 1).Select
    ActiveSheet.Paste
    ActiveCell.Resize(172, 3).PasteSpecial xlPasteColumnWidths
End Sub

Pour la couleur de fond, pourquoi est-ce que tu ne l'as met pas sur le modèle que tu copies ?

[lexus92]

Bonjour Daniel.C,

Tout d'abord merci pour la largeur des colonnes. J'avais presque trouvé la solution. Pour ce qui est des couleurs, le tableau blanc signifient qu'il n'est pas complet, ou pas encore valider. Lorsqu'il est gris, cela veut dire qu'il est completement validé, et qu'on ne reviendra pas dessus. C'est pour cela que je souhaite le grisé via une macro et via un bouton "valider".

Merci encore.

Cordialement,

Alexandre

[Daniel.C]

Oui, mais quel tableau colorier ? Est-ce toujours le plus à droite ?

[lexus92]

Bonjour,

Oui, c'est toujours le tableau le plus à droite.

Merci beaucoup

[Daniel.C]

Essaie la macro suivante. Il faut peut-être ajuster les couleurs si les deux sortes de tableaux n'ont pas la même forme. Dans ce cas, comment les reconnaître ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Valider()
    With ActiveSheet.UsedRange
        col = .Columns.Count - .Column
        Range(Cells(8, col), Cells(19, col + 1)).Interior.ColorIndex = 15
        Range(Cells(22, col), Cells(36, col + 1)).Interior.ColorIndex = 15
        Range(Cells(37, col - 1), Cells(40, col + 1)).Interior.ColorIndex = vbBlack
        Range(Cells(41, col), Cells(52, col + 1)).Interior.ColorIndex = 15
        Range(Cells(55, col), Cells(68, col + 1)).Interior.ColorIndex = 15
        Range(Cells(69, col - 1), Cells(72, col + 1)).Interior.ColorIndex = vbBlack
    End With
End Sub

[lexus92]

Bonjour Daniel,

Merci, c'est exactement ce que je voulais. J'ai essayé d'adapter ton code pour faire deux choses de plus. Colorier la colonne avant, par exemple si je fais un nouveau tableau en AH AI, j'aimerais également que la colonne AG soit coloriée, de la même manière que AH et AI, et enfin que le trait en ligne 7 continue à se prolonger pour que le fichier soit vraiment uniforme.

Merci beaucoup pour l'aide apportée.

Bon week end

Cordialement

Alexandre

[Daniel.C]

Bonjour,

La variable "Col" représente la colonne de gauche du tableau; pour prendre une colonne plus à gauche, utilise "Col - 1" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Valider()
    With ActiveSheet.UsedRange
        col = .Columns.Count - .Column
        Range(Cells(8, col - 1), Cells(19, col + 1)).Interior.ColorIndex = 15
        Range(Cells(22, col - 1), Cells(36, col + 1)).Interior.ColorIndex = 15
        Range(Cells(37, col - 1), Cells(40, col + 1)).Interior.ColorIndex = vbBlack
        Range(Cells(41, col - 1), Cells(52, col + 1)).Interior.ColorIndex = 15
        Range(Cells(55, col - 1), Cells(68, col + 1)).Interior.ColorIndex = 15
        Range(Cells(69, col - 1), Cells(72, col + 1)).Interior.ColorIndex = vbBlack
    End With
End Sub

[lexus92]

Bonjour Daniel,

Une fois de plus merci pour ton travail. Je voulais juste savoir, comment est ce que je dois faire pour ajouter un trait en ligne 7.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium

J'ai obtenu ce bout de code en faisant une macro automatique, mais je n'arrive pas à le rajouter et à l'adapter dans ta macro. Pourrais tu m'aider ?

Merci d'avance

Cordialement,

Alexandre

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Valider()
    With ActiveSheet.UsedRange
        col = .Columns.Count - .Column
    End With
        Range(Cells(8, col - 1), Cells(19, col + 1)).Interior.ColorIndex = 15
        Range(Cells(22, col - 1), Cells(36, col + 1)).Interior.ColorIndex = 15
        Range(Cells(37, col - 1), Cells(40, col + 1)).Interior.ColorIndex = vbBlack
        Range(Cells(41, col - 1), Cells(52, col + 1)).Interior.ColorIndex = 15
        Range(Cells(55, col - 1), Cells(68, col + 1)).Interior.ColorIndex = 15
        Range(Cells(69, col - 1), Cells(72, col + 1)).Interior.ColorIndex = vbBlack
        'ajout du trait en ligne 7
    With Range(Cells(7, col - 1), Cells(7, col + 1)).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
End Sub

[lexus92]

Bonjour,

Merci beaucoup pour cette macro, elle marche parfaitement. J'ai juste remplacer vbBlack par la valeur 1, car sur mon mac, vbBlack ne marchait pas.

Merci encore pour ton travail

Cordialement,

Alexandre