Mise en forme conditionnelle un peu particulière

[pierre1923]

Bonjour,

je cherche a faire une mise en forme conditionnelle un peu particulière mais je n'y arrive pas.

le but serait dans un questionnaire :

- de masquer les 3 lignes dessous si la réponse à la première question est non ou sans objet

- et de laisser la possibilité de répondre à ces 3 lignes si la réponse à ma première question est oui

je vous joins mon fichier, merci d'avance.

Pierre

 

[Guest]

Re : Mise en forme conditionnelle un peu particulière

Bonjour Pierre,

Dans ce genre de truc l'idée est de tester les cas généraux (ceux qui répondent à la même règle) d'un côté et les exceptions de l'autre.

Ce qui pourrait donner ici:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("$D$34,$D$39,$D$42,$D$47,$D$89,$D$ 96,$D$101,$D$113,$D$117"), Target) Is Nothing And Target.Count = 1 Then
Dim nb As Long
Select Case Target.Row
Case 34, 47, 96, 113: nb = 3
Case 39, 89, 96, 117: nb = 2
Case 42: nb = 4
Case 101: nb = 11
End Select
With Target.Offset(1).Resize(nb).EntireRow
.Hidden = Target.Value <> "Oui*"
If .Hidden Then .Columns(4).ClearContents
End With
If Target.Address = "$D$96" Then Range("100").EntireRow.Hidden = Target.Value <> "Non*"
End If
End Sub

A+

 

[pierre1923]

Re : Mise en forme conditionnelle un peu particulière

Merci de m'avoir répondu si vite HASCO. c'est aussi ce que j'avais compris et que j'essayais de faire plus ou moins de la même manière mais lorsque je met mon code, j'ai le droit au message

"erreur d'execution 1004:

la methode 'range' de l'objet_worksheet a échoué" ...

ça a fait tout le temps la même chose lors de mes essais.

tu as une idée de l'erreur ?

 

[pierre1923]

Re : Mise en forme conditionnelle un peu particulière

c'est bon en fait ! il y avait simplement un espace en trop dans le select case. merci beaucoup je peux enfin avancer !

 

[Guest]

Re : Mise en forme conditionnelle un peu particulière

Pierre,

Quand tu nous communiques une erreur, dis nous sur quelle ligne.

Vérifie l'exacte écriture de Range("$D$34,$D$39,$D$42,$D$47,$D$89,$D$96,$D$101,$D$113,$D$117")

Où tu as laissé un blanc entre $D $96. (Que j'ai recopié d'ailleur dans mon précédent post)

Ce message apparaît lorsqu'excel n'arrive pas à convertir une écriture en objet cellule ou plage de cellules (Range)

A+

 

[pierre1923]

Re : Mise en forme conditionnelle un peu particulière

Bonjour HASCO,

j'ai un problème assez important, mon fichier est désormais finalisé et qui utilise ta macro très utile. j'aimerais bloquer toutes les cases de ce fichier sauf les cases de réponses (oui,non) mais que ma macro s'éxécute quand même.

j'ai essayé cette macro mais ça ne fonctionne pas...
Sub MacroavecfeuilleProtect()

ActiveSheet.Unprotect "lemotdepasse"

ActiveSheet.Protect "lemotdepasse", True, True, True

End Sub

je vous joins mon fichier excel en exemple


Merci d'avance

 

[pierre1923]

Re : Mise en forme conditionnelle un peu particulière

c'est bon j'ai réussi à régler le problème avec

Activesheet.Unprotect "Toto"
Activesheet.Protect "Toto"

est ce la bonne solution ?

merci encore pour toute votre aide je vous suis vraiment reconnaissant

 

[Guest]

Re : Mise en forme conditionnelle un peu particulière

Bonsoir Pierre,

commence par défusionner toutes les cellules fusionnées de la feuille.
puis fait un CTRL+A pour sélectionner toutes les cellules de la feuille
Dans format/protection tu vérouilles toutes les cellules
Ensuite tu sélectionnes toutes les cellules que l'utilisateur pourra sélectionner et modifier
Format/selection et tu les dévérouilles.

Puis dans un module de macro:

Sub FeuilleUnProtect()
    Sheets("Modele").Unprotect "caramel"
End Sub
 
Sub feuilleProtect()
   With Sheets("Modele")
    'Il manquait un True
    .Protect "caramel", True, True, True, True
    .EnableSelection = xlUnlockedCells 'Autorise l'utilisateur à ne sélectionner que les cellules dévérouillées.
   End With
End Sub

Avant de protéger et distribuer ton formulaire, Cache toutes les colonnes à droite et les lignes en dessous.

A+

 

[pierre1923]

Re : Mise en forme conditionnelle un peu particulière

En fait tout fonctionne sauf la ligne 96 pour la valeur non... je vous joins le fichier avec le code "Toto"

 

[pierre1923]

Re : Mise en forme conditionnelle un peu particulière

Pardon je n'avais pas vu ta réponse entre temps ! j'essaye ça et je te dit !

 

[pierre1923]

Re : Mise en forme conditionnelle un peu particulière

excuse moi Hasco, je pense avoir fait tout comme il le fallait mais j'ai toujours la même erreur...

 

[Guest]

Re : Mise en forme conditionnelle un peu particulière

RE Pierre,

Je voulais que tu travailles un peu. Mais bon.

Dans le fichier joint, quand tu l'ouvrira tu ne pourras accéder qu'aux cellules que j'ai dévérouiller y compris celles cachées par les non*

Déprotège la feuille pour de nouveau accéder aux cellules.

A+

 

[pierre1923]

Re : Mise en forme conditionnelle un peu particulière

je suis désolé mais j'ai encore l'erreur

"erreur d'execution 1004
impossible de définir la propriété Hidden de la classe range"

je ne sais que faire

 

[pierre1923]

Re : Mise en forme conditionnelle un peu particulière

et si j'utilise le débogage il me surligne en jaune cette ligne :

.Hidden = Target.Value <> "Oui*"

 

[Guest]

Re : Mise en forme conditionnelle un peu particulière

Re,

Je viens de tester ton fichier et la feuille protégée ou non, tout fonctionne. Tout au moins chez moi. Quand je Sélectionne Oui ou Non en ligne 96 tout va comme prévu!!!!!😕😕😕 pour les autres choix également.

Dis moi dans quelle conditions tu provoques l'erreur sur ce fichier (HASCO.xlsm)
quelles manipulations tu fais.

A+

 

[pierre1923]

Re : Mise en forme conditionnelle un peu particulière

sur le fichier HASCO ou sur h_Pierre1923.xlsm tout fonctionne très bien quand le fichier n'est pas protégé mais quand je vais dans :

- révision --> protéger la feuille --> et que je tape mon code caramel

tout marche très bien pour les questions normales mais dès que je touche au questions conditionnelles j'ai le message d'erreur dont je te parle et il ne veux pas effectuer ma macro.