VBA // Erreur '91'
Ela1005
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
Ela1005 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Ela1005 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Après navigation sur le forum je n'ai pas réussi à trouver la solution à mon problème ..
J'essaie de créer un code qui m'affiche un userform pour consulter le dossier d'un agent si la valeur rentrée dans ma textbox existe dans mon tableau et sinon si la valeur de ma textbox n'existe pas dans mon tableau je voudrais que le code m'affiche un autre userform pour créer le dossier de l'agent.
Cependant l'erreur '91' arrive pour la ligne en gras ... Mais je ne comprends pas pourquoi, surtout que cela marchait correctement auparavant ..
Voici mon code :
Private Sub cmd_valider_Click()
Worksheets("Restrictions").Select
If Cells.Find(what:=txt_matricule.Text) Then
Msg_consultation.Show
ElseIf txt_matricule.Text <> Cells(65535, 1).Value Then
Msg_création.Show
End If
txt_matricule.Text = ""
matricule_agent.Hide
End Sub
Merci pour votre aide :)
Après navigation sur le forum je n'ai pas réussi à trouver la solution à mon problème ..
J'essaie de créer un code qui m'affiche un userform pour consulter le dossier d'un agent si la valeur rentrée dans ma textbox existe dans mon tableau et sinon si la valeur de ma textbox n'existe pas dans mon tableau je voudrais que le code m'affiche un autre userform pour créer le dossier de l'agent.
Cependant l'erreur '91' arrive pour la ligne en gras ... Mais je ne comprends pas pourquoi, surtout que cela marchait correctement auparavant ..
Voici mon code :
Private Sub cmd_valider_Click()
Worksheets("Restrictions").Select
If Cells.Find(what:=txt_matricule.Text) Then
Msg_consultation.Show
ElseIf txt_matricule.Text <> Cells(65535, 1).Value Then
Msg_création.Show
End If
txt_matricule.Text = ""
matricule_agent.Hide
End Sub
Merci pour votre aide :)
A voir également:
- VBA // Erreur '91'
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- J'aime par erreur facebook notification - Forum Facebook
2 réponses
Bonjour,
Essaie comme cela
A+
Essaie comme cela
Private Sub cmd_valider_Click()
Dim C As Range
With Worksheets("Restrictions")
Set C = .Cells.Find(txt_matricule.Text, , xlValues, xlWhole)
If Not C Is Nothing Then
If C <> "" Then Msg_consultation.Show
Else
Msg_création.Show
End If
txt_matricule.Text = ""
matricule_agent.Hide
End With
End Sub
A+
