Mise en forme conditionnelle un peu particulière

G

Guest

Guest

• 8 Février 2011

• #2

Re : Mise en forme conditionnelle un peu particulière

Bonjour Pierre,

ton fichier modifié, avec macro

Click-droit sur le nom de l'onglet -> 'visualiser le code'

A+

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 8 Février 2011

• #3

Re : Mise en forme conditionnelle un peu particulière

bonjour,

tu mets la couleur de la police de b4 en blanc sur fond blanc
si la réponse en C3 est oui, la MFC passe la couleur de police en noir

Salut Hasco

 

Vote positif 0 Vote négatif

P

pierre1923

XLDnaute Nouveau

• 8 Février 2011

• #4

Re : Mise en forme conditionnelle un peu particulière

Merci Hasco et Mutzik

Hasco ce que tu me proposes est exactement ce que je veux mais si j'essaye de le transférer sur un autre fichier ça ne fonctionne pas...
j'ai pourtant recopié le code en changeant les données mais ça ne fonctionne pas... j'ai collé ça (en rouge ce que j'ai changé)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$33" Then Range("34:35").EntireRow.Hidden = Target.Value <> "Oui"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 8 Février 2011

• #5

Re : Mise en forme conditionnelle un peu particulière

Re Pierre,

C'est la raison pour laquelle nous demandons souvent que les fichiers joints ressemblent au maximum au fichier original dans leur structures.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$33" Then Range("34:35").EntireRow.Hidden = Target.Value <> "Oui"
End Sub

Donc tu veux qui si D33 est différent de "Oui", les lignes 34 et 35 de la même feuille(celle qui contient la macro) soient cachées.

As-tu changé au moins une fois la valeur de D33 pour que l'évènement WorkSheet_Change se lance?

Sinon vérifie que la gestion d'évènement est bien autorisée:
Dans l'éditeur de macro faire CTRL+G
Dans la fenêtre qui s'ouvre taper '?Application.EnableEvents' avec le point d'interrogation et sans les '
Valider
Si la réponse est 'false"
Taper en dessous 'Application.EnableEvents = true ' sans point d'interrogation ni ' et valider.
Essayer de nouveau de changer la cellule D33

Si cela ne fonctionne toujours pas joindre ici un fichier exemple ressemblant.
A+


Si tel est le cas, tout semble bon.

 

Vote positif 0 Vote négatif

P

pierre1923

XLDnaute Nouveau

• 8 Février 2011

• #6

Re : Mise en forme conditionnelle un peu particulière

pour plus de facilité je vous joins mon fichier type qui ne bougera pas avec en rouge toutes les questions conditionnelles et en dessous les critères d'apparition ou non.

je ne sais comment vous remercier

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 8 Février 2011

• #7

Re : Mise en forme conditionnelle un peu particulière

Re,

Voici ton fichier modifié et la macro commenté afin que tu puisses l'adapter.

A+

 

Vote positif 0 Vote négatif

P

pierre1923

XLDnaute Nouveau

• 8 Février 2011

• #8

Re : Mise en forme conditionnelle un peu particulière

Merci en fait c'est parfait j'ai résolu tous mes problèmes !

Encore Bravo

Pierre

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 8 Février 2011

• #9

Re : Mise en forme conditionnelle un peu particulière

Bonjour,
Un essai par formule

 

Pièces jointes

• MefcPierre1923.xlsx

  8.7 KB · Affichages: 75

Vote positif 0 Vote négatif

P

pierre1923

XLDnaute Nouveau

• 8 Février 2011

• #10

Re : Mise en forme conditionnelle un peu particulière

Merci pour toutes ces réponses mais je vais garder celle d'HASCO qui me convient presque parfaitement.

je vais cependant pousser le vice encore un peu :

il faudrait que le processus soit le même mais que si jamais je réponde d'abord oui à la question conditionnelle puis que je mette des réponses aux questions du dessous, ces réponses soient effacées si jamais je décidais de mettre non à la question conditionnelle.

je poste un fichier de travail avec un exemple

Merci d'avance

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 8 Février 2011

• #11

Re : Mise en forme conditionnelle un peu particulière

Re,

A partir du fichier exemple:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    With Range("2:4").EntireRow
        .Hidden = Target.Value <> "Oui"
        If .Hidden Then .Columns(2).ClearContents
    End With
End If
End Sub

A toi d'adapter, tu en sais suffisament maintenant.

A+

 

Vote positif 0 Vote négatif

P

pierre1923

XLDnaute Nouveau

• 8 Février 2011

• #12

Re : Mise en forme conditionnelle un peu particulière

Désolé HASCO je ne suis vraiment pas doué... je n'arrive pas a appliquer ton code qui traduit parfaitement mon besoin à mon fichier.
je n'arrive pas a greffer le "If .Hidden Then .Columns(2).ClearContents" à ma structure...

voici ma page de code avec chaque ligne qui correspond au questions conditionnelles et sous question.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$34" Then Range("35:37").EntireRow.Hidden = Target.Value <> "Oui*"
If Target.Address = "$D$39" Then Range("40:41").EntireRow.Hidden = Target.Value <> "Oui*"
If Target.Address = "$D$42" Then Range("43:46").EntireRow.Hidden = Target.Value <> "Oui*"
If Target.Address = "$D$47" Then Range("48:50").EntireRow.Hidden = Target.Value <> "Oui*"
If Target.Address = "$D$89" Then Range("90:91").EntireRow.Hidden = Target.Value <> "Oui*"
If Target.Address = "$D$96" Then Range("97:99").EntireRow.Hidden = Target.Value <> "Oui*"
If Target.Address = "$D$96" Then Range("100:100").EntireRow.Hidden = Target.Value <> "Non*"
If Target.Address = "$D$101" Then Range("102:112").EntireRow.Hidden = Target.Value <> "Oui*"
If Target.Address = "$D$113" Then Range("114:116").EntireRow.Hidden = Target.Value <> "Oui*"
If Target.Address = "$D$117" Then Range("118:119").EntireRow.Hidden = Target.Value <> "Oui*"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub


je ne sais comment te remercier

Pierre

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 8 Février 2011

• #13

Re : Mise en forme conditionnelle un peu particulière

Re,

Déjà je t'ai montré dans un exemple précédent comment utiliser Select case dans ce genre de test.

Ensuite je ne vois aucune tentative dans le code que tu me donnes, d'adapter ce que j'ai fait aujourd'hui pour toi.

C'est lassant.

A+

 

Vote positif 0 Vote négatif

P

pierre1923

XLDnaute Nouveau

• 8 Février 2011

• #14

Re : Mise en forme conditionnelle un peu particulière

Pardon, je travail sous pression et je te promet que je fais des tentatives. pour le fait d'utiliser select j'avais avant de voir ta réponse trouvé ma méthode alternative qui fonctionnait donc je ne voulais pas prendre le risque de tout planter et la je travail sur la deuxième partie et en fait je pense tenir le bon bout.
j'ai surement cédé à la facilité mais j'ai passé ma journée sur fichier et pour un novice comme moi ça m'a cuit le cerveau.

merci encore pour ton aide

 

Vote positif 0 Vote négatif

P

pierre1923

XLDnaute Nouveau

• 9 Février 2011

• #15

Re : Mise en forme conditionnelle un peu particulière

Bonjour,

J'ai un dernier problème... j'ai réussi à adapter le code d'Hasco avec "select case" puis "ClearContents" cependant je n'arrive pas à faire une légère modification que j'avais réussi à traduire avec mon ancien code. Pour l'instant pour toutes mes questions conditionnelles si je choisis "oui*" alors les questions subsidiaires apparaissent sinon elle disparaissent et se vident. il y a cependant une petite variante : pour la question conditionnelle 96 il y a deux cas différents :

- si je choisis "oui*" alors j'ai les lignes 97 à 99 qui apparaissent
- si je choisis "non*" alors j'ai uniquement la ligne 100 qui apparait

dans mon ancien code j'avais traduit ça par :
If Target.Address = "$D$96" Then Range("97:99").EntireRow.Hidden = Target.Value <> "Oui*"
If Target.Address = "$D$96" Then Range("100").EntireRow.Hidden = Target.Value <> "Non*"


mais je n'arrive pas à l'intégrer a select case

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, 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
End If
End Sub

Merci d'avance


Pierre

 

Vote positif 0 Vote négatif