Bouton pour masquer des lignes si dans une cellule de cette ligne vide

Bonjour,

J'aimerais à l'aide d'un seul bouton masquer et démasquer les lignes dont la colonne K = O

Colonne K= O parce' qu'il y a une formule pour avoir l'image d'un autre onglet

Après avoir lu plusieurs demande du forum sur ce sujet je n'ai pas réussi à faire la macro qu'il va bien .

Si quelqu'un peux m'aider.

Merci d'avance

Bonjour,

Voici un essai à adapter et, pour l'instant à exécuter à partir de la feuille concernée :

Sub MasquerDemasquer()

Dim rCible as range

for i = 1 to 100 'exemple <<< ADAPTER
    if range("K" & i).value = 0 then
        if rCible is nothing then set rCible = rows(i)
        set rCible = union(rCible, rows(i))
    end if
next i

if rCible is nothing then exit sub
with rCible
    .rows.hidden = not .rows.hidden
end with

end sub

A noter que s'il faut juste masquer une image alors :

Shapes("nomimage").visible = false ferait plus simplement l'affaire...

Cdlt,

Re,

Cela ne marche pas du tout.

Est-ce qu'il y a des données à changées et si oui lesquelles.

peux tu me retransmettre mon fichier avec la macro.

Concernant les lignes ce serait de la ligne 3 à 66.

Merci d'avance

Cela ne marche pas du tout.

Alors, tune me ménages pas avec cette réponse . Ca ne marche pas ne veut rien dire pour moi. Ca bug à un endroit et ce serait à toi de me dire où...

Pour la réponse, ici, il y a une condition : on s'intéresse aux cellules en K qui valent 0 et pas aux autres... Peut-être faut-il adapter la condition si je l'ai mal comprise :

Voici le code adapté :

Sub MasquerDemasquer()

Dim rCible as range

for i = 3 to 66
    if range("K" & i).value = 0 then '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        if rCible is nothing then set rCible = range("K" & i)
        set rCible = union(rCible, range("K" & i))
    end if
next i

if rCible is nothing then exit sub
with rCible
    .rows.hidden = not .rows.hidden
end with

end sub

Pour que ça marche, il faut que la condition soit remplie au moins une fois...

Cdlt,

Bonjour,

Désolé de ne pas te ménager , effectivement mes demandes ne sont pas claires, je m'appliquerais plus la prochaine fois.

En ce qui concerne mon problème il est résolu et je t'en remercie beaucoup.

Merci pour ta patience.

a bientot