Bonjour,
Je tente d'affecter une macro à un contrôle case à cocher en souhaitant deux fonctions :
Si la case à cocher qui est dans Formulaire de saisie, a une valeur vrai, alors :
- Dans la feuille Formulaire de saisie, afficher les ligne 59-60, si faux, masquer ces lignes (le début de mon code est ok)
et (c'est là que je coince)
- Dans la feuille Fiche Stratégie, afficher et masquer les lignes citées.
Je n'arrive pas à valider mon code. Il dois me manquer qqchse mais je ne sais pas quoi. Merci pour votre aide.
Linda
Je tente d'affecter une macro à un contrôle case à cocher en souhaitant deux fonctions :
Si la case à cocher qui est dans Formulaire de saisie, a une valeur vrai, alors :
- Dans la feuille Formulaire de saisie, afficher les ligne 59-60, si faux, masquer ces lignes (le début de mon code est ok)
et (c'est là que je coince)
- Dans la feuille Fiche Stratégie, afficher et masquer les lignes citées.
Je n'arrive pas à valider mon code. Il dois me manquer qqchse mais je ne sais pas quoi. Merci pour votre aide.
Linda
Code:
Sub Essai()
Worksheets("Formulaire de saisie").Unprotect
If Worksheets("Formulaire de saisie").Range("l58").Value = True Then
Rows("59:60").EntireRow.Hidden = False
Else
Rows("59:60").EntireRow.Hidden = True
End If
Worksheets("Formulaire de saisie").Unprotect
If Worksheets("Formulaire de saisie").Range("l58").Value = True Then
Worksheets("Fiche Stratégie").Rows("134:134").EntireRow.Hidden = False
Worksheets("Fiche Stratégie").Rows("138:138").EntireRow.Hidden = False
Worksheets("Fiche Stratégie").Rows("142:144").EntireRow.Hidden = False
Worksheets("Fiche Stratégie").Rows("147:151").EntireRow.Hidden = False
Else
Worksheets("Fiche Stratégie").Rows("134:134").EntireRow.Hidden = True
Worksheets("Fiche Stratégie").Rows("138:138").EntireRow.Hidden = True
Worksheets("Fiche Stratégie").Rows("142:144").EntireRow.Hidden = True
Worksheets("Fiche Stratégie").Rows("147:151").EntireRow.Hidden = True
Worksheets("Fiche Stratégie").Protect
End If
Worksheets("Formulaire de saisie").Protect
End Sub