Activation selon criteres

[JpM79]

Bonjour le forum,

je viens vous soumettre un probleme pour lequel votre aide encore une fois m'est necessaire
ci-joint un fichier dans lequel tout est detaillé

Merci de votre aide.

 

[BERRACHED said]

Re : Activation selon criteres

Salut,Jpm79

Voici un début de solution a ton problème

Cordialement

 

[JpM79]

Re : Activation selon criteres

Salut,Jpm79

Voici un début de solution a ton problème

Cordialement

Bonjour et merci pour ta rapidité
j'avais commis une erreur dans mon fichier exemple, en fait selon le choix fait entre agent et instructeur les infos sont reparties dans deux feuilles, une pour les agents et l'autre pour les instructeurs !!

Les frame ne doivent s'activer que si le choix est valider par le bouton activation

Merci pour tout

 

[Dull]

Re : Activation selon criteres

Salut JpM79, Said, le Forum

Un essai en pièce jointe

Selon le type d'agent tu peux Ajouter, Supprimer et Modifier les renseignements sur les agents

Bonne Journée

 

[JpM79]

Re : Activation selon criteres

Salut JpM79, Said, le Forum

Un essai en pièce jointe

Selon le type d'agent tu peux Ajouter, Supprimer et Modifier les renseignements sur les agents

Bonne Journée

Super ton code marche tres bien merci . puis je demander comment je dois faire pour eviter les doublons quand j'ajoute soit un agent ou bien un instructeur ?

merci encore

 

[JpM79]

Re : Activation selon criteres

Salut JpM79, Said, le Forum

Un essai en pièce jointe

Selon le type d'agent tu peux Ajouter, Supprimer et Modifier les renseignements sur les agents

Bonne Journée

Re bonsoir,

Dans le code de L'optionbutton1 ("Selection Enregistrement" optionbutton "Agent") tu as mis le compteur suivant :

For i = 7 To 11
Controls("OptionButton" & i).Enabled = False
Controls("OptionButton" & i) = False
Next i
A quoi correspond il ?
Pourquoi 7 to 11 ? merci

 

[JpM79]

Re : Activation selon criteres

re bonsoir,

désolé du derangement, !! ca y est j'ai compris a quoi servait ce compteur; en fait il s'agit des frames de la UsF a l'exeption de celle du bouton activation

merci quand meme
Au plaisir

 

[Dull]

Re : Activation selon criteres

Salut jpM79, le Forum

Pour éviter les doublons ajoute ces lignes de codes dans le module le l'UserForm

Private Sub TextBox2_AfterUpdate()
Dim n As Long
If OptionButton1 = True Then
  For n = 3 To 65536
  If TextBox2.Value = Sheets("agent").Range("B" & n).Value Then
  MsgBox "Ce nom existe déjà dans la liste Simples Agents!", , "ATTENTION !"
    With TextBox2
        .Value = ""
        .SetFocus
    End With
  Exit Sub
End If
  Next n
End If
If OptionButton2 = True Then
  For n = 3 To 65536
  If TextBox2.Value = Sheets("instructeur").Range("B" & n).Value Then
  MsgBox "Ce nom existe déjà dans la liste Agents Instructeurs!", , "ATTENTION !"
    With TextBox2
        .Value = ""
        .SetFocus
    End With
  Exit Sub
End If
  Next n
End If
End Sub

et pour les OptionButtons

[COLOR=Black]
For i = 7 To 11
    Controls("OptionButton" & i).Enabled = False
    Controls("OptionButton" & i) = False
Next i[/COLOR]

Correspond à savoir :
si il y a un permis cela rend les OptionButtons de 7 à 11 accessibles
si pas de permis désactivation de ces OptionButtons

Bonne Journée

 

[JpM79]

Re : Activation selon criteres

Bonjour Dull ,

Merci pour les codes et l'explication !!! j'ai encore beaucoup de chemin à faire...

Cordialement.