[Excel]Masquer 3 lignes lorsqu'une case = 0

Bonjour Ludo,

il y a plusieurs façons de faire et pas forcément par macro.
tout dépend de l'organisation de tes données.

on peut imaginer un classeur par chantier, un classeur clients/chantiers.
le classeur chantier récupèrerait les données client du classeur client, tu y mettrais un onglet "prestations" d'où tu extrairais les lignes non nulles pour les mettre dans l'onglet devis/facture.

si tu as déjà choisi une structuration de tes données et un modèle de sortie pour tes devis/factures, fais-en un zip et monte le sur http://www.cjoint.com

A+

Merci pour ta réponse

La structure est déjà toute faite et j'utilise un fichier par chantier. J'ai fait des recherche ce matin et j'ai fait une macro avec:

'Masque les lignes 31 à 33 si la case AE33 est égal à zéro
If Range("ae33") = "0" Then
    Rows("31:33").Select
    Selection.EntireRow.Hidden = True
    End If
    
'Affiche les lignes 31 à 33 si la case AE33 n'est pas égal à zéro
If Range("ae33") <> "0" Then
    Rows("30:34").Select
    Selection.EntireRow.Hidden = False
    End If

Bonjour,

si les lignes à ausculter vont de 3 en 3, tu peux boucler sur une variable i

for i=33 to 1000 step 3
If Range("ae" & i) = "0" Then
Rows(i-2 & ":" & i).Select
Selection.EntireRow.Hidden = True
End If

et pour afficher,

Cells.EntireRow.Hidden = False

je n'ai pas testé mais ça doit le faire.

A+

C'est vrai, je n'y avais pas pensé. Mais c'est pas grave, j'ai bientot fini... Mais est il possible de faire exécuter automatiquement la macro quand je clique sur la feuille facture???

Bonjour,

oui, avec l'évènement Worksheet_Activate()
(tu mets ton code derrière la feuille qui t'intéresse)

A+

C'est parfait!!!

Merci beaucoup

Bonjour

J'ai appliqué la méthode décrite plus haut pour faire apparaitre et disparaitre des lignes dans mes feuilles.
Par contre je décroche au niveau du worksheet et pourtant j'en ai besoin.

Faut il créer une deuxieme macro?

Voici mon code on ne peut plus simple
Sub Macro1()

'Masque chambre
If Range("d18") = "0" Then
Rows("9:19").Select
Selection.EntireRow.Hidden = True
End If

'Affiche chambre
If Range("d18") <> "0" Then
Rows("9:19").Select
Selection.EntireRow.Hidden = False
End If

End Sub

Merci d'avance

Problème résolu.

j'écrivais mon code dans un modue au lieu de le mettre dans la feuille.

++