Activation selon criteres

  • Initiateur de la discussion Initiateur de la discussion JpM79
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 

Pièces jointes

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 🙂
 
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
 
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
 
Re : Activation selon criteres

Salut jpM79, le Forum

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

Code:
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
Code:
[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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
138
Retour