Macro en relation avec une cellule

[aurel7687]

Bonjour à tous! Enfin RE...

Bon voila, j'ai ce code ci que l'on m'a donner:
=================================
Private Sub CommandButton2_Click()
Dim Lgn&

Lgn = ComboBox1.ListIndex + 1
If Lgn = 0 Then Exit Sub

With Tableau
.Cells(Lgn, 3) = Adresse
.Cells(Lgn, 4) = CP
.Cells(Lgn, 5) = Ville
.Cells(Lgn, 6) = Tel
.Cells(Lgn, 7) = Portable
.Cells(Lgn, 8) = Mail


End With

Sheets('Accueil').Select
Range('A3').Select
Unload Me

End Sub
==========================================
Il me permet de selectionner dans une comboBox (qui est dans une userform)le nom de mes personnes et de pouvoir modifier leur infos.
Enfait, je souhaiterais modifier ce code de facon à ce qu'on choisisse le nom et que ca me renvoye dans la cellule A1 de ma feuil1 son nom choisi, en A2 de ma feuil2 son prenom...

Si quelqu'un peut m'aider une fois de plus!
AUREL

 

[aurel7687]

J'ai trouvé la solution, je vous la donne si ca peut interresser quelqu'un:
===========================================
Private Sub ComboBox1_Change()
Dim Lgn&
Lgn = ComboBox1.ListIndex + 1
With Tableau
Worksheets('Feuille1').Range('T7').Value = Worksheets('Feuil2').Cells(Lgn, 1).Value
Worksheets('Feuille1').Range('T8').Value = Worksheets('Feuil2').Cells(Lgn, 2).Value
Worksheets('Feuille1').Range('T14').Value = Worksheets('Feuil2').Cells(Lgn, 3).Value
End With
End Sub
===========================================
Explication:
Permet à partir d'une combobox ou il y a des noms de remplir une feuille automatiquement.

Merci à tous ceux qui m'ont aidé, en espérant pouvoir rendre l'ascenseur!

AUREL