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

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion RCAVBA
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
229
piga25
piga25
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
925
fanfan38
fanfan38
Dudu2
  • Résolu(e)
XL 2021 VBA - Comment ajuster la largeur d'une colonne sur une cellule qui contient des retours à la ligne
Réponses
9
Affichages
324
Phil69970
Phil69970
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
133
sylvanu
sylvanu
A
  • Question Question
XL 2010 Problème ou alternative à SOMPRODUCT en VBA
Réponses
14
Affichages
309
bruno lemaire
B
Nicolas JACQUIN
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
465
desto
D
Lu76Fer
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
199
Lu76Fer
Lu76Fer
Titof06
  • Résolu(e)
XL 2019 Problème avec INDEX & EQUIV
Réponses
8
Affichages
450
Titof06
Titof06
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
236
TooFatBoy
TooFatBoy
D
  • Question Question
Microsoft 365 Procédé pour appliquer un filtre qui permet de ressortir les informations a la sélection d'une information dans une colonne.
Réponses
6
Affichages
161
djidji59430
djidji59430
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
156
Pierreavecunp
P
F
  • Résolu(e)
Power Query Power Query : chercher si une colonne existe et la renommer
Réponses
7
Affichages
408
Florent74
F
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
238
eric72
E
cathodique
  • Question Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
cathodique
AlCapone
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
258
AlCapone
AlCapone
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
870
arnomorize
A
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
243
KRUG WOO
K
klin89
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
488
patricktoulon
patricktoulon
A
  • Résolu(e)
Microsoft 365 Correction du code vba
Réponses
5
Affichages
531
AD95
A
Retour