Discussion :

[ttde26]

Bonjour la team, j'ai besoin de vous svp!

j'ai un classeur excel dans lequel j'ai plusieurs feuilles sur lesquelles jai fait des filtres horizontaux et verticaux et certaines cellules dépendent des valeurs d'une autre cellule référée sur une autre feuille.

cependant, lorsque je protège ma feuille, jai une erreur 1004.

j'aimerais mettre un mot de passe pour éviter que les utilisateurs suppriment des lignes et colonnes; aussi, masquer les formules des cellules pour ne pas qu'elles soient visibles .certaines feuilles ne sont visibles que lorsqu'on click sur une cellule=> ce qui me donne un autre message d'erreurs lorsque que je protège cette dernière (la feuille qui doit s'afficher est protégée et donc erreur).

Merci d'avance

[MarcelG]

Bonjour ttde et bienvenu sur ce Forum,

Bonjour au Forum,

(A mon avis, la discussion aurait dû être ouverte sur le forum VBA)

Procédons par étape.

Pourrais-tu retourner le code dans son entier en précisant la ligne qui génère cette erreur 1004 (surlignée en jaune).

A plus tard.

[ttde26]

mercii pour ta réponse; le code est:

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Feuil4.Visible Then
    Range("C4") = Feuil2.Range("G13")........................................<=celui ci est en jaune
End If
If Feuil2.Range("G15") = "0" Then
    Feuil4.Rows("9:13").EntireRow.Hidden = True
End If
If Feuil2.Range("G15") = "1" Then
    Feuil4.Rows("11:12").EntireRow.Hidden = True
End If
If Feuil2.Range("G15") = "2" Then
    Feuil4.Rows("12:12").EntireRow.Hidden = True
End If
If Feuil2.Range("G15") = "3" Then
    Feuil4.Rows("9:13").EntireRow.Hidden = False
End If
End Sub

[MarcelG]

Salut,

Ouh là!

Cette règle ne sera jamais assez répétée.
Bien rattacher les objets Range à leur feuille parent est une précaution utile voire nécessaire, pour éviter les erreurs.

Autrement dit, ici, tu te dois de bien définir quelle cellule de quelle feuille est concernée.
Pour ce faire, attache chaque objet Range (ou Cells) à la feuille dont elle est issue.
Tu peux utiliser le bloc With.

Quelques remarques.
- Renommer les feuilles de travail
- baliser tout code par les bornes #
- Indenter tout code (retrait des paragraphes contenus dans chaque bloc (If, Select Case, With, For...)

Sur lae processus appliqué
- Je ne suis pas bien sûr qu'un évènement (Selection Change ou autre) soit le plus adéquat pour cette action
- Pour plus de clarté, mieux vaut utiliser l'Instruction Select Case

[ttde26]

Je ne suis pas une pro de vba; j'ai pu avancer dans mon projet grâce à votre forum.
Aussi, je crois que l'erreur vient du fait que je fais référence à une feuille masquée et protégée.
quand j'efface la ligne du code en jaune, j'ai la même erreur sur une autre ligne (juste parce que j'ai protégé la feuille).
j'aimerais pouvoir mettre un mot de passe tout en pouvant afficher une feuille masquer, ou faire référence à une cellule d'une feuille masquée

[MarcelG]

Excuse moi, mais ta réponse semble signifier "Je suis débutant. Voilà l'action que je souhaite voir réalisée par le code que le forum va me fournir".

La mienne:
Dans le document ci-joint tu trouveras des sources qui te permettront d'ébaucher un code.
Reviens avec cette première ébauche.

[ttde26]

Excuse moi, mais ta réponse semble signifier "Je suis débutant. Voilà l'action que je souhaite voir réalisée par le code que le forum va me fournir".

La mienne:
Dans le document ci-joint tu trouveras des sources qui te permettront d'ébaucher un code.
Reviens avec cette première ébauche.

merci mais j'ai une idée générale du code vba;
je sais que l'origine de mon erreur ne vient pas de mes codes vba car sans protection de ma feuille, mon code marche à merveille.
Merci bien,

[MarcelG]

D'accord.
Mais reviens tout de même avec un code tenant compte de toutes les remarques reportées au post #4.