Discussion :

[Maxence_vba]

Bonjour,

J'ai une question pour vous, comment peut-on demander à la machine de récupérer toutes les valeurs d'une ligne sur une
feuille quand on rentre par exemple (dans une textBox) le mail de la personne qui se situe sur cette ligne ?
En imaginant bien évidemment que l'on ait différentes lignes pour différents clients.

Doit-on forcément passer pour une cellule annexe sur la feuille ou bien y-a-t-il un moyen de le faire directement en VBA ?

Je vous remercie par avance et vous souhaite une bonne journée !

[Philippe Tulliez]

Bonjour,
La méthode Find de l'objet Range par exemple te permet de faire une recherche dans la colonne où se trouve les mails. Une fois la valeur trouvée, il te suffit de récupérer la valeur de sa propriété Row et ainsi lire les données des autres colonnes.
Toutefois, il me semble plus judicieux d'utiliser un contrôle ComboBox ou ListBox et ainsi de pouvoir sélectionner dans la liste la ligne contenant l'adresse mail et avec la propriété ListIndex d'un de ces contrôles tu pourras connaître également le numéro de la ligne où se trouve l'adresse sélectionnée.

[BENNASR]

bonsoir
essayez avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set Dc = Sheets("feuil1").Columns(1).Find(TextBox1.Value)
C = Dc.Column
L = Dc.Row
MsgBox C
MsgBox L

[Maxence_vba]

Bonsoir à vous en ce réveillon de noël,

Merci pour vos deux réponses qui répondent parfaitement à mon problème ! J'aurais cependant pour vous une dernière question
A la fin de l’exécution de mon code l'erreur d'exécution "424" se produit sur la ligne 21 (mon_compte.Show)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub Userform_initialize()
Dim i As Integer
i = 1
End Sub
 
[...]
 
Sheets.Add.Name = "temp"
Dim infos As Range, Dc As Range
Set infos = Sheets("temp").Range("A1:A11")
Set Dc = Sheets("clients").Columns(1).Find(tb_mail.Value)
C = Dc.Column
L = Dc.Row
For i = 1 To 10
    infos.Cells(i) = Sheets("clients").Cells(L, C + i)
Next
    infos.Cells(11) = Sheets("clients").Cells(L, C)
 
Me.Hide
mon_compte.Show
 
End Sub

Et le pire dans tout ça c'est que les noms de mes userform se retrouvent changés en
alors qu'avant ils répondaient aux noms suivants :

Et pour aucune raison (selon moi) quand je clique sur les userform ayant le mauvais nom ils reprennent leur nom originel...
Cela semble avoir décalé le nom des userform d'un userform mais je ne vois vraiment pas comment cela peut se produire après seulement ces lignes là...

Edit: J'ai oublié de préciser quelque chose, si à la place de "mon_compte.Show", je mets par exemple "commande.Show" cela fonctionne...

Avez-vous une idée ?

Bon réveillon !

[BENNASR]

Bonjour
Mon niveau ne permet de donner explication à cette situation mais moi je fais plutôt avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

unload userform1

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Hide

Je sais pas si ça résolu ton problème en souhaitant à tous et à toutes bonne fête et bonne année 2019

[Maxence_vba]

Merci pour ton aide mais cela ne résout malheureusement pas mon problème...