Re : Modifcation répértoire téléphonique
Bonjour,
Essaie ça et tiens moi au courant
cdt
Frédéric
'//////////////////////////////////////
Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim i As Integer
If Me.ComboBox1.ListIndex = -1 Then
Ligne = Me.ComboBox1.ListIndex + 2
For i = 1 To 8
Me.Controls("TextBox" & i) = ""
Next i
Else
Ligne = Me.ComboBox1.ListIndex + 2
For i = 1 To 8
Me.Controls("TextBox" & i) = Ws.Cells(Ligne, i + 1)
Next i
End If
End Sub
'//////////////////////////////////////