Discussion :

[vivi4561]

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

[diude54]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Fvandermeulen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vivi4561]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[Minick]

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

[vivi4561]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Minick]

Suis je bete!!!

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

Utilise Visible mais il sera masqué.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vivi4561]

C'est parfait .
Merci beaucoup.

[Fvandermeulen]

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
A+