Discussion :

[sebing]

Bonjour,

Je voudrai que lorsqu'une case est vide, une colonne soit masquée.
J'ai écris ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub AFFICHER()
'
'
   Range("K5:K40").Select
    If Range("K5").Value = "" Then
     Columns("L:L").Select
   Range("L:L").EntireColumn.Hidden = True
    Else
     Range("L:L").EntireColumn.Hidden = False
    End If
 
End Sub

Il fonctionne si je fais executer macro.
Comment faire pour que celui ci fonctionne dès que l'on saisi une valeur dans la case K5 la colonne L s'affiche?

Merci
Seb

[mercatog]

à mettre dans l'évènement change de ta feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("K5"), Target) Is Nothing Then Columns("L:L").Hidden = Range("K5") = ""
End Sub

C'est l'équivalent de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("K5"), Target) Is Nothing Then
    If Range("K5") = "" Then
        Columns("L:L").Hidden = True
    Else
        Columns("L:L").Hidden = False
    End If
End If
End Sub

[sebing]

Merci pour la réponse.

ça ne marche pas avec la cellule K5 car il y a une formule.
Donc je l'ai étendu aux autres cellules, le probleme c'est que ça va jusqu'à la cellule K40. J'ai commencé a écrire ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("K:K"), Target) Is Nothing Then
    If Range("K6") = "" And Range("K7") = "" And Range("K8") = "" And Range("K10") = "" And Range("K11") = "" And Range("K12") = "" And Range("K13") = "" And Range("K14") = "" And Range("K15") = "" And Range("K16") = "" Then
        Columns("L:L").Hidden = True
    Else
        Columns("L:L").Hidden = False
    End If
End If
End Sub

Dois je faire toutes les cellules comme ça ou y a t'il un moyen pour dire les cellules (K5:K40)="" ?

Merci encore pour vos aides

Bonne soirée

Seb

[mercatog]

Si tu n'as pas de formules dans les cellules K6:K40 tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("K6:K40"), Target) Is Nothing Then Columns("L:L").Hidden = Application.CountA(Range("K6:K40")) = 0
End Sub

qui revient au même que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("K6:K40"), Target) Is Nothing Then
    If Application.CountA(Range("K6:K40")) = 0 Then
        Columns("L:L").Hidden = True
    Else
        Columns("L:L").Hidden = False
    End If
End If
End Sub

[sebing]

Merci beaucoup pour l'aide apportée
J'avais des formules encore dans la colonne donc j'ai pris le deuxieme code. ce qui donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("K6:K40"), Target) Is Nothing Then
    If Application.CountA(Range("K6:K8")) = 0 And Application.CountA(Range("K10:K16")) = 0 And Application.CountA(Range("K18:K24")) = 0 And Application.CountA(Range("K26:K32")) = 0 And Application.CountA(Range("K34:K40")) = 0 Then
        Columns("L:L").Hidden = True
    Else
        Columns("L:L").Hidden = False
    End If
End If
End Sub

Merci encore

Bonne soirée

Seb