Microsoft 365 activation s'un bouton

[MOmichel]

bonjour a vous tous , débutant je cherche à écrire un code suivant les conditions ci-dessous
je dois désactiver un bouton dans une Userform que lorsque ma cellule active a ce texte "référence" et seulement celui là
quel code me conseillez-vous
et
je dois désactiver un autre bouton dans une Userform que lorsque ma cellule active est vide
quel code me conseillez-vous

 

[Staple1600]

Bonsoir le fil,

Un petit exemple
(Si j'ai bien compris)
Code à mettre dans un Userform (avec deux CommandButton)

Private Sub UserForm_Initialize()
CommandButton1.Enabled = Not [A1] = "référence"
CommandButton2.Enabled = Not Len([A2]) = 0
End Sub

 

[MOmichel]

puis-je la retranscrire comme cela ?
Commandrecedent.Enabled = Not ActiveCell = "reference"

 

[Staple1600]

Bonjour le fil, MOmichel

NB: MOmichel: tu ne dis Bonjour que les jours ouvrés ? 😉

Sinon mon 1er exemple complété

Private Sub UserForm_Initialize()
CommandButton1.Enabled = Not ActiveCell = "référence"
CommandButton2.Enabled = Not Len(ActiveCell) = 0
End Sub
Private Sub CommandButton1_Click()
MsgBox "la cellule " & ActiveCell.Address & " est vide", vbExclamation
End Sub

Private Sub CommandButton2_Click()
MsgBox "la cellule " & ActiveCell.Address & " contient référence", vbExclamation
End Sub

Pour tester
1) En A1, saisir : référence
Puis afficher l'Userform
et cliquer sur le seul bouton actif
2) Fermer l'userform
et sélectionner une cellule vide et réafficher l'userform
et cliquer alors sur l'autre bouton actif

PS: Ces bouts de code ne sont qu'illustratifs.