Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel modification VBA d'une propriété d'un CommandButton

modification VBA d'une propriété d'un CommandButton

3 réponses
Avatar
michel
Bonjour....

en fonction de la valeur d'une cellule (située en J10) qui peut prendre
2 occurrences (A ou J) je souhaite rendre actif ou inactif un CommandButton.

Je suis parti d'un exemple qui ressemblerait à cela :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "J" Then
ActiveSheet.Shapes("CommandButton2").Enabled = False
End If
End Sub

Mais bien sur ca ne marche pas (prb de méthode ou de propriété gérée par
l'Objet)...


Qqun aurait-il un conseil ?
Merci par avance...

Michel
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
| ActiveSheet.Shapes("CommandButton2").Enabled = False

tu remplaces par :

Me.CommandButton2.Enabled = False





"michel" a écrit dans le message de news:
%
Bonjour....

en fonction de la valeur d'une cellule (située en J10) qui peut prendre
2 occurrences (A ou J) je souhaite rendre actif ou inactif un CommandButton.

Je suis parti d'un exemple qui ressemblerait à cela :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "J" Then
ActiveSheet.Shapes("CommandButton2").Enabled = False
End If
End Sub

Mais bien sur ca ne marche pas (prb de méthode ou de propriété gérée par
l'Objet)...


Qqun aurait-il un conseil ?
Merci par avance...

Michel
Avatar
michdenis
J'oubliais :

| If Target = "J" Then

afin d'éviter que la casse soit prise en considérantion

If Ucase(Target) = "J" then



"michel" a écrit dans le message de news:
%
Bonjour....

en fonction de la valeur d'une cellule (située en J10) qui peut prendre
2 occurrences (A ou J) je souhaite rendre actif ou inactif un CommandButton.

Je suis parti d'un exemple qui ressemblerait à cela :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "J" Then
ActiveSheet.Shapes("CommandButton2").Enabled = False
End If
End Sub

Mais bien sur ca ne marche pas (prb de méthode ou de propriété gérée par
l'Objet)...


Qqun aurait-il un conseil ?
Merci par avance...

Michel
Avatar
michel
C'est exactement la réponse que je cherchais. Elle m'a permis en outre
d'aller plus loin...

Merci beaucoup à toi

M

michdenis a écrit :
J'oubliais :

| If Target = "J" Then

afin d'éviter que la casse soit prise en considérantion

If Ucase(Target) = "J" then



"michel" a écrit dans le message de news:
%
Bonjour....

en fonction de la valeur d'une cellule (située en J10) qui peut prendre
2 occurrences (A ou J) je souhaite rendre actif ou inactif un CommandButton.

Je suis parti d'un exemple qui ressemblerait à cela :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "J" Then
ActiveSheet.Shapes("CommandButton2").Enabled = False
End If
End Sub

Mais bien sur ca ne marche pas (prb de méthode ou de propriété gérée par
l'Objet)...


Qqun aurait-il un conseil ?
Merci par avance...

Michel