Deux macros qui se genent l'une et l'autre Fermé

Question

Bonjour tout le monde, Voila mon petit problème: J'ai deux macros : Private Sub Worksheet_Change(ByVal Target As Range) Rows("12:27").Select If Range("B10").Value = "Cas 3: 1 seule mesure > VLEP ou sur 3 campagnes (9 mesures), la probabilité de dépassement >5% " Then Selection.EntireRow.Hidden = True Else Selection.EntireRow.Hidden = False End If Rows("16:18").Select If Range("B10").Value = "Cas 1 bis : 3 CEP < 10% de la VLEP ou 3 campagnes (soit 9 mesures) avec une probabilité de dépassement < ou égale à 0,1% sans EPI respiratoires requis " Then Selection.EntireRow.Hidden = True Else Selection.EntireRow.Hidden = False End If End Sub Le problème est que quand je suis dans le cas 3 les lignes 16-18 ne s'efface pas. Quand dans le dernier SELECTION.ENTIRE.Row.HIDDEN (en gras) je mes "Cas 3" ca marche mais des que je touche a une case ca me met debogage.... Pouvez vous m'aider ? MERCIII beaucoup :) Configuration: Windows XP / Internet Explorer 8.0

michel_m · Answer

Bonjour
Tu parles de 2 macros mais je n'en vois qu'une....

le "cas 3" concerne les lignes 12:27 et non 12:18.... ???

Pas clair ton explication

carotte78 · Answer

Private Sub Worksheet_Change(ByVal Target As Range) Rows("12:27").Select If Range("B10").Value = "Cas 3: 1 seule mesure > VLEP ou sur 3 campagnes (9 mesures), la probabilité de dépassement >5% " Then Selection.EntireRow.Hidden = True Else Selection.EntireRow.Hidden = False End If Rows("16:18").Select If Range("B10").Value = "Cas 1 bis : 3 CEP < 10% de la VLEP ou 3 campagnes (soit 9 mesures) avec une probabilité de dépassement < ou égale à 0,1% sans EPI respiratoires requis " Then Selection.EntireRow.Hidden = True Else Selection.EntireRow.Hidden = "Cas 3:1 seule mesure > VLEP ou sur 3 campagnes (9 mesures), la probabilité de dépassement >5% " End If End Sub Il me met cette phrase en jaune...

ccm81 · Answer

Bonjour 

Cette ligne là est incorrecte 
Selection.EntireRow.Hidden = "Cas 3:1 seule mesure > VLEP ou sur 3 campagnes (9 mesures), la probabilité de dépassement >5% " 
Après Selection.EntireRow.Hidden = 
 il te faut un booleen true ou false 
Avant il faudrait définir une selection 

Peux tu envoyer ton fichier sur cjoint.com si possible au format excel 2003) et joindre le lien obtenu à ton prochain message, avec quelques explications 

RQ. il n'y a pas 2 macros, mais une seule

bonne suite

carotte78 · Answer

https://www.cjoint.com/?3BCp0Im6nVe

ccm81 · Answer

Ce que j'ai compris
Cas 1 et 2 on montre toutes les lignes
Cas 3 on cache les lignes 12:27
Cas 1 bis on cache (uniquement) les lignes 16:18
Le code est (actif) dans la feuille  1

https://www.cjoint.com/?3BCtn7zM5Tu 

RQ. J'ai du nettoyer tous tes codes qui interféraient (du moins avec excel 2003)

bonne suite

ccm81 · Answer

et pour généraliser à toutes les feuilles
https://www.cjoint.com/?3BCuj74H8Nt

ccm81 · Answer

1. Est ce que ça fonctionne dans mon fichier?

2. Un code un peu plus simple 
https://www.cjoint.com/?3CbqTJQXjZE 
Le mode d'emploi est dans la feuille 1

ccm81 · Answer

OK, mais  

1. tu as changé la cellule cible:  B9 au lieu de B10 
2. tu as mis des Alt-Entree pour forcer les passages à la ligne dans B9  
donc, la macro ne retrouve plus ses petits 

Le bon côté c'est que je t'ai simplifié le code 
https://www.cjoint.com/?3CbsuAw0oik  

Un module de feuille (situé dans la liste des feuilles  fenêtre de gauche dans l'éditeur VBA est destiné à recevoir les procédures et fonctions propres à cette feuille 
Un module "général" (Module 1, Module 2 quand tu fais Insertion/module) est un module dans lequel les procédures et fonctions concernent n'importe quelle feuille  

Dans Module 1 tu trouveras la procédure  
Masque_Montre(target As Range)  
qui fait le boulot à partir de la cellule target reçue au moment de l'appel depuis la procédure WorksheetChange  du module de la feuille active 

Dans les modules des feuilles 1-2-3- ... tu trouveras la procédure Worksheet_Change(ByVal target As Range) 
qui appelle Montre_Cache en lui envoyant la cellule active comme paramètre 

Il ne te reste plus qu'à copier l'intégralité du code du module de la feuille 1 dans les modules des autres feuilles 

Si tu as besoin d'autres précisions, n'hésites pas 

bonne soirée

Deux macros qui se genent l'une et l'autre

8 réponses

Discussions similaires