Questions diverses sur macros

**Azulnoth** · 30/07/2014, 10h46

Bonjour,

Je débute sur VBA Excel (voire VBA tout court ^^) donc ne m'en veuillez pas si j'ai du mal à m'exprimer...

J'ai une facture sous excel qui fallait rendre moins touffue.
La solution : une macro afficher toutes les cellules :

Code :

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

1
2
3
4
5
6
Sub AFFICHER()
Dim cellule As Range
    For Each cellule In Union(Range("E32:e35"), Range("e39:e43"), Range("e47:e48"), Range("e52"), Range("e55"))
    cellule.EntireRow.Hidden = False
    Next cellule
End Sub

J'ai trouvé ce code en farfouillant un peu, il y a peut être plus facile...

Ensuite une macro qui permet de masquer des lignes qui contiennent un cellule de référence vide (une quantité) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub MASQUER()
 
    Dim cellule As Range
    For Each cellule In Union(Range("E32:e35"), Range("e39:e43"), Range("e47:e48"), Range("e52"), Range("e55"))
    If cellule.Value = "" Then
    cellule.EntireRow.Hidden = True
    End If
    Next cellule
 
End Sub

Ca fonctionne bien, j'ai rajouté des boutons sur la feuille et ca marche aussi.

J'aimerai rajouter dans le code un autre critère que "", par exemple 0.
Si la cellule est vide ou contient un 0 alors il faut la masquer.

J'ai essayé avec Or mais ca ne masque pas la ligne ou la cellule de réf contient 0, seulement si c'est vide.

Ensuite, l'idéal serait de pouvoir automatiser le code AFFICHER à l'ouverture du classeur.
J'ai bien trouvé en cherchant le code :

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Open()
Dim cellule As Range
    For Each cellule In Union(Range("E32:e35"), Range("e39:e43"), Range("e47:e48"), Range("e52"), Range("e55"))
    cellule.EntireRow.Hidden = False
    Next cellule
End Sub

Mais ca ne marche pas.

De même j'aimerai pouvoir automatiser le code MASQUER lors de l'impression :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim cellule As Range
    For Each cellule In Union(Range("E32:e35"), Range("e39:e43"), Range("e47:e48"), Range("e52"), Range("e55"))
    If cellule.Value = "" Then
    cellule.EntireRow.Hidden = True
    End If
    Next cellule
 
End Sub

Merci d'avance pour le coup de main.

**had4789** · 30/07/2014, 10h54

Bonjour,

J'aimerai rajouter dans le code un autre critère que "", par exemple 0.

Utilise ElseIf

"Ensuite, l'idéal serait de pouvoir automatiser le code AFFICHER à l'ouverture du classeur.

Il faut enregistrer cette macro dans "This workbook"

Idem pour masquer

**Azulnoth** · 30/07/2014, 10h59

Merci pour tes réponses

Envoyé par had4789

Bonjour,

"J'aimerai rajouter dans le code un autre critère que "", par exemple 0."

Utilise ElseIf

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub MASQUER()
 
    Dim cellule As Range
    For Each cellule In Union(Range("E32:e35"), Range("e39:e43"), Range("e47:e48"), Range("e52"), Range("e55"))
    If cellule.Value = "" Then
    ElseIf cellule.Value = "0" Then
    cellule.EntireRow.Hidden = True
    End If
    Next cellule
 
End Sub

Ca me masque les 0 mais plus les vides

Envoyé par had4789

"Ensuite, l'idéal serait de pouvoir automatiser le code AFFICHER à l'ouverture du classeur."

Il faut enregistrer cette macro dans "This workbook"

C'est enregistré dans thisworkbook mais ca ne fonctionne pas

Idem pour masquer

Invité · 30/07/2014, 11h39

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub MASQUER()
 
    Dim cellule As Range
    For Each cellule In Union(Range("E32:e35"), Range("e39:e43"), Range("e47:e48"), Range("e52"), Range("e55"))
    If trim("" & cellule.Value) = ""  or trim("" & cellule.Value) = "0" Then
        cellule.EntireRow.Hidden = True
   else
       cellule.EntireRow.Hidden = false
    End If
    Next cellule
 
End Sub

Code :

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

1
2
3
Private Sub Workbook_Open()
MASQUER
End Sub

**Azulnoth** · 30/07/2014, 11h48

Impeccable ca marche pour les 0.
Merci.

Par contre pas pour l'ouverture.
J'ai ce message d'erreur :

Nom : excel.jpg
Affichages : 166
Taille : 141,8 Ko

Invité · 30/07/2014, 11h58

a l'ouverture ton fichier n'est pas placé sur une feuille d'ou l'erreur!

Code :

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

1
2
3
4
5
6
7
8
9
 For Each cellule In Union(sheets("Feuil1").Range("E32:e35"),sheets("Feuil1").Range("e39:e43"), sheets("Feuil1").Range("e47:e48"), sheets("Feuil1").Range("e52"), sheets("Feuil1").Range("e55"))
    If trim("" & cellule.Value) = ""  or trim("" & cellule.Value) = "0" Then
        cellule.EntireRow.Hidden = True
   else
       cellule.EntireRow.Hidden = false
    End If
    Next cellule
 
End Sub

**Azulnoth** · 30/07/2014, 14h29

A l'impression c'est bon, les cellules se masquent.
Par contre à l'ouverture, j'ai toujours un soucis.

Code :

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

1
2
3
4
5
Sub AFFICHER()
 Dim cellule As Range
 For Each cellule In Union(Sheets("Facture").Range("E32:e35"), Sheets("Facture").Range("e39:e43"), Sheets("Facture").Range("e47:e48"), Sheets("Facture").Range("e52"), Sheets("Facture").Range("e55"))
         cellule.EntireRow.Hidden = False
       Next cellule

"La méthode 'sheets' de l'objet '_global' a échoué" et ce, uniquement si je rajoute le code macro à l'ouverture :

Code :

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

1
2
3
4
 
Private Sub Workbook_Open()
AFFICHER
End Sub

Si je l'enlève, ca fonctionne.

Invité · 30/07/2014, 14h35

même soucie

Code :

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

1
2
3
4
Private Sub Workbook_Open()
sheets("Feuil1").select
AFFICHER
End Sub

ou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub MASQUER()
 
    Dim cellule As Range
    For Each cellule In Union(sheets("Feuil1").Range("E32:e35"), sheets("Feuil1").Range("e39:e43"), sheets("Feuil1").Range("e47:e48"),sheets("Feuil1"). Range("e52"),sheets("Feuil1"). Range("e55"))
    If trim("" & cellule.Value) = ""  or trim("" & cellule.Value) = "0" Then
        cellule.EntireRow.Hidden = True
   else
       cellule.EntireRow.Hidden = false
    End If
    Next cellule
 
End Sub

**Azulnoth** · 30/07/2014, 14h51

Je vais laisser tomber, l'erreur concerne "select" maintenant.
Je vais plutot opter pour le bouton sur lequel cliquer à chaque ouverture, qui permet d'afficher toutes les lignes.
Ca fonctionne bien, c'est juste manuel

Par contre, si je veux duppliquer ces macros sur une autre feuille du meme classeur, je dois juste changer le nom de la feuille dans le code ?
C'est la même structure, mais les tarifs changent

**had4789** · 30/07/2014, 15h14

Bonjour,

Ton select vient peut être du fait que tu essais d'afficher des cellules qui ne sont pas masquées.

Pour ta question, oui il suffit de changer de copier ton code et de changer le nom de correspondant dans ta feuille.

**mercatog** · 30/07/2014, 15h26

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
Sub Afficher(ByVal Ws As Worksheet)
 
With Ws
    Union(.Range("E32:E35"), .Range("E39:E43"), .Range("E47:E48"), .Range("E52"), .Range("E55")).EntireRow.Hidden = False
End With
End Sub
 
 
Sub Masquer(ByVal Ws As Worksheet)
Dim c As Range
 
With Ws
    For Each c In Union(.Range("E32:E35"), .Range("E39:E43"), .Range("E47:E48"), .Range("E52"), .Range("E55"))
        c.EntireRow.Hidden = c.Value = "" Or c.Value = 0
    Next c
End With
End Sub
 
 
Sub AfficheAll()
 
Afficher Worksheets("Feuil1")
Afficher Worksheets("Feuil2")
End Sub
 
Sub MasquerAll()
 
Masquer Worksheets("Feuil1")
Masquer Worksheets("Feuil2")
End Sub

Pas besoin de sélectionner

**Azulnoth** · 30/07/2014, 16h12

@ had4789

Ca marche en manuel.
J'ai peu de temps pour terminer, donc je vais éviter de m'éterniser

A moins qu'on puisse m'apporter une réponse qui règle tout ^^

Concernant ma question, j'ai créé 2 autres macro dont j'ai copié le code et modifié le nom des feuilles.
Ca à l'air de fonctionner.

Merci pour l'aide

@ mercatog

Je n'avais pas vu ce message..

Je dois le mettre ou tout ça ?

Tout fonctionne à part le fait de pouvoir executer la macro "AFFICHER" à l'ouverture.

**had4789** · 30/07/2014, 16h33

Tu as mis ta fonction dans la même feuille que pour le sub MASQUER?

Est-ce que tu as un message d'erreur à l'ouverture ou rien du tout?

Essaye:

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
 
Call AFFICHER ' A Remplacer par le nom de la macro que tu veux lancer à l'ouverture
 
End sub

**mercatog** · 30/07/2014, 16h38

Par exemple mettre les procédures dans un module standard

Et dans le module ThisWorkbook

Code :

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

1
2
3
4
Private Sub Workbook_Open()
 
AfficheAll
End Sub

Testé et fonctionnelle (actions sur feuil1 et feuil2 avec Feuil3 étant la feuille active. Donc pas besoin de sélectionner ou activer quoique ce soit)

**Azulnoth** · 30/07/2014, 17h06

C'est de pire en pire xD

la feuille doit être protégée, donc entre temps, j'ai rajouté

Code :

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

Sheets("Facture HC").Unprotect Password:="mon mot de passe"

Et du coup, erreur methode "sheets" de l'objet "_global"

Actuellement, pour l'execution de la macro à l'impression j'ai ca :

Code :

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

1
2
3
4
5
6
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Facture").Select
Masquer
Sheets("Facture HC").Select
MASQUER_HC
End Sub

Mais je me rends compte, que du coup ca modifie les 2 feuilles, même si je fais imprimer la feuille active.
Il n'y a pas une possibilité de lancer la macro uniquement sur la feuille active ?

**mercatog** · 30/07/2014, 17h19

Une énième fois, pas besoin de sélectionner les feuilles ou les activer

Module standard

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Sub Afficher(ByVal Ws As Worksheet)
 
With Ws
    Union(.Range("E32:E35"), .Range("E39:E43"), .Range("E47:E48"), .Range("E52"), .Range("E55")).EntireRow.Hidden = False
End With
End Sub
 
 
Sub Masquer(ByVal Ws As Worksheet)
Dim c As Range
 
With Ws
    For Each c In Union(.Range("E32:E35"), .Range("E39:E43"), .Range("E47:E48"), .Range("E52"), .Range("E55"))
        c.EntireRow.Hidden = c.Value = "" Or c.Value = 0
    Next c
End With
End Sub
 
 
Sub AfficheAll()
 
Afficher Worksheets("Facture")
Afficher Worksheets("Facture HC")
End Sub

Module ThisWorkbook

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Private Sub Workbook_Open()
Const Mdp As String = "Ton mot de passe"
 
Worksheets("Facture").Protect Password:=Mdp, UserInterfaceOnly:=True
Worksheets("Facture HC").Protect Password:=Mdp, UserInterfaceOnly:=True
AfficheAll
End Sub
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
Masquer ActiveSheet
End Sub

**Azulnoth** · 30/07/2014, 17h39

J'ai compris cette fois, désolé, je me suis un peu embrouillé avec tous ces messages...

Bon, ca fonctionne bien sur l'impression.
Par contre, toujours un message d'erreur quand j'ouvre le fichier :

La méthode 'Workshets' de l'objet '_Global' a échoué.
Quand je cliques sur débogage il me surligne :

Afficher Worksheets("Facture")

**mercatog** · 30/07/2014, 18h00

Je ne saurai reproduire ton erreur
Qu'as tu de spécial sur tes feuilles et ton classeur (hormis feuilles protégées par mdp)

**Azulnoth** · 30/07/2014, 19h40

Ce sont des factures pour des centres de loisirs.
Il y a plusieurs onglets, notamment pour le calcul des tarifs, en fonction de la situation familiale

Rien de bien spécial

**mercatog** · 30/07/2014, 19h45

Tu auras un fichier exemple fidèle au tien (sans les données bien sûr)?

Questions diverses sur macros [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager