Microsoft 365 Code VBA - si toutes les valeurs d'une cellule égale à "Y" grouper la colonne

[RCAVBA]

Bonjour à tous,

Je souhaiterais vérifier le contenu des cellules d'une colonne C à partir de la ligne 25.

Pour i=1 to la fin (la dernière ligne de la feuille excel)
J =3

Condition à partir de la ligne 24+i, si toutes les valeurs de la colonnes égales à "Y", DONC grouper la colonne, sinon ne rien faire.

Merci beaucoup
Cdt,

 

[sylvanu]

Bonjour Rcavba,
Qu'entendez vous par grouper la colonne ? Fusionner les cellules ?
Si on trouve des Y, on fusionne les cellules à partir de ligne 24 jusqu'à la fin ou on fusionne toutes les cellules de 1 à la fin ?

 

[RCAVBA]

Bonjour @sylvanu,

Grouper la colonne : c'est appliquer la procédure : Données > Plan > Grouper. Pour avoir le PLUS (+) en dessus de la colonne.

Si on trouve les Y de la ligne 24 à la dernière ligne (TOUTES LES LIGNES), donc on groupe la colonne et on la masque.

Merci

 

[jmfmarques]

Bonjour

Grouper la colonne : c'est appliquer la procédure : Données > Plan > Grouper. Pour avoir le PLUS (+) en dessus de la colonne.

est un non sens (et donc impossible)
Nul ne saurait grouper Une colonne.

 

[sylvanu]

Re,
Quand vous dites "TOUTES LES LIGNES ", on va jusqu'à la dernière ligne ?
Jusqu'à la ligne 1048576 ?

 

[sylvanu]

Re le fil,
Jmfmarques, c'est le "langage" XL. Vous sélectionnez une colonne, puis Données,Grouper
Ce qui vous permet de la masquer avec le petit +/- au dessus des colonnes.
Même si le terme grouper est impropre.

 

[RCAVBA]

Re @sylvanu,
Oui exactement !

 

[jmfmarques]

Re le fil,
Jmfmarques, c'est le "langage" XL. Vous sélectionnez une colonne, puis Données,Grouper
Ce qui vous permet de la masquer avec le petit +/- au dessus des colonnes.
Même si le terme grouper est impropre.

Bonjour sylvanu
Explique ce que j'ai mis en rouge

 

[sylvanu]

Pourquoi chipoter sur de futiles détails ?
Vous selectionnez une colonne.
Le petit +/- apparait au dessus des colonnes.

Le langage utilisé est celui présenté par XL
Le principal est que l'on comprenne exactement ce que veut Rcavba.

 

[RCAVBA]

@sylvanu est-ce clair le besoin ?

 

[sylvanu]

J'ai compris.

 

[sylvanu]

Re le fil,
J'ai mis la PJ en xlsb pour être moins gros car évidemment le fichier test est énorme :
https://www.cjoint.com/c/JEAhsIV0lyY
( 9.45Mo en xlsm, 2.62Mo en xlsb )
J'ai utilisé cette macro :

Sub Groupe()
For NCol = 1 To 5       ' Fait le test sur les 5 premières colonnes
    Ny = Application.CountIf(Range(Cells(24, NCol), Cells(1048576, NCol)), "Y") ' compte de bnre de Y de L24 à la fin
    If Ny = 1048553 Then                ' Si nombre de "Y" est egal à 1048576-24 alors
        Columns(NCol).Columns.Group     ' On applique Grouper à la colonne
        ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    End If
Next NCol
End Sub

Plus une petite macro pour revenir en arrière pour le test :

Sub Degrouper()
On Error GoTo Fin   ' Evite l'erreur si demande de dégroupage alors qu'il n'y a pas de Groupe
    Cells.Select                            ' on selectionne tout
    Selection.Columns.Ungroup               ' on "degroupe"
    Selection.EntireColumn.Hidden = False   ' on rend visible toutes les colonnes
Fin:
[A1].Select
End Sub

Je n'ai qu'une colonne pleine de Y, la colonne C car sinon le fichier est vraiment trop gros. Je ne fais le test que sur 5 colonnes, il est facilement adaptable suivant besoin.

 

[RCAVBA]

Parfait @sylvanu,

Le code fonctionne très bien. Merci beaucoup.

Sub Groupe()
For NCol = 1 To 5 ' Fait le test sur les 5 premières colonnes
Ny = Application.CountIf(Range(Cells(24, NCol), Cells(1048576, NCol)), "Y") ' compte de bnre de Y de L24 à la fin
If Ny = 1048553 Then ' Si nombre de "Y" est egal à 1048576-24 alors
Columns(NCol).Columns.Group ' On applique Grouper à la colonne
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End If
Next NCol
End Sub


J'ai juste un détail à modifier s'il vous plaît, je voulais juste remplacer 1048576 (dernière ligne) par la dernière ligne remplie dans la colonne, par exemple si ma colonne se limite à la ligne 100.

Merci beaucoup

 

[sylvanu]

Je m'en doutais un peu, sinon ça fait de gros fichiers !
J'ai modifié la macro, il vous faut adapter les trois premières déclarations :

Sub Groupe()
NombreDeColonnes = 5    ' déclare le nombre de colonnes concernées
DébutTableau = 24       ' définit le debut du tableau
FinTableau = 100        ' définit la fin du tableau
For NCol = NombreDeColonnes To 1 Step -1                    ' Fait le test sur les 5 premières colonnes
    Ny = Application.CountIf(Range(Cells(DébutTableau, NCol), Cells(FinTableau, NCol)), "Y") ' compte de bnre de Y de L24 à la fin
    If Ny = FinTableau - DébutTableau + 1 Then              ' Si nombre de "Y" est egal à 1048576-24 alors
        Columns(NCol).Columns.Group                         ' On applique Grouper à la colonne
        ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    End If
Next NCol
End Sub

 

[sylvanu]

Un addon :
Si votre tableau contient des "numéro de lignes" et des entêtes de colonne alors cela peut être fait automatiquement avec CurrentRegion qui sait détecter la taille de votre tableau.
Mais il lui faut obligatoirement une colonne pour compter les lignes et une ligne où il comptera les colonnes.