Questions diverses sur macros

Version imprimable

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:

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:

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:

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:

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.

30/07/2014, 10h54
had4789

Bonjour,

Citation:

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

Utilise ElseIf

Citation:

"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

Merci pour tes réponses ;)

Citation:

Envoyé par had4789

Bonjour,

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

Utilise ElseIf
Code:

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

Citation:

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

Bonjour,

Code:

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:

1
2
3
Private Sub Workbook_Open()
MASQUER
End Sub

30/07/2014, 11h48
Azulnoth

1 pièce(s) jointe(s)

Impeccable ca marche pour les 0.
Merci.

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

Pièce jointe 152302

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

Code:

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

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

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:

1 2 3 4 Private Sub Workbook_Open() AFFICHER End Sub
Si je l'enlève, ca fonctionne.

même soucie

Code:

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

Code:

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

30/07/2014, 14h51
Azulnoth

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
30/07/2014, 15h14
had4789

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.

Code:

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

30/07/2014, 16h12
Azulnoth

@ 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.
30/07/2014, 16h33
had4789
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:

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
30/07/2014, 16h38
mercatog
Par exemple mettre les procédures dans un module standard

Et dans le module ThisWorkbook
Code:

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)
30/07/2014, 17h06
Azulnoth
C'est de pire en pire xD

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

Code:

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:

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 ?

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

Module standard

Code:

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:

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

30/07/2014, 17h39
Azulnoth

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")
30/07/2014, 18h00
mercatog

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)
30/07/2014, 19h40
Azulnoth

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
30/07/2014, 19h45
mercatog

Tu auras un fichier exemple fidèle au tien (sans les données bien sûr)?
30/07/2014, 20h30
Azulnoth
Je m'en occupe demain depuis le bureau.
Je mettrais des données fictives dans le fichier.

Sinon, j'ai remis l'ancien code dans le fichier, et ai créé un bouton qui affiche toutes les données.

Pour l'impression j'ai réglé le soucis de page active par ce code
Code:

1 2 3 4 5 Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.Select Masquer End Sub
31/07/2014, 08h51
had4789
Bonjour,

Essais avec
Code:

1 2 3 4 5 Sub AfficheAll() Call Afficher Worksheets("Facture") Call Afficher Worksheets("Facture HC") End Sub
Essais uniquement
Code:

1 2 3 4 5 6 Sub AfficheAll() Afficher Worksheets("Facture HC") End Sub
Si cela fonctionne en utilisant uniquement facture HC cela veut dire que tu as un problème dans le nom de ta feuille.
31/07/2014, 11h03
Azulnoth
Bonjour,

Un peu compliqué pour vous joindre le fichier, il y a beaucoup de donnée confidentielles.
Si je supprime les onglets de données tarifaires, toutes les formules de calcul seront éronnées.
Ca pose problème pour l'histoire de la macro qui efface les cellules vides ?

Ensuite, concernant :
Code:

1 2 3 4 5 Sub AfficheAll() Call Afficher Worksheets("Facture") Call Afficher Worksheets("Facture HC") End Sub
Il faut le mettre dans Workbook_open ?

Sinon, comme dit, en mettant un bouton "obligatoire", sur lequel pour lancer la macro d'affichage, c'est fonctionnel.

Mon responsable vient de me demander d'enregistrer le fichier en format "modèle" de manière à rendre impossible la modification du fichier de base, et que par défaut il demande d'enregistrer sous un nouveau nom.

Jusque là tout va bien, sauf que (oui je sais je suis embêtant ^^), lorsqu'on veut enregistrer, par défaut c'est le format :"Classeur Excel".
J'aimerai que par défaut ce soit : "Classeur Excel prenant en charge les macros)

J'ai donc trouvé ça :
Code:

1 2 3 4 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled End Sub
Ca semble marcher, sauf que ca me créé automatiquement une copie dans "mes documents".
Du coup quand je veux enregistrer une autre facture, il me dit que le fichier existe déja, et on doit cliquer sur OUI pour remplacer, afin de le sauvegarder via la boite de dialogue habituel...

Je ne sais pas si j'ai la poisse... mais ca me rends dingue :(

Merci pour votre aide précieuse en tout cas !!
31/07/2014, 11h22
had4789

Citation:

Ca semble marcher, sauf que ca me créé automatiquement une copie dans "mes documents".
Du coup quand je veux enregistrer une autre facture, il me dit que le fichier existe déja, et on doit cliquer sur OUI pour remplacer, afin de le sauvegarder via la boite de dialogue habituel...

Tu veux donc enregistrer toutes tes factures sans devoir écraser la précédente à chaque fois?

Si oui dans ce cas tu n'as cas indiqué un autre nom au moment de ta sauvegarde

Code:

Workbooks("LeNomDeTonClasseurDeBase" ).SaveAs Filename:="LeNomDeTonClasseurDeBase" & "LeNuméroDeLaFacture

Je ne sais pas si mon code est bon mais je suis sûre que les experts de ce forum sauront l'améliorer.
31/07/2014, 11h30
Azulnoth

Citation:

Envoyé par had4789

Tu veux donc enregistrer toutes tes factures sans devoir écraser la précédente à chaque fois?

Oui c'est ça.

Le fichier est destiné aux équipes du terrain.
Donc, la facture vide, est enregistrée en modèle prenant en charge les macros.
De cette manière, a chaque modification, elle est enregistrée sous un autre nom pour archivage, sous format classeur cette fois-ci.

Mais étonnement depuis que j'ai mis la macro "enregistrer en classeur macro", ca me fait un doublon dans mes documents, alors que je l'enregistre sur le serveur.
Alors que sans la macro, ça ne le fait pas, mais il faut selectionner le type de fichier manuellement, et je veux l'éviter (les users, manquant de compétence info, ca va être le bordel ^^)
31/07/2014, 11h41
had4789

J'ai fais une petit modification dans ma précédente réponse.

Je t'ai proposer un petit code qui te permet de choisir le nom de ton fichier.

Si tu as une case " numéro de facture " c'est parfait.

tu peux aussi essayer

Code:

Workbooks("LeNomDeTonClasseurDeBase").Name = "LeNomDeTonClasseurDeBase" & "Lenumérodetafacture
31/07/2014, 11h46
Azulnoth

En fait le nom de la facture sera tapé automatiquement par le responsable sous la forme
"nom du centre" "nom de famille" "date"

exemple : AA DUPONT 31072014

Mon problème, c'est d'automatiser le format du fichier en XLSM, par défaut.
J'ai trouvé, ca je l'ai dit plus haut, sauf que ca me créé un doublon dans "mes docs"
31/07/2014, 11h56
had4789

Pourquoi ne pas simple créer une copier de ton fichier de base, ainsi le nouveau classeur sera au bon format?
Ensuite tu n'auras plus qu'à renommer cette copie via un formulaire ou une msgbox pour avoir les informations "nom du centre" "nom de famille" "date".
31/07/2014, 12h02
Azulnoth

Il y a certains centres ou il faut faire 100 factures... à la main.
On prévoit un logiciel en 2015, mais d'ici là...
Si je ne le créé pas en modèle, avec enregistrement en classeur, (comme c'est déja arrivé par le passé) beaucoup de boulettes se feront ; du style, j'oublie de supprimer des valeurs de l'ancienne facture... etc.
31/07/2014, 12h02
had4789
Tu peux essayer ça
Code:

1 2 3 4 5 6 7 Sub t() ActiveWorkbook.SaveCopyAs "LeCheminVersTonFichier\LeNouveauNom.XLSM" End Sub
Citation:

Si je ne le créé pas en modèle, avec enregistrement en classeur, (comme c'est déja arrivé par le passé) beaucoup de boulettes se feront ; du style, j'oublie de supprimer des valeurs de l'ancienne facture... etc.

Je ne vois pas où tu veux en venir. Peux tu reformuler ta demande.

Pour moi tu as un fichier modèle de base.

Tu le copies avec un nouveau nom que tu définies comme tu veux afin que le fichier de base ne soit pas modifier.

Ensuite tu lances ta macro dans ton nouveau fichier et tu enregistres le tout.

Je ne vois pas le problème que pose les "boulettes".

Excel ne peut pas gérer les compétences de tes collègues.
31/07/2014, 14h14
Azulnoth

C'est sur qu'Excel ne peut pas gérer ça.

L'intérêt du modèle, c'est que les modifications ne peuvent pas y etre enregistrées.
Sauf que par défaut excel propose d'enregistrer sans macro, or dans le cas présent il le faut.

Selon les compétences de chacun, est-ce plus facile de faire une macro qui permet d'enregistrer automatiquement en fichier excel prenant en charge les macros ou demander à des gens qui n'y comprennent rien de choisir dans la liste le bon format ?
Là est tout le problème.

Pour moi le plus simple est de faire une macro.

Bonjour,

l'avantage d'un modèle est qu'Excel te demande de l'enregistrer sous!
si tu veux ,créer un nouveau fichier tu lui donne le modèle à utiliser
Code:

1 2 set NewClasseur =Workbooks.Add ("c:\test\TES.XLTM") NewClasseur .SaveAs Filename:="C:\Users\RDurupt\Documents\Classeur1.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

31/07/2014, 14h40
Azulnoth
J'arrive pas à savoir si je m'exprime mal pour expliquer mon soucis.

J'ai créé le fichier de base avec macros, au format :"Classeur excel prenant en charge les macros". ca c'est MON fichier.
Ce fichier, je l'ai enregistré sous le format : "Modèle Excel prenant en charge les macros".

Quand on ouvre ce dernier, on le modifie, on cliques sur Enregistrer, par défaut ca ouvre la boite de dialogue "enregistrer sous" et propose le nom de fichier du modèle (qui sera modifié par l'utilisateur), mais au format ne prenant pas en charge les macros.
J'aimerai éviter que les utilsateurs doivent choisir dans la liste le format "Classeur Excel avec prise en charge des macros", certains n'étant pas des lumières en info... et j'aimerai éviter de faire un powerpoint expliquant ce qu'il faut faire ^^
Donc, je voudrais avoir simplement une macro qui dise :

"quand tu cliques sur enregistrer, le format d'enregistrement par défaut est : "Classeur avec macro" et non classeur sans macro.

J"avais donc trouvé ca :
Code:

1 2 3 4 Private Sub Workbook_BeforeSave(ByVal SaveAs As Boolean, Cancel As Boolean) ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled End Sub
Sauf que pour une raison inconnue, il y a un backup qui se créé dans mes docs et ca je ne veux pas.

Code:

1
2
3
 sub test()
Application.DefaultSaveFormat = xlOpenXMLWorkbookMacroEnabled
end sub

31/07/2014, 14h51
Azulnoth

MERCI !!!!!!!

T'es mon sauveur !

Je savais qu'on n'était pas loin ;-)

J'en profite pour "résoudre" le post et remercier tout le monde ayant participé !