Bon ce code donne un petit répértoire téléphonique auquel on peut ajouter des N° pendant l'execution. Les N° sont stockés dans un fichier .txt.
Dans une ListBox sont affichés les noms, et puis dans un label est affiché le N° correspondant au nom choisi. Il y a une fonction permettant de copier dans le presse-papier le N° choisi.
Il n'y a qu'a mettre à l'endroit correspondant le chemin du fichier .txt.
Source / Exemple :
Dim int_numéro_fichier As Long, i As Long, numero(100) As String, nbrtel As Boolean, numerotel As Boolean, nbr_numero As Long, chemin_du_fichier As String
Private Sub copier_Click() 'On copie le texte dans le presse-papier :
Clipboard.Clear 'On efface le presse-papier
Clipboard.SetText (numtel.Caption) 'Puis on met le N° de téléphone
End Sub
Private Sub Form_Load()
chemin_du_fichier ' = mettre ici le chemin du fichier .txt
nbrtel = False 'On initialise quelques variables
nbr_numero = 0
numerotel = False
int_numéro_fichier = FreeFile 'On definit un numéro de fichier libre
Open chemin_du_fichier For Input As #int_numéro_fichier 'Ouvre le fichier
While Not EOF(int_numéro_fichier) 'EOF : indique qd on est a la fin d'un fichier
Line Input #int_numéro_fichier, str_temporaire 'on lit chaque ligne et on le met ds str_temporaire
If nbrtel = True Then 'Si juste avant il y avait "####" alors...
nom.AddItem (str_temporaire) 'On ajoute le onm à la liste
numerotel = True 'Et comme sa on reconnait que sa vient juste de passer
nbr_numero = nbr_numero + 1
Else 'par contre si il n'y avait pas "####" juste avant...
If numerotel = True Then 'mais qu'on venait d'ajouter le nom à la liste
numero(nbr_numero) = str_temporaire 'On ajoute donc le N° de téléphone a la variable correspondante
numerotel = False 'Et on fait sa comme sa on ne le fera pas 2 fois de suite!
End If
End If
If str_temporaire = "####" Then nbrtel = True Else nbrtel = False 'Comme sa on peut reconnaitre si le caractère vient juste de passer
Wend
Close #int_numéro_fichier 'On ferme le fichier
End Sub
Private Sub Form_Unload(Cancel As Integer) 'On sauvegarde quand la feuille se ferme
int_numéro_fichier = FreeFile 'on définit un numéro de fichier libre
Open chemin_du_fichier For Output As #int_numéro_fichier 'On ouvre le fichier
For i = 1 To nom.ListCount 'On fait la boucle en fonction du nbr d'objets dans la liste
Print #int_numéro_fichier, "####" & vbCrLf & nom.List(i - 1) & vbCrLf & numero(i) 'Et on écrit dans le .txt
Next
Close #int_numéro_fichier 'On ferme le fichier
End Sub
Private Sub nom_Click()
numtel.Caption = numero(nom.ListIndex + 1) 'On met le N° de T° etant le numéro correspondant au nom choisi
End Sub
Private Sub rajtel_Click() 'Quand on veut rajouter un N°...
Do
message_nom = InputBox("Entrez le nom de la personne.", "Nom") 'On fait une boucle pour que l'utilisater marque qq chose
Loop Until message_nom <> ""
Do
message_numero = InputBox("Entrez le N° de téléphone de la personne", "N° tel") 'Pareil
Loop Until message_numero <> ""
nom.AddItem (message_nom) 'On inscrit les nom et les N°
numero(nom.ListCount) = message_numero
End Sub
Private Sub supprimer_Click() 'Pour supprimer, on verifie que l'utilisateur a bien selectionné qq chose (sinon message d'erreur) et on efface
If nom.Text <> "" Then
message_ok = MsgBox("Voulez-vous vraiment supprimer le N°?", vbYesNo, "Etes-vous sûr?")
If message_ok = vbYes Then nom.RemoveItem (nom.ListIndex) 'On demande une confirmation
Else
MsgBox "Veuillez selectionner l'element à supprimer.", vbOKOnly, "Erreur!"
End If
End Sub
Conclusion :
Je vais essayer d'ajouter d'autres fonctions a ce repertoire téléphonique. Mais je ne sais pas dans combien de temps ;-) !
N'hésitez pas pour les notes et les commentaires :-) !
Aller @+
Antitrust
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.