Discussion :

[thesus_size]

Bonjour,

je bloque sur un problème de plages de données.

J'ai un petit script VBA qui me génère des tableaux de la forme suivante:


En gros le script génère le premier tableau "A4:L9" puis le copie colle le nombre de fois nécéssaire en fonction d'une variable "nombretableaux".

Maintenant, j'aimerais mettre en place une règle de mise en forme conditionnelle sur certaines cases de ces tableaux. Sur l'exemple, la première règle sera sur les plages =$B$6:$L$8;$B$13:$L$15;$B$20:$L$22;$B$27:$L$29, et la deuxième sur la plage =$B$9:$L$9;$B$16:$L$16;$B$23:$L$23;$B$30:$L$30. Le problème c'est que cette plage change en fonction du nombre de tableau et que je n'arrive pas à voir comment générer dynamiquement une plage.

Si quelqu'un a une piste, ça m'aiderait grandement!

Bonne soirée

[anasecu]

Bonjour,

Maintenant, j'aimerais mettre en place une règle de mise en forme conditionnelle sur certaines cases de ces tableaux.

Si tu mets tes MFC sur la première plage, ensuite la copie te copiera aussi la MFC sans aucun calcul.

[78chris]

BOnjour

Teste le numéro de ligne avec modulo

Code :

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

MOD(LIGNE()-6;7)<3

pour la 1ere et =3 pour la seconde

[thesus_size]

Bonjour,


Si tu mets tes MFC sur la première plage, ensuite la copie te copiera aussi la MFC sans aucun calcul.

Oui, mais j'ai une MFC différente pour chaque tableau, alors que j'aimerais que ce soit la même MFC pour tous les tableaux. En gros c'est pour mettre en couleur la valeur la plus petite de tous les tableaux.

[78chris]

RE

Phrase ambiguë

La valeur la plus petite des données de l'ensemble des tableaux ou par tableau ?

Donne un exemple car avec des cellules vides c'est très abstrait

[thesus_size]

RE

Phrase ambiguë

La valeur la plus petite des données de l'ensemble des tableaux ou par tableau ?

Donne un exemple car avec des cellules vides c'est très abstrait

Exemple ici:


La même MFC est appliquée sur les trois premières lignes du premier et du second tableau. Une deuxième MFC (même règle => valeur minimum de la sélection) est appliquée à la dernière ligne des deux tableaux.

Je vais essayer d'utiliser du pseudo-code pour expliciter ce qui me tracasse:

Pour le nombre de tableau généré:

Code :

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

1
2
3
4
5
Pour le nombre de tableau généré:
    Créer une plage de sélection comportant les trois premières lignes de chaque tableau
        Appliquer MFC = la plus petite valeur de la sélection est mise en forme
    Créer une 2nd plage de sélection comportant la dernière ligne de chaque tableau
         Appliquer MFC = la plus petite valeur de la sélection est mise en forme

J'imagine que je devrais arriver à quelque chose comme ça:

Code :

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

1
2
3
Set BigRange = Union(Range(Cells(6, 2), Cells(8, 12)), Range(Cells(13, 2), Cells(15, 12)))
                BigRange.FormatConditions.AddTop10
                BigRange.FormatConditions(BigRange.FormatConditions.Count).SetFirstPriority

Mais je ne vois pas comment créer "dynamiquement" (en fonction d'une variable quoi), ces plages.

Merci d'avance

[anasecu]

Bonsoir,

La même MFC est appliquée sur les trois premières lignes du premier et du second tableau. Une deuxième MFC (même règle => valeur minimum de la sélection) est appliquée à la dernière ligne des deux tableaux.

Sur ton premier tableau que tu veux copier, après l'avoir généré, tu rajoutes la MFC puis tu fais tes copies et tes MFC seront correctes sur tous les tableaux.

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
    With Range("B5:L7")
        .FormatConditions.AddTop10
        With .FormatConditions(1)
            .TopBottom = xlTop10Bottom
            .Rank = 1
        End With
        .FormatConditions(1).Interior.Color = 5296274 ' à modifier
    End With
    With Range("B8:L8")
        .FormatConditions.AddTop10
        With .FormatConditions(1)
            .TopBottom = xlTop10Bottom
            .Rank = 1
        End With
        .FormatConditions(1).Interior.Color = 5296274 ' à modifier
    End With

[thesus_size]

Bonjour et merci de ta réponse

J'ai testé ta solution, et le problème reste le même. Je vais essayer de réexpliquer autrement. Sur l'exemple précédent, j'avais enlevé les légendes de la colonne de gauche, ce qui peut porter à confusion. Je les remets pour plus de clarté.

Les deux tableaux contiennent des données qui font partie du même ensemble. Les lignes 5 et 12 correspondent à une localisation en millimètres ( de 0mm à 21000mm). Dans l'exemple ci dessus, j'ai appliqué ton bout de code. Dans ce cas, j'ai une MFC différente (mais avec la même règle et la même mise en forme, on est d'accord) pour chaque tableau, il est donc mis en valeur la plus petite valeur de chaque tableau. Ce que je cherche à faire, c'est mettre en valeur la plus petite valeur des deux tableaux, comme dans l'exemple ci-dessous.


C'est pourquoi je parle de la création dynamique de la plage pour laquelle va s'appliquer la MFC. Dans l'exemple ci-dessus, la plage d'application de la MFC est : =$B$6:$L$8;$B$13:$L$15.

Si j'avais trois tableaux, la plage d'application devrait être =$B$6:$L$8;$B$13:$L$15;$B$20:$L$22 et ainsi de suite.

Et c'est là que je bloque.

[anasecu]

Bonjour

Si j'avais trois tableaux, la plage d'application devrait être =$B$6:$L$8;$B$13:$L$15;$B$20:$L$22 et ainsi de suite

J'avais compris que tu cherchais le petit sur chaque tableau.
Comme tu le veux sur l'ensemble des tableaux cela devrait fonctionner avec ce code.

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
19
20
21
22
23
24
25
26
27
28
29
Dim num As Integer, adr As String
    With Range("B6:L8")
        adr = .Address
        For num = 1 To nombretableaux - 1
           adr = adr & "," & .Offset(7 * num, 0).Address
        Next num
    End With
    With Range(adr)
        .FormatConditions.AddTop10
        With .FormatConditions(1)
            .TopBottom = xlTop10Bottom
            .Rank = 1
        End With
        .FormatConditions(1).Interior.Color = 5296274 ' à modifier
    End With
    With Range("B9:L9")
        adr = .Address
        For num = 1 To nombretableaux - 1
           adr = adr & "," & .Offset(7 * num, 0).Address
        Next num
    End With
    With Range(adr)
        .FormatConditions.AddTop10
        With .FormatConditions(1)
            .TopBottom = xlTop10Bottom
            .Rank = 1
        End With
        .FormatConditions(1).Interior.Color = 5296274 ' à modifier
    End With

[thesus_size]

Ca marche parfaitement, merci beaucoup!