Chercher le numéro de la ligne correspondant au textbox
Résolu
July74
Messages postés
47
Date d'inscription
Statut
Membre
Dernière intervention
-
July74 Messages postés 47 Date d'inscription Statut Membre Dernière intervention -
July74 Messages postés 47 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai vraiment besoin de votre aide.
déjà formuler le titre n'était pas évident.
J'ai une base de données de participants (Feuil2)
Avec un No dossier (Colonne A)
Le Nom (Colonne B)
Le Prénom (Colonne C)
Sur la Feuil1 j'ai mis un Bouton "Cliquer ici"
Celui-ci ouvre un UserForm (UserForm1):
Dans TextBox1 on inscrit le no dossier du participant
Puis en Cliquant sur Rechercher les infos
Avec méthode Find
si no dossier n'a aucune correspondance dans la Colonne A de la Feuil2;
MsgBox "Aucune Correspondance...."
Else;
UserForm2.Show
Nom :
Me.TextBox2 = Sheets("Feuil2").Range("B" & ?)
Prénom :
Me.TextBox3 = Sheets("Feuil2").Range("C" & ?)
??? C'est ici que ça se complique je veux rappeler les infos inscrite dans Feuil2 du no dossier inscrit
Pas facile à expliquer,
j'espère que je suis claire!
Voici le fichier (pour le test No Dossier = 1234)
http://www.cjoint.com/c/FCFeKbcLqQl
Merci d'avance de votre attention,
Et si vous pouvez m'aider, j'apprécierais énormément.
Mes cheveux aussi, car je suis sur le point de me les arracher !!!
J'ai vraiment besoin de votre aide.
déjà formuler le titre n'était pas évident.
J'ai une base de données de participants (Feuil2)
Avec un No dossier (Colonne A)
Le Nom (Colonne B)
Le Prénom (Colonne C)
Sur la Feuil1 j'ai mis un Bouton "Cliquer ici"
Celui-ci ouvre un UserForm (UserForm1):
Dans TextBox1 on inscrit le no dossier du participant
Puis en Cliquant sur Rechercher les infos
Avec méthode Find
si no dossier n'a aucune correspondance dans la Colonne A de la Feuil2;
MsgBox "Aucune Correspondance...."
Else;
UserForm2.Show
Nom :
Me.TextBox2 = Sheets("Feuil2").Range("B" & ?)
Prénom :
Me.TextBox3 = Sheets("Feuil2").Range("C" & ?)
??? C'est ici que ça se complique je veux rappeler les infos inscrite dans Feuil2 du no dossier inscrit
Pas facile à expliquer,
j'espère que je suis claire!
Voici le fichier (pour le test No Dossier = 1234)
http://www.cjoint.com/c/FCFeKbcLqQl
Merci d'avance de votre attention,
Et si vous pouvez m'aider, j'apprécierais énormément.
Mes cheveux aussi, car je suis sur le point de me les arracher !!!
A voir également:
- Chercher le numéro de la ligne correspondant au textbox
- Partage de photos en ligne - Guide
- Numero prive - Guide
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Aller à la ligne excel - Guide
- Correspondant occupé iphone - Forum SFR
4 réponses
Bonjour
modifs apportés:
dans module1
dans l'userform1
Pas de modifs dans Usf2 :o)
le classeur
http://www.cjoint.com/c/FCFgR5TaATt
Michel
modifs apportés:
dans module1
Public Lig As Integer
Sub Inscription()
UserForm1.Show
End Sub
dans l'userform1
Private Sub CommandButton1_Click()
'déclaration des variables :
Dim Valeur_Cherchee As String, Rep As Byte
'on cherche le No Dossier
Valeur_Cherchee = TextBox1.Value
'traitement de l'erreur possible : Si on ne trouve rien :
On Error GoTo faux
'méthode find, ici on cherche la ligne de valeur exacte (LookAt:=xlWhole)
With Sheets(2)
Lig = .Columns("A").Find(What:=Valeur_Cherchee, after:=.Range("A1"), LookAt:=xlWhole).Row
End With
Unload UserForm1
UserForm2.Show
Exit Sub
'gestionnaire erreur
faux:
Rep = MsgBox(Valeur_cherchée & " n'existe pas dans les numéros de dossier !, recommencer ?", vbYesNo)
Unload UserForm1
If Rep = vbYes Then UserForm1.Show
End Sub
Pas de modifs dans Usf2 :o)
le classeur
http://www.cjoint.com/c/FCFgR5TaATt
Michel
Un gros gros merci,
Tu peux pas savoir l'énorme poids que tu viens de m'enlever.
Si tu veux encore discuté, j'aimerais savoir si j'ai bien compris le principe?
La méthode Find par défaut nous donne la valeur cherchée mais en ajoutant .Row
c'est ça qui nous donne le no ligne?
En plus ton ajout au niveau du 'gestionnaire erreur
me plaît énormément c'est super
Encore merci et encore désolé pour le malentendu
Tu peux pas savoir l'énorme poids que tu viens de m'enlever.
Si tu veux encore discuté, j'aimerais savoir si j'ai bien compris le principe?
La méthode Find par défaut nous donne la valeur cherchée mais en ajoutant .Row
c'est ça qui nous donne le no ligne?
En plus ton ajout au niveau du 'gestionnaire erreur
me plaît énormément c'est super
Encore merci et encore désolé pour le malentendu