Forums XLPages

Excel & VBA Espace Débutants [résolu] Cacher case d'option (Contrôles de formulaire)

Cacher case d'option (Contrôles de formulaire)
#1
targa
Débutant XLPages

Inscription: 13/03/2012

Messages: 13

Système d'exploitation:
PC
Version Excel utilisée:
2003, 2007, 2010, 2013
Posté le : 15-03-2012 00h05
Bonsoir,
J'ai à nouveau un petit problème à soumettre, en m'aidant de différent site traitant d'Excel, j'ai trouvé plus ou moins ce que je cherchais, c'est-à-dire:




Je cherche une macro ou un code VBA, qui me permettrait de pouvoir cacher une case d'option (contrôles de formulaire) si la condition n'est pas respectée dans une cellule.
Je m'explique, peut-être un peu mieux.
Actuellement j'ai un bouton pour faire apparaître ou disparaître la "case d'option 1" (voir fichier joint). En fait, je souhaiterai que cette "case d'option 1", soit visible uniquement lorsque je sélectionne, dans ma liste déroulante, la Société "Argus", lorsque c'est une autre Société ou autre mot ou nom, que ma "case d'option 1", ne s'affiche pas.
Ainsi je souhaite activer certaine option uniquement lorsque certaine société sont sélectionnée.
Pouvez-vous m'aider à transformer ma macro actuelle, afin que je n'aie plus besoin du bouton, et que cela se fasse automatiquement.
Attention, ma feuille sera protégée ensuite contre la modification des cellules verrouillées, afin que des personnes ne puissent modifier par erreur les formules ou autres!!
Un grand merci d'avance à ceux qui pourront m'aider.
Salutations






Pièce jointe:
xls Cacher bouton.xls   [ Taille: 43.50 Ko - Téléchargements: 629 ]
Hors Ligne
 Rapport   Haut 

Re: Cacher case d'option (Contrôles de formulaire)
#2
JeanMarie
Accro XLPages

Inscription: 09/05/2007
De Courcelles-les-Montbéliard

Messages: 286

Système d'exploitation:
PC & Mac
Version Excel utilisée:
Mac 2004 - 2011, et PC 2003 - 2010
Posté le : 15-03-2012 07h16
Bonjour Targa, Didier, le Fourm

Pour résoudre ton problème, colle ce code dans la feuille "Feuil1"
Private Sub Worksheet_Change(ByVal Target As Range)
    'Code exécuter lors d'un changement dans la valeur d'une cellule quelconque de la feuille
    'La cellule H6 fait-elle partie de la ou des cellules modifiées
    'l'objet Target représente les cellules modifiées
    If Not Application.Intersect(Target, Range("H6")) Is Nothing Then
    'La cellule H6 est ou fait partie des cellules modifiées
    'Test de la valeur de la cellule H6,
    'ne pas utiliser l'objet Target, un message d'erreur est retourné si Target représente une plage de cellules
       If Range("H6") = "Argus" Then
          MacroVisibleOui
       Else
          MacroVisibleNon
       End If
    End If
End Sub
 
Et tu dois changer le code du module 1
Sub MacroVisibleOui()
        ActiveSheet.Shapes("Case d'option 1").Visible = True
End Sub
Sub MacroVisibleNon()
        ActiveSheet.Shapes("Case d'option 1").Visible = False
End Sub
 
Dans ton cas, tu ne peux pas utiliser une "toupie" Masquer/Afficher.

@+Jean-Marie 
Hors Ligne
 Rapport   Haut 

Re: Cacher case d'option (Contrôles de formulaire)
#3
targa
Débutant XLPages

Inscription: 13/03/2012

Messages: 13

Système d'exploitation:
PC
Version Excel utilisée:
2003, 2007, 2010, 2013
Posté le : 15-03-2012 10h42

Bonjour Jean-Marie,
Merci infiniment pour ton aide super rapide, c'est tout à fait ce que je souhaitais, et ça marche parfaitement.

Je vais pouvoir implanter cela maintenant dans mes canevas !
Encore un grand merci.

Je crois que je vais commencer à étudier le VBA, c'est qqch de hyper puissant et surtout très pratique.

Je mets à disposition ci-dessous, le fichier avec le code modifier, pour ceux à qui cela intéresse.

Salutations et excellente journée

Targa


Pièce jointe:
xls Cacher bouton_prb_resolu.xls   [ Taille: 48.50 Ko - Téléchargements: 975 ]
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes