Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel protection des cellules

protection des cellules

5 réponses
Avatar
Érico
Bonjour à tous,

J'ai deux lignes qui se masquent automatiquement quand les valeurs sont à
zéro et j'ai de la dificulté de mettre une protection sur les cellules de
l'ensemble de la feuille.
Pourtant, j'ai enlevé la protection sur ces deux lignes.

Merci

Érico de Montréal
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Xav
Bonjour Erico

je ne suis pas sur d'avoir tres bien compris le probleme...

Que veux tu faire exactement? Comment est fait ce "automatiquement"?

Si tu masques tes lignes à l'aide d'un filtre et si tu protèges la feuille,
il est impossible de modifier les paramètres du filtre sans déprotéger la
feuille.



--
Cordialement

@+
Xav
"Érico" a écrit dans le message de
news:
Bonjour à tous,

J'ai deux lignes qui se masquent automatiquement quand les valeurs sont à
zéro et j'ai de la dificulté de mettre une protection sur les cellules de
l'ensemble de la feuille.
Pourtant, j'ai enlevé la protection sur ces deux lignes.

Merci

Érico de Montréal




Avatar
Érico
J'ai une macro qui s'exécute tout seul, dès que la cellule a une valeur
autre que zéro et l'inverse aussi.
C'est-à-dire que, si la cellule e46 est "0", il masque la ligne 46
automatiquement.
L'inverse aussi, si la valeur de la cellule est autre que zéro, il fait
affiché la ligne 46.

Voici la macro:

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Range("E46") = "" Then Rows(46).EntireRow.Hidden = True
If Range("E47") = "" Then Rows(47).EntireRow.Hidden = True
If Range("E46") <> "" Then Rows(46).EntireRow.Hidden False
If Range("E47") <> "" Then Rows(47).EntireRow.Hidden False
End Sub


Merci

"Xav" <xavier(point)herout(at)groupe-cahors(point)com> a écrit dans le
message de news:OS$
Bonjour Erico

je ne suis pas sur d'avoir tres bien compris le probleme...

Que veux tu faire exactement? Comment est fait ce "automatiquement"?

Si tu masques tes lignes à l'aide d'un filtre et si tu protèges la
feuille,

il est impossible de modifier les paramètres du filtre sans déprotéger la
feuille.



--
Cordialement

@+
Xav
"Érico" a écrit dans le message de
news:
Bonjour à tous,

J'ai deux lignes qui se masquent automatiquement quand les valeurs sont
à


zéro et j'ai de la dificulté de mettre une protection sur les cellules
de


l'ensemble de la feuille.
Pourtant, j'ai enlevé la protection sur ces deux lignes.

Merci

Érico de Montréal








Avatar
Xav
Tu peux essayer ceci

Une fois que tu auras caché tes lignes, on ne pourra plus les afficher à
moins de déprotéger le classeur

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

ActiveSheet.Unprotect

If Range("E46") = "" Then Rows(46).EntireRow.Hidden = True
If Range("E47") = "" Then Rows(47).EntireRow.Hidden = True
If Range("E46") <> "" Then Rows(46).EntireRow.Hidden False
If Range("E47") <> "" Then Rows(47).EntireRow.Hidden False

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub




--
Cordialement

@+
Xav
"Érico" a écrit dans le message de
news:%
J'ai une macro qui s'exécute tout seul, dès que la cellule a une valeur
autre que zéro et l'inverse aussi.
C'est-à-dire que, si la cellule e46 est "0", il masque la ligne 46
automatiquement.
L'inverse aussi, si la valeur de la cellule est autre que zéro, il fait
affiché la ligne 46.

Voici la macro:

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Range("E46") = "" Then Rows(46).EntireRow.Hidden = True
If Range("E47") = "" Then Rows(47).EntireRow.Hidden = True
If Range("E46") <> "" Then Rows(46).EntireRow.Hidden > False
If Range("E47") <> "" Then Rows(47).EntireRow.Hidden > False
End Sub


Merci

"Xav" <xavier(point)herout(at)groupe-cahors(point)com> a écrit dans le
message de news:OS$
Bonjour Erico

je ne suis pas sur d'avoir tres bien compris le probleme...

Que veux tu faire exactement? Comment est fait ce "automatiquement"?

Si tu masques tes lignes à l'aide d'un filtre et si tu protèges la
feuille,

il est impossible de modifier les paramètres du filtre sans déprotéger
la


feuille.



--
Cordialement

@+
Xav
"Érico" a écrit dans le message de
news:
Bonjour à tous,

J'ai deux lignes qui se masquent automatiquement quand les valeurs
sont



à
zéro et j'ai de la dificulté de mettre une protection sur les cellules
de


l'ensemble de la feuille.
Pourtant, j'ai enlevé la protection sur ces deux lignes.

Merci

Érico de Montréal












Avatar
Gloops
En principe, ça, ça n'est pas une macro, c'est un format.

Ton format comporte trois points-virgules, qui délimitent
donc quatre champs. Le premier champ est le format des
valeurs positives, le deuxième celui des valeurs
négatives, le troisième celui des zéros, le quatrième
celui des erreurs (ou c'est moi qui en commets une ?)

Donc :
Range("E47").NumberFormat = "0;-0;"";"HEEEP ! C'est faux
làààà !"

Par exemple ...
Et si ta cellule contient la valeur zéro elle ne fera rien
apparaître (enfin une chaîne vide, mais à l'oeil ça fait
pareil).

-----Message d'origine-----
J'ai une macro qui s'exécute tout seul, dès que la
cellule a une valeur

autre que zéro et l'inverse aussi.
C'est-à-dire que, si la cellule e46 est "0", il masque la
ligne 46

automatiquement.
L'inverse aussi, si la valeur de la cellule est autre que
zéro, il fait

affiché la ligne 46.

Voici la macro:

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Range("E46") = "" Then Rows(46).EntireRow.Hidden = True
If Range("E47") = "" Then Rows(47).EntireRow.Hidden = True
If Range("E46") <> "" Then Rows(46).EntireRow.Hidden =
False
If Range("E47") <> "" Then Rows(47).EntireRow.Hidden =
False
End Sub


Merci

"Xav" <xavier(point)herout(at)groupe-cahors(point)com> a
écrit dans le

message de news:OS$
Bonjour Erico

je ne suis pas sur d'avoir tres bien compris le
probleme...



Que veux tu faire exactement? Comment est fait
ce "automatiquement"?



Si tu masques tes lignes à l'aide d'un filtre et si tu
protèges la


feuille,
il est impossible de modifier les paramètres du filtre
sans déprotéger la


feuille.



--
Cordialement

@+
Xav
"Érico" a écrit dans le message de
news:
Bonjour à tous,

J'ai deux lignes qui se masquent automatiquement
quand les valeurs sont



à
zéro et j'ai de la dificulté de mettre une protection
sur les cellules



de
l'ensemble de la feuille.
Pourtant, j'ai enlevé la protection sur ces deux
lignes.




Merci

Érico de Montréal








.





Avatar
Érico
Salut,

Je ne pense pas que se soit bon, puisque la macro fait en sorte qu'elle
masque et affiche en tout temps.

Merci beaucoup de m'aider.

"Xav" <xavier(point)herout(at)groupe-cahors(point)com> a écrit dans le
message de news:
Tu peux essayer ceci

Une fois que tu auras caché tes lignes, on ne pourra plus les afficher à
moins de déprotéger le classeur

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

ActiveSheet.Unprotect

If Range("E46") = "" Then Rows(46).EntireRow.Hidden = True
If Range("E47") = "" Then Rows(47).EntireRow.Hidden = True
If Range("E46") <> "" Then Rows(46).EntireRow.Hidden > False
If Range("E47") <> "" Then Rows(47).EntireRow.Hidden > False

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub




--
Cordialement

@+
Xav
"Érico" a écrit dans le message de
news:%
J'ai une macro qui s'exécute tout seul, dès que la cellule a une valeur
autre que zéro et l'inverse aussi.
C'est-à-dire que, si la cellule e46 est "0", il masque la ligne 46
automatiquement.
L'inverse aussi, si la valeur de la cellule est autre que zéro, il fait
affiché la ligne 46.

Voici la macro:

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Range("E46") = "" Then Rows(46).EntireRow.Hidden = True
If Range("E47") = "" Then Rows(47).EntireRow.Hidden = True
If Range("E46") <> "" Then Rows(46).EntireRow.Hidden > > False
If Range("E47") <> "" Then Rows(47).EntireRow.Hidden > > False
End Sub


Merci

"Xav" <xavier(point)herout(at)groupe-cahors(point)com> a écrit dans le
message de news:OS$
Bonjour Erico

je ne suis pas sur d'avoir tres bien compris le probleme...

Que veux tu faire exactement? Comment est fait ce "automatiquement"?

Si tu masques tes lignes à l'aide d'un filtre et si tu protèges la
feuille,

il est impossible de modifier les paramètres du filtre sans déprotéger
la


feuille.



--
Cordialement

@+
Xav
"Érico" a écrit dans le message de
news:
Bonjour à tous,

J'ai deux lignes qui se masquent automatiquement quand les valeurs
sont



à
zéro et j'ai de la dificulté de mettre une protection sur les
cellules




de
l'ensemble de la feuille.
Pourtant, j'ai enlevé la protection sur ces deux lignes.

Merci

Érico de Montréal