Problématique Macro Fermé

Question

Bonjour à tous,

Je suis en train de m'arracher les cheveux avec une maccro et j aurais grandement besoin de votre aide !
Le but de ma macro est assez simple : en fonction du nombre qui figure dans une cellule (cellule fusionnée E47:G47) je veux masquer ou afficher des lignes. 
J'aimerais arriver à ça :
=> Si E47:G47 = 0 alors les lignes 48 à 82 sont entierement masquées
     Si E47:G47 = 1 alors seules les lignes 56 à 82 sont masquées
     Si E47:G47 = 2 alors seules les lignes 65 à 82 sont masquées
     Si E47:G47 = 3 alors seules les lignes 74 à 82 sont masquées
     Si E47:G47 = 4 toutes les lignes sont affichées.

J ai quand meme essayé et j'ai ecrit ça :
Sub Macro5()
'
' Macro5 Macro
'

'
    Range("E47:G47").Select
    If ActiveCell.FormulaR1C1 = "0" Then Rows("47:82").Select
    Range("B47").Activate
    Selection.EntireRow.Hidden = False
    Rows("48:82").Select
    Range("B48").Activate
    Selection.EntireRow.Hidden = True
    Range("E47:G47").Select
    If ActiveCell.FormulaR1C1 = "1" Then Rows("48:82").Select
    Range("B48").Activate
    Selection.EntireRow.Hidden = False
    Rows("56:82").Select
    Range("B56").Activate
    Selection.EntireRow.Hidden = True
    Range("E47:G47").Select
    If ActiveCell.FormulaR1C1 = "2" Then Rows("48:82").Select
    Range("B48").Activate
    Selection.EntireRow.Hidden = False
    Rows("65:82").Select
    Range("B65").Activate
    Selection.EntireRow.Hidden = True
    Range("E47:G47").Select
    If ActiveCell.FormulaR1C1 = "3" Then Rows("48:82").Select
    Range("B48").Activate
    Selection.EntireRow.Hidden = False
    Rows("74:82").Select
    Range("B74").Activate
    Selection.EntireRow.Hidden = True
    Range("E47:G47").Select
    If ActiveCell.FormulaR1C1 = "4" Then Rows("48:82").Select
    Range("B48").Activate
    Selection.EntireRow.Hidden = False
End Sub

Le problème est que ma macro fonctionne quand je la crée, mais après j ai un message d'erreur me demandant si je veux debugger...

Et comme, je galère vraiment, j' ai une autre question : quand on travaille sur des fichiers partages, ou doit on enregistrer la macro (Personal Macro Workbook ou dans le classeur en question) - j'ai essayé les deux et des que quelqu un essaie d'executer la macro depuis son poste tout plante...

Je vous remercie grandement par avance pour votre aide!!!

JCB40 · Answer

Bonjour
Un exemple en Vba
 https://www.cjoint.com/c/JEwopgcXcsf
Faire Alt+F11 pour voir le code de la feuille
Crdlt

michel_m · Answer

bonjour

Dans un module (avec un bouton)
 

Sinon on peut aussi utiliser ce code en l"aménageant   avec worksheet_change  comme la proposer JCB que je sakue

michel_m · Answer

Bonjour Aurel, JCB 40

Désolé je viens de réessayer et ca fonctionne (xl2007)

Ci joint classeur refait à compléter avec le choix 2 et 3
https://mon-partage.fr/f/5iZuFvTo/


Au passage, les cellules fusionnées sont à bannir au maximum
Utilise l'option  alignement/horizontal/centrer sur plusieurs colonnes

Yoyo01000 · Answer

Bonjour,
pour plus tard :  Si E47 = 0 alors les lignes 48 à 82 sont entierement masquées

Il faut toujours éviter au maximum la fusion de cellules et dans le cas inverse, il est inutile d'inscrire la plage mais seulement la 1ère cellule (ici E47)

JCB40 · Answer

Re bonjour
Tu colles ce code dans ThisWorkBook  en modifiant le nom de la feuil concernée et le MdP
Mais avant tu fais sauter tous les MdP qu'il y a sur cette feuille .Quand tu voudras faire une modif dans la feuille il te sera demandé le MdP

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  ThisWorkbook.Worksheets("Feuil1").Protect Password:="0000"
End Sub


Ci-dessous un exemple MdP  0000
 https://www.cjoint.com/c/JEzqXqEoblf

 Cordialement

JCB40 · Answer

Bonjour

plus de nouvelles je suppose que ton problème est résolu...

Aurel · Answer

Bonjour 
Je suis désolée je n avais pas vu votre retour.
Non je n ai toujours pas résolu mon problème.
Le fait est que je mets mon fichier a disposition de plusieurs personnes qui doivent le modifier / l utiliser (il s agit d un formulaire à remplir) mais je dois bloquer les formules que j ai mises pour éviter que quelqu un les modifie / supprime.

Donc il faut que j arrive dnas le code de ma macro à "déprotéger" la feuille pour que la macro s exécute puis que de reprotéger la feuille des que la macro est exécutée
et en mettant :
ActiveSheet.Unprotect Password:="mdp"
code
ActiveSheet.Protect "mdp", True, True, True 

Ma feuille ne se reprotege pas.

Merci encore par avance
Meilleures salutations

JCB40 · Answer

Bonjour
Peux tu m'envoyer en Mp ton fichier
Crdlt

JCB40 · Answer

Bonjour,
Un exemple de votre fichier avec explications serait le bienvenu.
Pour transmettre un fichier, 
Veillez à ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES 
il faut passer par un site de pièce jointe tel que cjoint.com 

Allez sur ce site : https://www.cjoint.com/ 
Clic sur parcourir, 
Cherche ton fichier, 
clic sur ouvrir, 
Clic sur "Créer le lien cjoint", 
Copier le lien, 
Revenir ici le coller dans une réponse... 
Cordialement

Aurel_1207 · Answer

voici le lien :
https://www.cjoint.com/c/JEBpM7XpHTN

Meilleures salutations

Problématique Macro

10 réponses

Discussions similaires