K Kaizers XLDnaute Occasionnel 3 Juin 2016 #1 Bonjour à tous, Voici mon code : Code: For I = 1 To 2000 If Sheets("MACRO").Range(Cells(4, I)).Value = 1 Then Columns(I).Group Next I En ligne 4 de chaque colonne, je veux grouper la colonne si A4 (Colonne A, ligne 4) = 1 Impossible d'arranger un code... j'ai cherché... mais nothing!!! Merci pour votre aide Dernière édition: 3 Juin 2016
Bonjour à tous, Voici mon code : Code: For I = 1 To 2000 If Sheets("MACRO").Range(Cells(4, I)).Value = 1 Then Columns(I).Group Next I En ligne 4 de chaque colonne, je veux grouper la colonne si A4 (Colonne A, ligne 4) = 1 Impossible d'arranger un code... j'ai cherché... mais nothing!!! Merci pour votre aide
pierrejean XLDnaute Barbatruc 3 Juin 2016 #2 Re : Blocage macro grouper colonne bonjour Kaizers A tester: Code: For I = 1 To 2000 If Sheets("MACRO").Cells(4, 1).Value = 1 Then Columns(I).Group Next Vote positif 0 Vote négatif
Re : Blocage macro grouper colonne bonjour Kaizers A tester: Code: For I = 1 To 2000 If Sheets("MACRO").Cells(4, 1).Value = 1 Then Columns(I).Group Next
K Kaizers XLDnaute Occasionnel 3 Juin 2016 #3 Re : Blocage macro grouper colonne pierrejean à dit: bonjour Kaizers A tester: Code: For I = 1 To 2000 If Sheets("MACRO").Cells(4, 1).Value = 1 Then Columns(I).Group Next Cliquez pour agrandir... ça ne fonctionne pas non plus :/ Vote positif 0 Vote négatif
Re : Blocage macro grouper colonne pierrejean à dit: bonjour Kaizers A tester: Code: For I = 1 To 2000 If Sheets("MACRO").Cells(4, 1).Value = 1 Then Columns(I).Group Next Cliquez pour agrandir... ça ne fonctionne pas non plus :/
K Kaizers XLDnaute Occasionnel 3 Juin 2016 #4 Re : Blocage macro grouper colonne pierrejean à dit: bonjour Kaizers A tester: Code: For I = 1 To 2000 If Sheets("MACRO").Cells(4, 1).Value = 1 Then Columns(I).Group Next Cliquez pour agrandir... J'avais mal collé ton code, ça fonctionne, merci Vote positif 0 Vote négatif
Re : Blocage macro grouper colonne pierrejean à dit: bonjour Kaizers A tester: Code: For I = 1 To 2000 If Sheets("MACRO").Cells(4, 1).Value = 1 Then Columns(I).Group Next Cliquez pour agrandir... J'avais mal collé ton code, ça fonctionne, merci