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) :
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
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).
É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) :
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
Je m'arrache les cheveux et, si vous avez une idée, ce dont je ne doute nullement, j'en veut bien.