Modifcation répértoire téléphonique

[stich02]

Bonjour à tous

J'ai un répertoire téléphonique avec une ComboBox et des TextBox fait avec des macros récupérées sur internet et très légèrement adaptées.

Il serait parfait si on pouvait y apporter l'amélioration suivante : Il faudrait que quand je tape un nom dans la comboBox "Nom prénom" si celui-ci n'est pas trouvé dans la base de données toutes les textBox s'éffacent afin que je puisse rentrer les nouvelles coordonnées sans être obligé d'effacer ou d'écraser les données rapportées d'un autre nom qui comment par la ou les mêmes lettres.

En effet par exemple si je tape dans la ComboBox "Nom prénom" le nom "LARUE" comme ce nom commence comme "LAVERDURE" toutes les données de LAVERDURE subsistent dans les TextBox alors que LARUE n'est pas connu dans la base de données.

J'espère avoir été clair et sinon n'hésitez pas à me demander des précisions.

Je vous joint bien sûr mon fichier.

Merci d'avance

Stich02

 

[fredl]

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
'//////////////////////////////////////

 

[stich02]

Re : Modifcation répértoire téléphonique

Bonjour fredl,

Merci, ta macro répond tout à fait à mes attentes. J'ai maintenant un répertoire téléphonique "au poil".

Bonne soirée à tous et sans doute à bientôt.

Stich02

 

[fredl]

Re : Modifcation répértoire téléphonique

parfait!
A+
frédéric