Code VBA ne fonctionne pas

Le 05/11/2014 à 22:57

Bonsoir,

j'ai un petit problème avec le code VBA de ma feuille Excel je n'ai pas de changement de couleur des cellules de la feuille tous niveaux en cochant la case à cocher dans la feuille RESULTAT et je ne comprends pas pourquoi, si quelqu'un avec un regard neuf peut me donner la solution j'en serais ravi.

Merci par avance

23eval-pc-habilitation-electrique-v2-2014-version-excel-2007.xlsm (194.17 Ko)

Le 05/11/2014 à 23:07

Bonsoir Bibix, bonsoir le forum,

Demander de l'aide et bloquer l'accès au VBA par mot de passe c'est couillon non ?

Le 05/11/2014 à 23:10

oups le mot de passe est formation désolé

Le 06/11/2014 à 08:54

Bonjour Bibix, bonjour le forum,

Tu as simplement mis le code dans la procédure Caseàcocher10_Clic() mais comme tu as placé celle-ci dans le composant Feuil2(RESULTAT) ça me fonctionnait pas. J'ai tout mis dans la procédure SELECTION du module Module1, affecté cette procédure à la case à cocher, et la, ça marche...

Je te conseille d'utliser With... End With :

Sub SELECTION()
With Sheets("TOUS NIVEAUX")
    If Sheets("RESULTAT").Range("B10") = True Then
        .Range("A7").Interior.Color = RGB(255, 255, 0)
        .Range("A15").Interior.Color = RGB(255, 255, 0)
        .Range("A20").Interior.Color = RGB(255, 255, 0)
        .Range("A25").Interior.Color = RGB(255, 255, 0)
        .Range("A33").Interior.Color = RGB(255, 255, 0)
        .Range("A38").Interior.Color = RGB(255, 255, 0)
        .Range("A43").Interior.Color = RGB(255, 255, 0)
        .Range("A49").Interior.Color = RGB(255, 255, 0)
        .Range("A55").Interior.Color = RGB(255, 255, 0)
        .Range("A63").Interior.Color = RGB(255, 255, 0)
        .Range("A67").Interior.Color = RGB(255, 255, 0)
        .Range("A74").Interior.Color = RGB(255, 255, 0)
        .Range("A80").Interior.Color = RGB(255, 255, 0)
        .Range("A87").Interior.Color = RGB(255, 255, 0)
        .Range("A93").Interior.Color = RGB(255, 255, 0)
        .Range("A98").Interior.Color = RGB(255, 255, 0)
        .Range("A105").Interior.Color = RGB(255, 255, 0)
        MsgBox ("Réponse affichées")
    Else
        .Range("A7").Interior.Color = RGB(255, 255, 255)
        .Range("A7").Interior.Color = RGB(255, 255, 255)
        .Range("A15").Interior.Color = RGB(255, 255, 255)
        .Range("A20").Interior.Color = RGB(255, 255, 255)
        .Range("A25").Interior.Color = RGB(255, 255, 255)
        .Range("A33").Interior.Color = RGB(255, 255, 255)
        .Range("A38").Interior.Color = RGB(255, 255, 255)
        .Range("A43").Interior.Color = RGB(255, 255, 255)
        .Range("A49").Interior.Color = RGB(255, 255, 255)
        .Range("A55").Interior.Color = RGB(255, 255, 255)
        .Range("A63").Interior.Color = RGB(255, 255, 255)
        .Range("A67").Interior.Color = RGB(255, 255, 255)
        .Range("A74").Interior.Color = RGB(255, 255, 255)
        .Range("A80").Interior.Color = RGB(255, 255, 255)
        .Range("A87").Interior.Color = RGB(255, 255, 255)
        .Range("A93").Interior.Color = RGB(255, 255, 255)
        .Range("A98").Interior.Color = RGB(255, 255, 255)
        .Range("A105").Interior.Color = RGB(255, 255, 255)
        MsgBox ("Réponses cachées")
    End If
End With
End Sub

Le 06/11/2014 à 13:19

Merci beaucoup ça fonctionne a merveille.

Bonne journée

Cordialement

Le 06/11/2014 à 13:19

Merci beaucoup ça fonctionne a merveille.

Bonne journée

Cordialement