Bouton VBA verrouillé puis déverouillé sous condition

Bonjour,
J'aimerai avoir un peu d'aide pour que dans mon classeur excel, il y ait un bouton qui est par défaut verrouillé.
Lorsqu'une case contient un certain caractère (ex: A1 <> ""), alors le bouton se dévérouille pour qu'on puisse l'utiliser.

Merci d'avance


Cdlt

Pourquoi tu ne mettrais pas une condition au début de la macro appelée par le bouton genre

Code:

---

1 2 3 4 5 6

Sub If range("A1")<>"" then Ta macro End if End sub

---

Comme ça si ta condition n'est pas rempli on a beau appuyer sur le bouton rien ne se passe.

Bonjour,
Voici un petit code à mettre sur le module de feuille pour vérifier la cellule modifiée et donc appliquer le 'Locked'

A+

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Address <> "$A$1" Then Exit Sub 'vérifie si la cellule modifiée est A1 si non, on sort If Not IsEmpty(Target.Value) Then 'Vérifie si la valeur de A1 <> de vide ActiveSheet.Shapes("Button 1").Locked = False 'Si non vide alors bouton non bloqué Else: ActiveSheet.Shapes("Button 1").Locked = True 'Si vide alors bouton bloqué End If   End Sub

---

J'ai essayé ta technique Fvandermeulen mais je n'y arrive pas.:(

Je voudrais mettre ces lignes de calcul au milieu d'un programme.

Enfait rien que la ligne :

Code:

---

ActiveSheet.Shapes("Button 1").Locked = False

---

ne marche pas.:?
S'agit t'il des bons boutons ? (J'utilise les boutons que l'on peut créer avec la barre d'outils "Formulaire")

Salut,

"Button 1" n'est peut etre pas le nom de ton bouton tout simplement.

Quand tu fais un clique droit dessus (comme pour le modifier) tu as
son nom dans la zone a cote de la barre de formule.
Si tu ne vois pas, lance l'enregistreur de macro et fais une modif dessus
(le texte, la taille;peut importe) et l'enregistreur te donnera son nom.

++
Minick

Le nom est bien le même.
Je ne comprends vraiment pas car même une simple ligne ne marche pas.

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() If Range("A1").Value = 1 Then ActiveSheet.Shapes("Bouton 1").Locked = False   Else ActiveSheet.Shapes("Bouton 1").Locked = True End If   End Sub

---

Ici qu'il y ait un 1 ou pas dans A1 le bouton "Bouton 1" n'est jamais bloqué.
Quelqu'un peut-il m'aider à trouver ce problème ?
Ou bien créer un fichier excel bidon avec juste un bouton et le code, et le mettre en ligne pour que je vois ses lignes de vba.

Merci

Cdlt

:mrgreen:
Suis je bete!!!

Locked sert a verrouiller l'objet pas a le desactiver...

Utilise Visible mais il sera masqué.

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() If Range("A1").Value = 1 Then ActiveSheet.Shapes("Bouton 1").Visible = False   Else ActiveSheet.Shapes("Bouton 1").Visible = True End If   End Sub

---

++
Minick

C'est parfait :ccool:.
Merci beaucoup.

Bonjour,
Juste pour une petite précision, le Locked ne fonctionne que si la feuille est protégé (sauf erreur de ma part), donc c'est vrai que le .visible est plus efficace.
C'est d'autant plus idiot de ma part que j'utilise toujours .visible :aie:
A+