Droit d'accès à partir d'un Combobox

[Leskwal]

Bonsoir à tous,

Plutôt qu'un long discours, la question est dans le fichier joint.

D'avance un grand MERCI

Pascal

 

[Leskwal]

Re : Droit d'accès à partir d'un Combobox

Re à tous

J'ai appliqué vos propositions sur mon application.

Ça marche pas exactement comme je veux, les boutons ne s'activent pas comme je le souhaite.
A la différence de l'exemple où il n'y a que 3 boutons mon appli en à 5.

Ce que je ne comprends pas :

Set r = [Utilisateurs_Log].Find("*-*", After:=r, SearchDirection:=xlPrevious)

CommandButton1.Enabled = InStr(r, "TECHNICIENS") = 0
CommandButton2.Enabled = InStr(r, "ASSISTANTES") = 0

Pourrais-je avoir la traduction Francisée pour comprendre la logique ? 😀

Merci d'avance

Pascal

 

[Leskwal]

Re : Droit d'accès à partir d'un Combobox

Bonsoir

Bon je deviens dingue 😱

En fichier joint, un exemple avec 5 boutons... 😀

TRÈS TRÈS GRAND MERCI

Pascal

 

[job75]

Re : Droit d'accès à partir d'un Combobox

Bonsoir Leskwal,

Mettre la propriété Enabled des 5 boutons à True.

Puis cette macro dans l'USF Boutons_a_activer :

Private Sub UserForm_Initialize()
Set r = [Utilisateurs_Log].Find("*-*", After:=r, SearchDirection:=xlPrevious)
If InStr(r, "TECHNICIENS") Then
  CommandButton1.Enabled = False
  CommandButton4.Enabled = False
ElseIf InStr(r, "ASSISTANTES") Then
  CommandButton1.Enabled = False
  CommandButton3.Enabled = False
  CommandButton5.Enabled = False
End If
End Sub

A+

 

[Leskwal]

Re : Droit d'accès à partir d'un Combobox

Ok c'est très clair!!!!!.

Encore Merci

Je vais essayer ça.

Pascal

 

[Leskwal]

Re : Droit d'accès à partir d'un Combobox

Ça fonctionne

Encore Merci

A bientôt

Pascal