Bonjour, SVP je veux le programme macros pour activer/désactiver un bouton et merci ! Configuration: Windows / Chrome 59.0.3071.115

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

Bonjour,

SVP je veux le programme macros pour activer/désactiver un bouton et merci !

A voir également:

Programme macros excel pour activer/désactiver un bouton
Liste déroulante excel - Guide
Comment activer windows 10 - Guide
Formule excel pour additionner plusieurs cellules - Guide
Cle pour activer windows 10 gratuitement - Guide
Si et excel - Guide

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10905 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 décembre 2024 2 429
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

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 à 15:29

voila le code je c'est pas comment faire les conditon pour relié c'est programe.

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

Réponse 2 / 2

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

Le programme n'exécute pas

Discussions similaires

Message "Un bloqueur de publicité empêche la lecture..."