Bonjour …
Cadre pour la demande :
Pour exemple : Alt F1 (dans la fenêtre des codes de l’onglet de la barre),
Nota: les contrôles de type ActiveX présentent des propriétés oubliées par l’autre type donc si on a le choix ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub Worksheet_Change(ByVal Target As Range) Me.Ba.Visible = Range("D29") = 1 Me.Ba.Min = 19: Me.Ba.Max = 41 'pour aller de 20 à 40 en boucle End Sub Private Sub Ba_Change() If Ba = 19 Then Ba = Ba.Max - 1 If Ba = 41 Then Ba = Ba.Min + 1 Cells(Ba, 1).Interior.Color = IIf(Cells(Ba, 1).Interior.Color = vbRed, vbWhite, vbRed) 'ou autre End Sub
Partager