Plage de données dynamiques

Version imprimable

27/01/2020, 20h47
thesus_size

1 pièce(s) jointe(s)

Plage de données dynamiques

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:
Pièce jointe 533979

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
27/01/2020, 22h14
anasecu

Bonjour,

Citation:

Envoyé par thesus_size

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.
27/01/2020, 22h14
78chris

BOnjour

Teste le numéro de ligne avec modulo

Code:

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

pour la 1ere et =3 pour la seconde
27/01/2020, 22h53
thesus_size

Citation:

Envoyé par anasecu

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.
28/01/2020, 00h26
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

1 pièce(s) jointe(s)

Citation:

Envoyé par 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

Exemple ici:
Pièce jointe 534219

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:

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:

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

Bonsoir,

Citation:

Envoyé par thesus_size

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:

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

30/01/2020, 11h43
thesus_size

2 pièce(s) jointe(s)

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é.
Pièce jointe 534561
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.
Pièce jointe 534566

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.

Bonjour

Citation:

Envoyé par thesus_size

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:

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

31/01/2020, 09h31
thesus_size

Ca marche parfaitement, merci beaucoup!