Obtenir les mêmes formats qu'avec un MEFC ?

Version imprimable

08/12/2017, 09h01
Stan_fr

1 pièce(s) jointe(s)

Obtenir les mêmes formats qu'avec un MEFC ?

Bonjour à tous,

Voici mon problème : il semblerait qu'une MEFC est capable de "superposer" les attributs de motifs et de couleur de fond d'une cellule et qu'une mise en forme "à la main" (i.e. en VBA) ne le permette pas... Ou que je ne trouve pas comment ?

J'essaie de donner un exemple : j'ai un tableau de résa où :

- Les dimanches ont un format spécifique (que j'arrive à recréer en VBA)
- Les jours où il y a une résa ont aussi un format spécifique (que j'arrive aussi à recréer en VBA)
- Les dimanches où il y a une résa (par exemple le dimanche 15) ont un format spécifique : superposition des deux premiers, que je n'arrive pas à recréer en VBA : c'est fromage ou dessert...

Pièce jointe 333481

Y'a-t-il un moyen de le faire ?

Merci d'avance pour vos remarques et conseils.
10/12/2017, 13h52
patricktoulon

re

re
d'apres ce que je comprends tu parle de la superposition du interior.color + le degradé rouge pour les colonnes 3 et 4 en dimache 15 c'est bien ca ?
10/12/2017, 14h40
Invité

Bonjour,

Je ne comprends pas si une MFC te permet de faire ce que tu veux et pas Vba alors pourquoi vouloir passer par Vba?

1 pièce(s) jointe(s)

oui moi aussi je me pose la question
si ce n'est que les MFC sont yper gourmandes

dans le doute
une ebauche ca se regle avec le meme principe que les degradés dans une shape la sintaxes est legerement diferente c'est tout

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
Const HRTZHB = 90    'HORIZONTAL HAUT VERS BAS
Const HRTZBH = -90    'HORIZONTAL BAS VERS HAUT
Const VERTGD = 0    'VERTCAL DROITE VERS LA GAUCHE
Const VERTDG = 180    'VERTCAL  GAUCHE VERS LA DROITE
Sub test()
    Dim couleur(4), cel, couleurfond
    Set cel = [A1]' changer ici pour B1
     couleurfond = cel.Interior.Color
     If couleurfond = 16777215 Then couleurfond = vbWhite
     couleur(1) = couleurfond
    couleur(2) = 11513855
    couleur(3) = couleurfond
    couleur(4) = couleurfond
    Gradient cel, HRTZHB, couleur
 
End Sub
Function Gradient(plage, sens, couleur)
    Dim rng As Range, cs As ColorStop, grd1    'As LinearGradient
    Set rng = plage
    rng.Interior.Color = couleur(1)
    'rng.Cells.Merge
    rng.Interior.Pattern = XlPattern.xlPatternLinearGradient
    Set grd1 = rng.Interior.Gradient
    grd1.Degree = sens    'on applique le sens du dégradé au depart
 
    Set cs = grd1.ColorStops.Add(0.2)    ''on met la 1 ere couleur eton la degrade jusqu'a 20% de la taille de la plage
    cs.Color = couleur(1)
    cs.TintAndShade = 0    'Réglez l'ombrage : -1 est noir , 1 est blanc, 0 est la couleur (enleve le meme probleme qu'avec les shape gradient (couleur blanche persistente )
 
    Set cs = grd1.ColorStops.Add(0.5)
    cs.Color = couleur(2)
    cs.TintAndShade = 0
    Set cs = grd1.ColorStops.Add(0.7)
    cs.Color = couleur(3)
    cs.TintAndShade = 0
    Set cs = grd1.ColorStops.Add(0.9999)    ' ajout de la derniere couleur a 100% de la largeur ou de la hauteur selon le degré
    cs.Color = couleur(4)
    cs.TintAndShade = 0
End Function

Pièce jointe 333983

10/12/2017, 15h53
Stan_fr

Merci à tous les deux !

@ dysorthographie : je voulais du VBA pour faire des test plus rapidement qu'en modifiant des MFC "à la main"...

@ patricktoulon : ta solution marche nickel, j'y étais arrivé fonctionnellement mais c'était beaucoup moins compréhensible !

Bon maintenant je vais chercher encore une de mes questions à la noix pour la poser...