Bonjour à tous,
Je parvient à renseigner la textBox1 de mon userform2 avec le contenu d'une cellule de ma Bd de contacts, avec un click sur celle-ci en utilisant ce code (placé dans ma feuille1) :
J'ai maintenant besoin de renseigner les autres textBox de mon userform2 avec les coordonnées du contact en question (nom, prénom etc..) étant entendu que textBox1 correspond au numéro d'ordre du contact (en l’occurrence son numéro de sécu).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub Worksheet_SelectionChange(ByVal Target As Range) UserForm2.TextBox1.Text = ActiveCell.Value End Sub
Évidemment, les coordonnées du contact se trouvent sur la même ligne (mais sur x colonnes).
Mon problème est là car tout ce que j'ai tenté ne marche pas et voici le dernier code essayé (placé lui dans le userform2) :
Je m'arrache les cheveux et, si vous avez une idée, ce dont je ne doute nullement, j'en veut bien.
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
24
25
26 Private Sub UserForm_Click() If TextBox1.Value = "" Then 'SI pas de "nom" ... Label_Nom.ForeColor = RGB(255, 0, 0) 'Label "nom" en rouge ElseIf TextBox2.Value = "" Then TextBox2.Value = ActiveCell.Value.Offset(0, 2).Value ElseIf TextBox3.Value = "" Then TextBox3.Value = ActiveCell.Value.Offset(0, 3).Value ElseIf TextBox4.Value = "" Then TextBox4.Value = ActiveCell.Value.Offset(0, 4).Value ElseIf TextBox5.Value = "" Then TextBox5.Value = ActiveCell.Value.Offset(0, 5).Value ElseIf TextBox6.Value = "" Then TextBox6.Value = ActiveCell.Value.Offset(0, 6).Value ElseIf TextBox7.Value = "" Then TextBox7.Value = ActiveCell.Value.Offset(0, 7).Value ElseIf TextBox8.Value = "" Then TextBox8.Value = ActiveCell.Value.Offset(0, 8).Value ElseIf TextBox9.Value = "" Then TextBox9.Value = ActiveCell.Value.Offset(0, 9).Value ElseIf TextBox10.Value = "" Then TextBox10.Value = ActiveCell.Value.Offset(0, 10).Value End If End Sub
Partager