macro pour fermer colonnes suivant condition

Dan

XLDnaute Barbatruc

• 10 Juin 2007

• #2

Re : macro pour fermer colonnes suivant condition

Bonjour,

En supposant que le résultat de ta ou tes formules soit la cellule A4 :

Code:

Sub cache()
If sheets("nom de ta feuille").Range("A4") = "" Then
Columns("B:Z").EntireColumn.Hidden = True
End If
End Sub

Macro à placer dans un module en VBA et à exécuter via menu/outils/macro/macro ou tu peux également créer un raccourci clavier pour plus de facilité.

A te lire

dan

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 10 Juin 2007

• #3

Re : macro pour fermer colonnes suivant condition

Re bonjour

Merci Dan pour ton travail mais j'ai du mal m'expliquer. Ce que je souhaite c'est fermer le colonne B si en B4 c'est vide, fermer la colonne C si en C4 c'est vide... ect ect jusqu'à la colonne Z

Merci beaucoup,
Bien amicalement
Christian

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 10 Juin 2007

• #4

Re : macro pour fermer colonnes suivant condition

Re,

essaie cette macro:

Code:

Sub cache()
'Macro par Dan le 10/06/07
Dim i As Byte
For i = 2 To 26
If Cells(4, i) = "" Then
Cells(4, i).EntireColumn.Hidden = True
End If
Next i
End Sub

A te lire

dan

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 10 Juin 2007

• #5

Re : macro pour fermer colonnes suivant condition

Re

Merci Dan c'est impec

Bien à toi
à+
cHRISTIAN

 

Vote positif 0 Vote négatif