XL 2013 Blocage macro grouper colonne

[Kaizers]

Bonjour à tous,

Voici mon 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]

Re : Blocage macro grouper colonne

bonjour Kaizers

A tester:

For I = 1 To 2000
   If Sheets("MACRO").Cells(4, 1).Value = 1 Then Columns(I).Group
Next

 

[Kaizers]

Re : Blocage macro grouper colonne

bonjour Kaizers

A tester:

For I = 1 To 2000
   If Sheets("MACRO").Cells(4, 1).Value = 1 Then Columns(I).Group
Next

ça ne fonctionne pas non plus :/

 

[Kaizers]

Re : Blocage macro grouper colonne

bonjour Kaizers

A tester:

For I = 1 To 2000
   If Sheets("MACRO").Cells(4, 1).Value = 1 Then Columns(I).Group
Next

J'avais mal collé ton code, ça fonctionne, merci