Accueil > > > LISTE DES EMAILS, NUMÉRO DE TÉLÉPHONNES DES TRAVAILLEURS
 LISTE DES EMAILS, NUMÉRO DE TÉLÉPHONNES DES TRAVAILLEURS
 Information sur la source
 Description
Cette source propose une manière simple de rechecher le numéro de telephone fixe ou mobile d'un collegue dans une entreprise, elle faite en VBA et utilise les formulaires d'Excel, Lisbox et conbobox avec possibilité d'ajouter, modifier ou supprimer un enrégistrement.
 Source
- Private Sub fermer_Click()
- With ActiveWorkbook
- .RunAutoMacros xlAutoClose
- .Close
- End With
- End Sub
-
- Private Sub Label_Rt_Menu_Click()
- Unload Me
- us1.Show modeless
- End Sub
-
- Private Sub OptionCell_Click()
- filtre
- End Sub
-
- Private Sub OptionEmail_Click()
- filtre
- End Sub
-
- Private Sub OptionExt_Click()
- filtre
- End Sub
-
- Private Sub UserForm_initialize()
- Worksheets("Famille").Activate
- [b3:i1000].Sort key1:=[b3] ' Tri la BD
- ' Me.ChoixNom.List = Application.Transpose(Range([b3], [B65000].End(xlUp)))
- End Sub
- Private Sub nom_Change()
- filtre
- End Sub
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Sub filtre()
-
-
- If Me.Frame.Controls(0) = True Then
- a = 1
- ElseIf Me.Frame.Controls(1) = True Then
- a = 2
- Else: a = 3
- End If
- Select Case a
- Case 1
- Me.TextBox5 = "Extention Number"
- Set c = Range("b:b").Find("*" & Me.nom & "*", LookIn:=xlValues)
- If Not c Is Nothing Then
- premier = c.Address
-
- i = 0
- Me.ListBoxdon.Clear
-
-
- Do
-
- Me.ListBoxdon.AddItem
-
- Me.ListBoxdon.List(i, 0) = c.Offset(0, 0).Value ' code
- Me.ListBoxdon.List(i, 1) = c.Offset(0, 1).Value ' Nom
- Me.ListBoxdon.List(i, 2) = c.Offset(0, 2).Value ' Fonction
-
- Me.ListBoxdon.List(i, 3) = c.Offset(0, 4).Value ' Adresse
-
-
- Set c = Range("b:b").FindNext(c)
- i = i + 1
- Loop While Not c Is Nothing And c.Address <> premier
-
- End If
-
- Case 2
- Me.TextBox5 = "Cell Number"
- Set c = Range("b:b").Find("*" & Me.nom & "*", LookIn:=xlValues)
- If Not c Is Nothing Then
- premier = c.Address
-
-
- i = 0
- Me.ListBoxdon.Clear
-
-
- Do
-
- Me.ListBoxdon.AddItem
-
- Me.ListBoxdon.List(i, 0) = c.Offset(0, 0).Value ' code
- Me.ListBoxdon.List(i, 1) = c.Offset(0, 1).Value ' Nom
- Me.ListBoxdon.List(i, 2) = c.Offset(0, 2).Value ' Fonction
-
- Me.ListBoxdon.List(i, 3) = c.Offset(0, 5).Value ' Adresse
-
-
- Set c = Range("b:b").FindNext(c)
- i = i + 1
- Loop While Not c Is Nothing And c.Address <> premier
-
- End If
- Case Else
- Me.TextBox5 = "E-Mail "
- Set c = Range("b:b").Find("*" & Me.nom & "*", LookIn:=xlValues)
- If Not c Is Nothing Then
- premier = c.Address
-
-
- i = 0
- Me.ListBoxdon.Clear
-
-
- Do
-
- Me.ListBoxdon.AddItem
-
- Me.ListBoxdon.List(i, 0) = c.Offset(0, 0).Value ' code
- Me.ListBoxdon.List(i, 1) = c.Offset(0, 1).Value ' Nom
- Me.ListBoxdon.List(i, 2) = c.Offset(0, 2).Value ' Fonction
-
- Me.ListBoxdon.List(i, 3) = c.Offset(0, 6).Value ' Adresse
-
- Set c = Range("b:b").FindNext(c)
- i = i + 1
- Loop While Not c Is Nothing And c.Address <> premier
-
- End If
- End Select
- End Sub
-
- Private Sub UserForm_Terminate()
- With ActiveWorkbook
- .RunAutoMacros xlAutoClose
- .Close
- End With
- End Sub
Private Sub fermer_Click()
With ActiveWorkbook
.RunAutoMacros xlAutoClose
.Close
End With
End Sub
Private Sub Label_Rt_Menu_Click()
Unload Me
us1.Show modeless
End Sub
Private Sub OptionCell_Click()
filtre
End Sub
Private Sub OptionEmail_Click()
filtre
End Sub
Private Sub OptionExt_Click()
filtre
End Sub
Private Sub UserForm_initialize()
Worksheets("Famille").Activate
[b3:i1000].Sort key1:=[b3] ' Tri la BD
' Me.ChoixNom.List = Application.Transpose(Range([b3], [B65000].End(xlUp)))
End Sub
Private Sub nom_Change()
filtre
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub filtre()
If Me.Frame.Controls(0) = True Then
a = 1
ElseIf Me.Frame.Controls(1) = True Then
a = 2
Else: a = 3
End If
Select Case a
Case 1
Me.TextBox5 = "Extention Number"
Set c = Range("b:b").Find("*" & Me.nom & "*", LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
i = 0
Me.ListBoxdon.Clear
Do
Me.ListBoxdon.AddItem
Me.ListBoxdon.List(i, 0) = c.Offset(0, 0).Value ' code
Me.ListBoxdon.List(i, 1) = c.Offset(0, 1).Value ' Nom
Me.ListBoxdon.List(i, 2) = c.Offset(0, 2).Value ' Fonction
Me.ListBoxdon.List(i, 3) = c.Offset(0, 4).Value ' Adresse
Set c = Range("b:b").FindNext(c)
i = i + 1
Loop While Not c Is Nothing And c.Address <> premier
End If
Case 2
Me.TextBox5 = "Cell Number"
Set c = Range("b:b").Find("*" & Me.nom & "*", LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
i = 0
Me.ListBoxdon.Clear
Do
Me.ListBoxdon.AddItem
Me.ListBoxdon.List(i, 0) = c.Offset(0, 0).Value ' code
Me.ListBoxdon.List(i, 1) = c.Offset(0, 1).Value ' Nom
Me.ListBoxdon.List(i, 2) = c.Offset(0, 2).Value ' Fonction
Me.ListBoxdon.List(i, 3) = c.Offset(0, 5).Value ' Adresse
Set c = Range("b:b").FindNext(c)
i = i + 1
Loop While Not c Is Nothing And c.Address <> premier
End If
Case Else
Me.TextBox5 = "E-Mail "
Set c = Range("b:b").Find("*" & Me.nom & "*", LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
i = 0
Me.ListBoxdon.Clear
Do
Me.ListBoxdon.AddItem
Me.ListBoxdon.List(i, 0) = c.Offset(0, 0).Value ' code
Me.ListBoxdon.List(i, 1) = c.Offset(0, 1).Value ' Nom
Me.ListBoxdon.List(i, 2) = c.Offset(0, 2).Value ' Fonction
Me.ListBoxdon.List(i, 3) = c.Offset(0, 6).Value ' Adresse
Set c = Range("b:b").FindNext(c)
i = i + 1
Loop While Not c Is Nothing And c.Address <> premier
End If
End Select
End Sub
Private Sub UserForm_Terminate()
With ActiveWorkbook
.RunAutoMacros xlAutoClose
.Close
End With
End Sub
 Conclusion
Commencez par desactiver la securité des macro en excel, la suite sera facile
Mot de Passee pour la modification et l'ajout : "nizebel"
 Historique
- 30 mai 2008 07:55:24 :
- Changement de la Capture
- 30 mai 2008 07:56:54 :
- Changement de la Capture
- 30 mai 2008 08:00:29 :
- Chengement de la Capture
- 30 mai 2008 09:34:33 :
- Pris en compte du conseil de bigfish_le vrai
Modification de Sub Filtre()
- 03 juin 2008 11:35:58 :
- Code
- 03 juin 2008 11:37:48 :
- code
- 13 juin 2008 08:49:13 :
- Modification
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
tri de listbox [ par Oups ]
qu'elle et la methode de trie la plus approprié dans d'une listbox qui charge des enregistrements ayant un chiffre devant chaque lignes ? quand je cha
listbox vba [ par anfo ]
Bonjour!Je travaille avec Access. J'ai mis sur mon formulaire, un contrôle ActiveX listBox. Lorsque je met mon formulaire en mode formulaire, Il y a u
listbox [ par anfo ]
Bonjour!Je travaille avec Access. J'ai mis sur mon formulaire, un contrôle ActiveX listBox. Lorsque je met mon formulaire en mode formulaire, Il y a u
access: selection auto d'un item ds listbox [ par SamLJ ]
Je vais dc vs expliquer mon pb soyez attentif :-)g une base de donnée composée de 3 tables:"logiciel","utilisateur", et "logiciel-utilisateur"( cette
répérer l'évenement Tri (A-Z) ou Tri (Z-A) dans un formulaire access [ par tofoli ]
Bonjour,Je chercher a répérer l'évenement Tri (A-Z) ou Tri (Z-A) dans un formulaire access ouvert en mode feuille de données.Je ne trouve rien dans la
tri d'une ListBox [ par dao85 ]
Bonjour à tous et bonne semainePas trop dur le lundi???Moi j'ai un petit souci et je ne sais pas si il éxiste une solution:Voila :Je remplis une listB
Tri dans une ListBox [ par xabi62 ]
Est-ce qu'on peut faire un tri par ordre alphabétique de tous les éléments contenu dans une ListBox.Si oui comment faut-il faire..?????Merci A+xabi
info dans BDD [ par noob ]
bonjour,voila mon probleme. J'ai un formulaire de demande d'info (nom, prenom, tel .....) que l'utilisateur rempli. Puis il valide et se retrouve deva
pbl tri listbox [ par kdavtodie ]
Bonjour,j ai un ptit souci sur l affichage d une listbox qui est le résultat d une comparaison avec une autre listbox, donc ces deux la on une proprié
Bug Clic Formulaire Access [ par ozar ]
Bonjour,J'ai un formulaire Access avec plusieurs listbox, Combo et text . Lorsque je clic sur un listbox, il arrive qu'après je ne puisse plus dutout
|
Derniers Blogs
 TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko [FRAMEWORK 4] LES TASKS ET LE THREAD UI[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi
Je viens de passer quelques temps au TechDay's et j'ai pu voir pas mal de session intéressante. Par contre une chose m'a un peu étonné lors de certaines de ces sessions qui abordaient les améliorations du framework .NET (donc le 4.5) : en gros, bea...
Cliquez pour lire la suite de l'article par fathi WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBEWORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson
Depuis déjà un an, je conseille vivement les utilisateurs de Workflow Foundation 3 à migrer vers la version 4. L'information qui va suivre ne devrait donc pas trop prendre au dépourvu les personnes qui m'ont suivi. Je profite de ce poste, pour faire le re...
Cliquez pour lire la suite de l'article par JeremyJeanson TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PCTECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice
Speakers: Thierry Rapatout, Antoine Petit et Xavier Trebbia Cette session entre dans le cadre des RDV Décideurs des TechDays 2012, elle est liée à la consumérisation de l'IT et la mise en place du "DeskTop as a Service" dans de plus en ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|