Tri dans annuaire téléphonique entreprise

K

kjin

XLDnaute Barbatruc

• 25 Septembre 2008

• #2

Re : Tri dans annuaire téléphonique entreprise

Bonsoir,

daniel du 47 à dit:

Pouvez vous m'aider

Cliquez pour agrandir...

Sans doute, mais sans un extrait de ton fichier que peut on faire ?!
A+
kjin

 

Vote positif 0 Vote négatif

D

daniel du 47

XLDnaute Nouveau

• 25 Septembre 2008

• #3

Re : Tri dans annuaire téléphonique entreprise

Effectivement !
Je m'en doutais un peu

 

Pièces jointes

• liste tel 23 sept 2008.zip

  34.7 KB · Affichages: 405
• liste tel 23 sept 2008.zip

  34.7 KB · Affichages: 424
• liste tel 23 sept 2008.zip

  34.7 KB · Affichages: 430

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 25 Septembre 2008

• #4

Re : Tri dans annuaire téléphonique entreprise

Salut,Daniel du 47,Kjin

voila une adaptation que j'ai fait avec recherche par service par nom par il te suffit d'actionner le spibutton la ou il y a un texte qui défile

Cordialement

 

Pièces jointes

• liste tel 23 sept 2008.zip

  45.6 KB · Affichages: 479
• liste tel 23 sept 2008.zip

  45.6 KB · Affichages: 492
• liste tel 23 sept 2008.zip

  45.6 KB · Affichages: 511

Vote positif 0 Vote négatif

D

daniel du 47

XLDnaute Nouveau

• 25 Septembre 2008

• #5

Re : Tri dans annuaire téléphonique entreprise

Bonjour Said

Beau travail, mais malheureusement trop compliqué (pour moi et les autres) à maintenir
De plus c'est toute l'entreprise qui utilise ce fichier et nous sommes très nombreux, je tiens donc à avoir quelque chose de simple car ce n'est pas moi qui vais le maintenir (ajout, retrait etc)
Si on pouvait rester dans l'esprit de la "feuil1". La partie "Recherche par nom" est simple et fonctionne trés bien. Je voudrais juste pouvoir afficher dans la partie du bas (Recherche par service) les noms et les N° de Tél de tout un service (20 personnes ou + ) parce qu'il nous arrive de ne pas nous rappeler le nom d'une personne mais de savoir dans quel service elle travaille, mais là je ne sais pas faire une recherche et surtout afficher plus d'un nom.

Cordialement
Daniel

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Septembre 2008

• #6

Re : Tri dans annuaire téléphonique entreprise

Bonsoir


Une autre piste

Voir le code dans le module 2


Pour afficher les services

Sélectionner le service en cliquant sur la cellule fusionnée
(B27 et C27)

Puis appuyez sur le bouton
Afficher les services

 

Dernière édition: 25 Novembre 2010

Vote positif 0 Vote négatif

D

daniel du 47

XLDnaute Nouveau

• 27 Septembre 2008

• #7

Re : Tri dans annuaire téléphonique entreprise

Meeeeeerci, c'est exactement ce que je voulais
Par contre j'aurais besoin d'explications sur le code du module 2 car maintenant j'ai besoin de remettre la liste complète (qui comprends quand même prés de 700 lignes) de savoir comment réaffecter les cellules fusionnées (pourquoi fusionnées) à cette nouvelle liste et s'il y a des contraintes à connaître lorsqu'on va ajouter, modifier ou enlever des lignes.
Sinon, parfaite interprétation de ma demande

Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Septembre 2008

• #8

Re : Tri dans annuaire téléphonique entreprise

Bonjour


La fusion n'est pas obligatoire.

J'ai utilisé Données/Validation
pour créer la liste des services

(J'avais fusionnée les cellules parce difficulté de lecture sinon)

Mais on peut agrandir simplement la largeur de colonne.

Pour résumer, la macro créer_liste
permet de créer une liste sans doublons des services
(copiée en colonne IV) puis nommée Lservices

Cette zone nommée est utilisée pour Données/Validation.

Pour afficher le résultat, la macro utilise le filtre automatique.


PS: Il doit y avoir une solution par formules, plus simple à maintenir par la suite

Attendons les formulistes.


PS2: Voici le code avec des commentaires

Code:

Sub v_services()
[COLOR=SeaGreen] 'Déclarations des variables[/COLOR]
Dim LA As Worksheet
Dim F As Range
Set F = Sheets("Feuil1").Range("F27")
[COLOR=SeaGreen] 'Ici on fige la réactualisation de l'écran[/COLOR]
Application.ScreenUpdating = False
[COLOR=SeaGreen] 'effacement du précédent service[/COLOR]
F.Resize(100, 2).ClearContents
Sheets("Liste Alpha").Select
Set LA = ActiveSheet
[COLOR=SeaGreen] 'ici on filtre selon le service renseigné[/COLOR]
[COLOR=SeaGreen] 'critère en cellule IT2 qui contient une formule renvoyant la valeur de
'la zone nommée le_crit  (en fait la cellule B27)[/COLOR]
With LA
    .Range("C2").AutoFilter Field:=3, Criteria1:=Range("IT2")
[COLOR=SeaGreen] 'recopie du nom[/COLOR]
    .AutoFilter.Range.Columns(4).SpecialCells(xlCellTypeVisible).Copy F
[COLOR=SeaGreen] 'recopie du numéro de téléphone[/COLOR]
    .AutoFilter.Range.Columns(7).SpecialCells(xlCellTypeVisible).Copy F.Offset(0, 1)
End With
[COLOR=SeaGreen] 'ici on ote la mise en gras de la police [/COLOR]
F.Offset(1, 0).Resize(100, 2).Font.Bold = False
[COLOR=SeaGreen] 'ici équivalent de [Afficher tout]   (sur un filtre automatique)[/COLOR]
Sheets("Liste Alpha").ShowAllData
Sheets("Feuil1").Select
[COLOR=SeaGreen] 'ici réactualisation de l'écran[/COLOR]
Application.ScreenUpdating = True
End Sub

 

Dernière édition: 27 Septembre 2008

Vote positif 0 Vote négatif

D

daniel du 47

XLDnaute Nouveau

• 28 Septembre 2008

• #9

Re : Tri dans annuaire téléphonique entreprise

Ca y est, ça fonctionne nickel
Merci pour votre aide
Quel plaisir cette aide bénévole, continuez ainsi ça fait du bien

 

Pièces jointes

• copie d'ecran.jpg

  47.9 KB · Affichages: 537

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Septembre 2008

• #10

Re : Tri dans annuaire téléphonique entreprise

Re


Tu pourrais mettre à disposition ton classeur final sur le forum
(plutôt qu'une image 🙁)

Cela pourrait servir à d'autres sur le forum.

(évidemment au préalable, remplaces les données confidentielles par des données fictives)


PS: Sur ta copie d'écran, on peut lire deux noms et deux numéros de téléphone portable
J'espère qu'ils ne sont pas confidentiels !

 

Dernière édition: 28 Septembre 2008

Vote positif 0 Vote négatif

A

adel77

XLDnaute Nouveau

• 2 Juillet 2009

• #11

Re : Tri dans annuaire téléphonique entreprise

si tu peu mettre ton fichier en ligne sa serait sympa

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Septembre 2009

• #12

Re : Tri dans annuaire téléphonique entreprise

Bonsoir


Je souscris à la requête d'adel77.

daniel du 47
La moindre des choses serait que tu mettes à disposition ton fichier
pour les autres membres du forum 🙁🙁

(un fichier fictif au niveau des données évidemment)

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 5 Septembre 2009

• #13

Re : Tri dans annuaire téléphonique entreprise

Bonsoir,

Juste pour un coucou à jean marie...

Mais Danieldu47 est pas venu depuis septembre 2008, alors nous entendra t'il ?

 

Dernière édition: 5 Septembre 2009

Vote positif 0 Vote négatif