Bonjour,
j'ai créé un userform avec trois boutons.
j'aurais voulu que, quand une cellule à droite de la cellule active à une valeur plus petite que 8
alors le boutons entrées devient Enabled.
j'ai crée cette macro, mais elle ne fonctionne pas.
merci de votre aide.
Olivier
Private Sub Choix_Initialize()
If Sheets("Stockage")(ActiveCell.Offset(1, 0), ActiveCell.Offset(0, 9)) < 8 Then
Shapes("Entrées").OLEFormat.Object.Enabled = False
Else
Shapes("Entrées").OLEFormat.Object.Enabled = True
End If
End Sub
j'ai créé un userform avec trois boutons.
j'aurais voulu que, quand une cellule à droite de la cellule active à une valeur plus petite que 8
alors le boutons entrées devient Enabled.
j'ai crée cette macro, mais elle ne fonctionne pas.
merci de votre aide.
Olivier
Private Sub Choix_Initialize()
If Sheets("Stockage")(ActiveCell.Offset(1, 0), ActiveCell.Offset(0, 9)) < 8 Then
Shapes("Entrées").OLEFormat.Object.Enabled = False
Else
Shapes("Entrées").OLEFormat.Object.Enabled = True
End If
End Sub
Dernière édition: