Code VBA : Un code Select Case ... ne démarre pas

Question

J’ai un souci avec le fichier ci-joint. Selon la valeur de la cellule R1 de la feuille « Impression », la ligne de code Select Case Range("R1") fonctionne parfaitement. J’ai tenté d’effectuer un second Select Case Range sur la cellule ("R4"), mais celui-ci ne fonctionne pas. Pour Select Case Range("R1"), la valeur est modifiée par l’intermédiaire d’une autre feuille, donc il y a obligatoirement l’activation de la feuille « Impression » entre-deux. Pour la cellule R4, la valeur est modifiée par l’intermédiaire de l’UserForm ; je présume donc que le problème vient de là, c'est comme si la feuille "Impression" n'était pas activée à ce moment-là. Je me suis alors demandé s’il fallait tout d’abord sélectionner une feuille quelconque – par le code Private Sub CommandButton2_Click - avant de revenir sur la feuille « Impression », afin de l’activer – mais rien n’y fait ; les lignes 45:47 et/ou 63:65 qui devraient s'ouvrir ou se fermer selon les cas ne bougent pas (par contre ces lignes s'ouvrent ou se ferment correctement si l'on sélectionne manuellement à une feuille quelconque avant de revenir à la feuille "Impression"). Pouvez-vous m’aider à résoudre ce problème ...

BOB71AU · Answer

Pour vérifier si le déclenchement de la macro est effective, place en début de macro worksheet change le mot stop chez moi elle passe mais le code de masquage n'est pas le bon exemple remplace Rows("31:32").Hidden = True par Rows("31:32").EntireRow.Hidden = True...

Dan · Answer

C'est ta structure de code qui n'est pas bonne. Je parle des ":" Essaie comme ceci Select Case Range("R4") Case Is = 1 Rows("45:47").EntireRow.Hidden = False Rows("63:65").EntireRow.Hidden = True Case Is = 2 Rows("45:47").EntireRow.Hidden = True Rows("63:65").EntireRow.Hidden = False End Select ou comme ceci : Select Case Range("R4") Case Is = 1: Rows("45:47").EntireRow.Hidden = False: Rows("63:65").EntireRow.Hidden = True Case Is = 2: Rows("45:47").EntireRow.Hidden = True: Rows("63:65").EntireRow.Hidden = False End Select Amicalement...

Dan · Answer

Re,

Ok déso.

Essaie en modifiant cette macro dans ton USF

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Sheets("Rachat Express").Select
With Sheets("Impression")
    .Unprotect "738305"
    .Range("F9") = ComboBoxTitre
    .Range("R3") = ComboBox1
    .Range("F10") = TextBox7.Value
    .Range("F11") = TextBox6.Value
    .Range("F12") = TextBox3.Value
    .Range("F13") = TextBox2.Value
    If OptionButton1.Value = True Then
        .Range("R4") = 1
    Else
        .Range("R4") = 2
    End If
    .Select
    .Protect "738305"
End With
Unload Me
End Sub

Maintenant je pense que le code qui cache ou monre les lignes aurait mieux sa place dans un module. Il pourrait être appelé en mettant une instruction CALL à la place du SELECT de la feuille Impression en fin de code.

Dis moi

Dan · Answer

Re,

Je trouve que les macros qui fonctionnent sur l'activation d'une feuille sont à utiliser avec prudence. C'est toujours sensible ce truc là. Un simple appel par Activate ou Select, déclenche le code. C'était un peu cela le souci que tu as eu.

Donc plutôt que de mettre ton code dans la feuille Impression, je l'aurais remplacé par un code placé dans un module.

Exemple :

Sub miseenforme()
ici--> les instructions qui se trouvent dans ta feuille Impression (saut Private.... bien sûr)
End Sub

Ensuite dans ton USF, code Private Sub CommandButton2_Click():

tu remplaces le ".SELECT" qui se trouve juste avant --> .Protect "738305" par ceci : --> CALL miseenforme
tu supprimes Sheets("Rachat Express").Select

Dans ta Sub miseenforme, tu prévois bien de sélectionner la feuille Impression donc ajout d'une instruction SELECT.

Amicalement

Dan · Answer

Re, Effectivement si tu veux conserver cette fonctionnalité, alors le mieux est de conserver la macro dans ta feuille Impression. Une variante que tu peux aussi faire, c'est mettre le CALL misenforme dans la feuille Impression et mettre les instructions de la feuille Impression dans un module. De cette manière tu ne conserves qu'un minimum de code dans ta feuille et le reste se trouve dans un module. Là tu conserves toutes les fonctionnalités que tu souhaites. Bien amicalement...