Programme macros excel pour activer/désactiver un bouton
Fermé
Haitam_mhamdi
Messages postés
11
Date d'inscription
mardi 4 juillet 2017
Statut
Membre
Dernière intervention
7 juillet 2017
-
4 juil. 2017 à 17:20
Haitam_mhamdi Messages postés 11 Date d'inscription mardi 4 juillet 2017 Statut Membre Dernière intervention 7 juillet 2017 - 5 juil. 2017 à 15:29
Haitam_mhamdi Messages postés 11 Date d'inscription mardi 4 juillet 2017 Statut Membre Dernière intervention 7 juillet 2017 - 5 juil. 2017 à 15:29
A voir également:
- Programme macros excel pour activer/désactiver un bouton
- Liste déroulante excel - Guide
- Formule excel - Guide
- Desactiver instagram - Guide
- Comment activer windows 10 - Guide
- Activer le pavé tactile - Guide
2 réponses
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
Modifié le 4 juil. 2017 à 18:57
Modifié le 4 juil. 2017 à 18:57
Bonjour
Tes boutons doivent être pris dans les contrôles ActiveX (boite à outils contrôles et non formulaires)
Ici un clic sur le bouton 1 change le statut (actif/Inactif) du bouton 2
http://www.cjoint.com/c/GGeq40AsiXB
Cdlmnt
Tes boutons doivent être pris dans les contrôles ActiveX (boite à outils contrôles et non formulaires)
Ici un clic sur le bouton 1 change le statut (actif/Inactif) du bouton 2
Private Sub CommandButton1_Click()
CommandButton2.Enabled = Not CommandButton2.Enabled
End Sub
http://www.cjoint.com/c/GGeq40AsiXB
Cdlmnt
Haitam_mhamdi
Messages postés
11
Date d'inscription
mardi 4 juillet 2017
Statut
Membre
Dernière intervention
7 juillet 2017
5 juil. 2017 à 11:33
5 juil. 2017 à 11:33
Le programme n'exécute pas
5 juil. 2017 à 15:29
Sub Macro11() >>>>>>verrouiller >>>>>>>>>>>>>>>>>>>>>>>>>>>>> ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _ :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _ AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _ AllowUsingPivotTables:=True, Password:=2344 >>>>>>>Deverrouiller >>>>>>>>>>>>>>>>>>>>>>>>>>>> ActiveSheet.Unprotect >>>>>>> pour que les cellule reste actif >>>>>>>>>>>>>>>> Range("K:K,L:L,M:M,N:N,O:O").Select Range("O1").Activate Selection.Locked = False Selection.FormulaHidden = False End Sub