Modifcation répértoire téléphonique

  • Initiateur de la discussion Initiateur de la discussion stich02
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

stich02

XLDnaute Occasionnel
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
 

Pièces jointes

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
'//////////////////////////////////////
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
1 K
Réponses
2
Affichages
811
Retour