Activation/désaction commandbutton

[Souka]

Bonjour le forum,

Après avoir rechercher et testé plusieurs méthode sur le forum, en vain, je décide de poster.

Je souhaite créer un bouton qui ne serait accessible au click seulement si une case contient des caractères (texte ou chiffre).
Pour ce faire j'ai créer un CommandButton1, après avoir chercher sur le forum, j'ai trouvé cette commande:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("e7")) Is Nothing Then
CommandButton1.Enabled = True
End If
End Sub

Le problème avec cette solution est qu'il suffit de valider la case par "Enter" pour que le bouton devienne actif.

Ci-joint le fichier exemple.

 

[skoobi]

Re : Activation/désaction commandbutton

Bonjour,

test ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("e7")) Is Nothing Then
CommandButton1.Enabled = [B][COLOR=blue]IIf(Target.Value <> "", True, False)[/COLOR][/B]
End If
End Sub

 

[Souka]

Re : Activation/désaction commandbutton

Merci beaucoup Skoobi, ça fonctionne parfaitement.