Masquer des colonnes si certaines de ses cases sont vides

Bonjour,

J'ai écrit un code VBA mais celui ci ne marche pas, pouvez vous m'aider ?

L'idée : tester des colonnes de 5 à 14 et si certaines de ses cellules sont vides, masquer la colonne

tester la colonne j

si les cellules (j, 4) et (j, 7) et (j, 10) sont vides (il faut que les 3 cellules soit vides)

alors masquer la colonne j

Passer à la colonne suivante

Voici le code que j'ai écrit ;

Sub masquer_colonnes_vides_2()

Dim j As Byte
For j = 5 To 14
    If IsEmpty(Cells(j, 4) And Cells(j, 7) And Cells(j, 10)) Then Cells(j, 4).EntireColumn.Hidden = True
Next j

End Sub

le message d'erreur est "incompatibilité de type"

Merci de votre aide

Flo

Bonjour,

essaye peut être comme ceci :

Option Explicit
Sub test()
Dim j As Byte
For j = 5 To 14
    Columns(j).Hidden = Application.CountA(Cells(4, j), Cells(7, j), Cells(10, j)) = 0
Next j
End Sub

bonne journée

@+

Merci, cela marche parfaitement

Que signifie option explicit ?

Re,

Que signifie option explicit ?

oblige à la déclaration de outes les variables, évite bien des erreurs...