PB Recherche Combo label
Résolu
cs_Gabriel
Messages postés
9
Date d'inscription
samedi 30 novembre 2002
Statut
Membre
Dernière intervention
18 février 2006
-
18 févr. 2006 à 14:53
cs_Gabriel Messages postés 9 Date d'inscription samedi 30 novembre 2002 Statut Membre Dernière intervention 18 février 2006 - 18 févr. 2006 à 17:56
cs_Gabriel Messages postés 9 Date d'inscription samedi 30 novembre 2002 Statut Membre Dernière intervention 18 février 2006 - 18 févr. 2006 à 17:56
A voir également:
- PB Recherche Combo label
- Barre de recherche php ✓ - Forum PHP
- Barre de recherche - Forum PHP
- Moteur de recherche PHP - MySQL ✓ - Forum PHP
- Comment créer son label - Forum Visual Basic 6
- Php/Mysql formule de recherche Mysqli ✓ - Forum PHP
4 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
18 févr. 2006 à 15:26
18 févr. 2006 à 15:26
Bonjour,
Voici un petit code (il n'y a aucun critère de recherche)
J'ai nommé la colonne A "Nom", la colonne B "Prenom" et la colone C
"Age" et jai introduit la colonne "Nom" dans la propriété RowSource du
combobox.J'ai placé 2 Labels ou je récupère le prénom et l'age en
fonction du nom choisi dans le combobox.(Soit tu peux peut-être
t'inspirer de ce code ou alors mets ton code ici, que l'on puisse
essayer).
Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0
Label1 = Range("Prenom")(1).Value
Label2 = Range("Age")(1).Value
Case 1
Label1 = Range("Prenom")(2).Value
Label2 = Range("Age")(2).Value
Case 2
Label1 = Range("Prenom")(3).Value
Label2 = Range("Age")(3).Value
Case Else
Label1 = ""
Label2 = ""
End Select
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Voici un petit code (il n'y a aucun critère de recherche)
J'ai nommé la colonne A "Nom", la colonne B "Prenom" et la colone C
"Age" et jai introduit la colonne "Nom" dans la propriété RowSource du
combobox.J'ai placé 2 Labels ou je récupère le prénom et l'age en
fonction du nom choisi dans le combobox.(Soit tu peux peut-être
t'inspirer de ce code ou alors mets ton code ici, que l'on puisse
essayer).
Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0
Label1 = Range("Prenom")(1).Value
Label2 = Range("Age")(1).Value
Case 1
Label1 = Range("Prenom")(2).Value
Label2 = Range("Age")(2).Value
Case 2
Label1 = Range("Prenom")(3).Value
Label2 = Range("Age")(3).Value
Case Else
Label1 = ""
Label2 = ""
End Select
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
18 févr. 2006 à 17:24
18 févr. 2006 à 17:24
Re,
D'abord voici un code plus facile que les Select Case.Ici j'ai prévu pour 1000 nom dans la colonne "Nom".
Private Sub ComboBox1_Click()
Dim i
For i = 1 To 1000
If ComboBox1.Text = Range("Nom")(i) Then
Label1 = Range("Prénom")(i)
Label2 = Range("Age")(i)
End If
Next i
End Sub
Ensuite, pour transférer les données à la suite les unes des autres
dans le feuille 2.(tu peux choisirs une aure !), les données
s'inscrivent à partire de la ligne 2 (Range("A2").Select)
Private Sub CommandButton1_Click()
Dim En_Colone, En_Ligne
Sheets(2).Activate
Range("A2").Select
En_Colone = ActiveCell.Column
En_Ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_Ligne, En_Colone).Activate
En_Ligne = En_Ligne + 1
Wend
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveCell.Value = UserForm1.ComboBox1.Text
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = UserForm1.Label1
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = UserForm1.Label2
'Sheets(1).Activate
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
D'abord voici un code plus facile que les Select Case.Ici j'ai prévu pour 1000 nom dans la colonne "Nom".
Private Sub ComboBox1_Click()
Dim i
For i = 1 To 1000
If ComboBox1.Text = Range("Nom")(i) Then
Label1 = Range("Prénom")(i)
Label2 = Range("Age")(i)
End If
Next i
End Sub
Ensuite, pour transférer les données à la suite les unes des autres
dans le feuille 2.(tu peux choisirs une aure !), les données
s'inscrivent à partire de la ligne 2 (Range("A2").Select)
Private Sub CommandButton1_Click()
Dim En_Colone, En_Ligne
Sheets(2).Activate
Range("A2").Select
En_Colone = ActiveCell.Column
En_Ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_Ligne, En_Colone).Activate
En_Ligne = En_Ligne + 1
Wend
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveCell.Value = UserForm1.ComboBox1.Text
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = UserForm1.Label1
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = UserForm1.Label2
'Sheets(1).Activate
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
cs_Gabriel
Messages postés
9
Date d'inscription
samedi 30 novembre 2002
Statut
Membre
Dernière intervention
18 février 2006
18 févr. 2006 à 15:57
18 févr. 2006 à 15:57
Merci Beaucoup pour ce morceaux de code, ca marche !!!!
Si je peu abuser... je souhaites récupérer les informations de la fiche trouvée et les transferer sur une autre feuille... est-ce possible ?
Merci encore
Si je peu abuser... je souhaites récupérer les informations de la fiche trouvée et les transferer sur une autre feuille... est-ce possible ?
Merci encore
cs_Gabriel
Messages postés
9
Date d'inscription
samedi 30 novembre 2002
Statut
Membre
Dernière intervention
18 février 2006
18 févr. 2006 à 17:56
18 févr. 2006 à 17:56
ça marche, à un détail près... ca ne transfert pas la ligne séléctionnée, ça la copie de la feuille 1 à la feuille 2.
Quand je disais transfert c'est à dire qu'elle n'apparait plus sur la
première feuille, une sorte de "couper / coller" sans que ça me laisse
de ligne vide dans la feuille 1.
en tout cas Merci pour le code qui à toute son utilité dans mon application...
Quand je disais transfert c'est à dire qu'elle n'apparait plus sur la
première feuille, une sorte de "couper / coller" sans que ça me laisse
de ligne vide dans la feuille 1.
en tout cas Merci pour le code qui à toute son utilité dans mon application...
