XL 2016 [RESOLU] MFC VBA sur N° ligne d'un groupe

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Mars 2021

• #2

Bonjour Riko,
Pourquoi passer par du VBA et pas simplement par des MFC sur la feuille ?
Il y a partout des Validation de données avec des alertes donc pas de risque de se tromper. Ce serait plus simple.

 

Vote positif 0 Vote négatif

Riko

XLDnaute Occasionnel

• 8 Mars 2021

• #3

Merci de ta réponse,
J'avais fait des MFC par simplicité mais cela devient un peu compliqué à maintenir car je me retrouve avec beaucoup de lignes à gérer. (voir illustration ci-dessous pour une seule MFC)
De plus quand le fichier est modifié (supp / insertion lignes groupées + ajout colonne) les MFC s'accumulent et le fichier devient beaucoup plus lent.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Mars 2021

• #4

ok.
OutlineLevel donne le niveau de plan actif, donc les lignes doivent faire l'objet d'un "Grouper"
J'ai fait un essai en groupant les lignes 5:8 .... , et en faisant cette macro :

Code:

Sub essai()
    For L = 4 To 19
        Cells(L, "Q") = Cells(L, "C").Rows.OutlineLevel
    Next L
End Sub

On obtient le niveau en colonne Q. Voir PJ

Propriété Range.OutlineLevel (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

 

Pièces jointes

• TestRiko (2).xlsm

  26.4 KB · Affichages: 5

Dernière édition: 8 Mars 2021

Vote positif 0 Vote négatif

Riko

XLDnaute Occasionnel

• 8 Mars 2021

• #5

merci.
mais je me suis surement mal expliqué (comme d'hab)
Je voudrais que lorsque l'on inscrit une valeur dans les cellules de niveau 2 :

• Si le contenu d'une cellule > 0 dans la 1ére ligne de niveau 2 → cellule de couleur Rouge
• Si le contenu d'une cellule > 0 dans la 2ième ligne de niveau 2 → cellule de couleur Bleu
• Si le contenu d'une cellule < 0 dans la la 3ième ligne de niveau 2 → cellule de couleur Verte
• Si le contenu d'une cellule="OK" dans la 5ième ligne de niveau 2 → cellule de couleur Jaune.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Mars 2021

• #6

Si j'ai compris, mais qu'appelez vous Niveau ?
Dans votre fichier rien ne dit qu'une cellule est de niveau 1 ou 2.
Qui plus est OutlineLevel n'est applicable que pour des lignes groupées.

 

Vote positif 0 Vote négatif

Riko

XLDnaute Occasionnel

• 8 Mars 2021

• #7

Dans votre fichier rien ne dit qu'une cellule est de niveau 1 ou 2.

Cliquez pour agrandir...

Oui en effet, je n'ai pas mis les différents essais que j'ai effectué en vba car ils ne fonctionnent pas.
Je cherche à reproduire le même résultat que la MFC sur les lignes (5 à 8, 10 à 13 et 15 à 18).

mais qu'appelez vous Niveau

Cliquez pour agrandir...

Si je me trompe pas les lignes de niveau 2 sont les lignes masquées par l'appui sur +/- (à gauche des N° de lignes)👍

 

Vote positif 0 Vote négatif

Riko

XLDnaute Occasionnel

• 8 Mars 2021

• #8

je crois que j'ai un bon début.

VB:

Sub ColoreCelGrp2()
    Dim CelGrp2 As Range, PremLigGrp1 As Long
    Set CelGrp2 = ActiveCell

    'Vérifie que la cellule fait partie d'un groupe
    If CelGrp2.Rows.OutlineLevel > 1 Then
        PremLigGrp1 = CelGrp2.Row

        If CelGrp2.Row > 1 Then
            'première ligne qui n'est pas groupée
            For i = CelGrp2.Row - 1 To 1 Step -1
                If Cells(i, CelGrp2.Column).Rows.OutlineLevel = 1 Then
                    PremLigGrp1 = i
                    Exit For
                End If
            Next i
        End If
        MsgBox PremLigGrp1
        Select Case CelGrp2.Row
            Case PremLigGrp1 + 1
                CelGrp2.Interior.ColorIndex = 5
            Case PremLigGrp1 + 2
                CelGrp2.Interior.ColorIndex = 6
            Case PremLigGrp1 + 3
                CelGrp2.Interior.ColorIndex = 7
            Case PremLigGrp1 + 4
                CelGrp2.Interior.ColorIndex = 8
        End Select
    
    
    End If


End Sub

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Mars 2021

• #9

Sinon pour respecter :

Riko à dit:

MFC sur les lignes (5 à 8, 10 à 13 et 15 à 18).

Cliquez pour agrandir...

Il y a plus simple : Row Mod 5 si le résultat est 4 c'est du Level 1 sinon c'est du level 2.
Ex en PJ avec :

VB:

Sub Essai()
For L = 4 To 43
    Cells(L, "A") = L
    If L Mod 5 = 4 Then
        Cells(L, "B") = "Level 1"
    Else
        Cells(L, "B") = "Level 2"
    End If
Next L
End Sub

 

Pièces jointes

• TestRiko (V2).xlsm

  12.6 KB · Affichages: 7

Vote positif 0 Vote négatif

Riko

XLDnaute Occasionnel

• 8 Mars 2021

• #10

je vais regarder tout ça demain.
Merci.😉

 

Vote positif 0 Vote négatif

Riko

XLDnaute Occasionnel

• 11 Mars 2021

• #11

Je pense avoir résolu mon problème, voici ce que je voulais obtenir.
@sylvanu, Merci de ton aide.

 

Pièces jointes

• TestRikoMfcNiveauxGroupes.xlsm

  22.2 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Mars 2021

• #12

Bonsoir,
Il y a bien des données groupées ?
Elle n'étaient pas là dans le premier fichier, c'est là où j ne comprenais pas ce que vous appeliez level1 level2.
🙂🤞

 

Vote positif 0 Vote négatif

Riko

XLDnaute Occasionnel

• 12 Mars 2021

• #13

Il y a bien des données groupées ?

Cliquez pour agrandir...

Elle n'étaient pas là dans le premier fichier, c'est là où j ne comprenais pas ce que vous appeliez level1 level2.

Cliquez pour agrandir...

Oui en effet je viens de voir que j'avais fait une erreur.
Je classe le post comme "Résolu"

 

Vote positif 0 Vote négatif