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

R

RCAVBA

XLDnaute Junior
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,
 
Solution
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 :
VB: 
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...
Trier par date Trier par votes

Discussions similaires

A
  • Résolu(e)
Microsoft 365 Correction du code vba
Réponses
5
Affichages
195
AD95
A
A
  • Résolu(e)
Microsoft 365 VBA Etendre formule jusqu'à la dernière ligne dans VBA
Réponses
13
Affichages
210
AD95
A
X
  • Question
XL 2010 copier la valeur d'une cellule, si date du jour correspond à la date de la colonne...
Réponses
1
Affichages
284
djidji59430
djidji59430
chris6999
  • Question
Microsoft 365 MACRO VBA - Extraire des listes à partir d'une boucle
Réponses
5
Affichages
216
chris6999
chris6999
D
  • Résolu(e)
XL 2016 VAB : Masquer les lignes si la cellule en J contient "clôturée"
Réponses
3
Affichages
291
daviddemetz72
D
C
  • Résolu(e)
Microsoft 365 Trouver résultat en fonction de la dernière ligne d'une colonne
Réponses
7
Affichages
144
Chounoé
C
A
  • Résolu(e)
Microsoft 365 Correction d'un code vba
2
Réponses
22
Affichages
788
AD95
A
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Affichage des résultats dans un tableau selon des conditions
Réponses
13
Affichages
313
chaelie2015
chaelie2015
G
  • Question
XL 2016 Bug dans Données/Convertir si cellule de la ligne 1 vide ?
Réponses
7
Affichages
247
Guy_M
G
K
  • Question
XL 2019 VBA recherche dans toutes les colonnes les valeurs égaux dans la colonne spécifique
2
Réponses
18
Affichages
804
Oneida
Oneida

Membres actuellement en ligne

22 membres et 351 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 308
Messages
2 087 103
Membres
103 469
dernier inscrit
Thibz