Microsoft 365 création bouton recherche colonne A et J ( Résolu )

[laurent9lb]

Bonjour

je souhaite crée deux bouton de recherche pour un tableau excel.

Le premier en cellule A5

Le but classé trouvé rapidement le client et mettre la ligne en surbrillance ou couleur. (le même client peut avoir plusieurs point de livraison) ex client 76084 et 77001)

le deuxième cellule F5 "idem que la A plusieurs client sur la même commune. "

j'arrive a trié ces colonne (ex A trié petit au plus grand)

La fonction recherché dans colonne " Exemple A me donne le premier 76084 " (pas les deux)

j'ai essayé avec les mise en forme conditionnel Cela ne fonctionne pas .

La liste vas très vite rallongé.

Je trouve pas la solution a mon soucis.

avons une solution.

Attention je suis un débutant qui se lance sur un chantier un peu gros.

merci de votre aide

 

[Hasco]

RE,

@Staple1600 [x] [x] (à votre gré) et pareil chez moi... lire la suite
@laurent9lb j'ai fait la même chose que l'ami Staple ou à peu près. J'ai conservé le tableau structuré pour la zone de critères et la macro compte le nombre de critères à appliquer.

Sub FiltreClients()
    Dim nbCriteres As Integer 'Nombre de critères + l'entête
    nbCriteres = Application.CountA(Range("ClientsR[#ALL]"))
    '
    Range("Clients[#All]").AdvancedFilter _
                Action:=xlFilterInPlace, _
                CriteriaRange:=Range("ClientsR[#ALL]").Resize(nbCriteres), _
                Unique:=False
End Sub

Bonne soirée

P.S. @Staple1600 me contacter par mp

 

[laurent9lb]

rien pour moi
Marche pas.

J 'ai un soucis avec

"convertir ClientR en plage (Sélection de ClientsR => Onglet Création/Outils/Convertir en plage)
puis j'ai nommé manuellement la plage convertie en ClientsR

je vais sur création de tableau Convertir en plage.
Il demande si je veux convertir le tableau en plage normal.

je mets oui et j'ai l’impression que rien ne se passe;

Les cellules A2 à A4 ne sont pas active quand je rentre un N° client rien ne se passe

 

[Staple1600]

Re

Une fois convertie en plage normal, il faut renommer la plage de cellules
Tu la sélectionnes puis CTRL+F3 et là tu cliques sur Nouveau

 

[laurent9lb]

Tous cela est fais.

le bouton ne fonctionne pas

 

[laurent9lb]

Peut être un début de solution a mon problème.

Pourquoi avez un Fichier "Module" sur vos classeur opérationnel alors que moi j'en ai pas.

 

[Staple1600]

Re

Pour avoir un module (communément appellé Module standard)
Dans Excel, faire ALT+F11 puis Insertion/Module
Apparaît un module standard nommé Module1, c'est là qu'il faut copier/coller le code de la macro.

 

[chris]

Bonjour à tous

Si on reprend le fichier que j'ai joint a mon post #4 ( il ya 8 jours) : ClientR était défini par

=DECALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A$1:$A$4);1)

...

Ceci explique cela... Je n'ai pas vu que laurent9lb ne l'avait pas défini ainsi....

 

[laurent9lb]

Bonjour Chris et tous le monde.

J'ai fais énormément de mauvaise manip sur la cellule A1=Criteres tableau A2 a A4 ClientsR.

Je m'en suis rendu compte en allant Sur CTRL F3 Gestionnaire de nom .

J'avance depuis 6h se matin.

Je suis la a fond voir surchauffe.

 

[Staple1600]

Bonjour le fil

Tout forumeur qui se respecte commence toujours son dimanche matin par l'ingurgitation d'une boisson chaude
(avec de la théine ou de la caféine), et quelques viennoiseries ou autre cochonnerie.
Ensuite, un petit coup de peigne, un petit brossage de dent.
C'est seulement une fois, ce petit rituel effectué, qu'il peut se niquer les yeux devant son écran qui affichera fièrement cet Excel chéri, qui nous réunit tous ici.

Ne jamais se mettre devant Excel à six du mat un dimanche, malheureux

Pour revenir à ta question
Pourquoi tu t’embêtes à passer par VBA et un bouton pour filtrer ?
Tu peux le faire manuellement avec le filtre automatique ou le filtre avancé
(ou mieux utiliser un TCD)
Je te laisse réfléchir à la question, il y a ma boisson chaude qui m'attends

 

[laurent9lb]

voila ou j'en suis

J'ai essayé de reproduire la fonction sur la colonne "Departement"


Toujours les problème de bouton

 

[laurent9lb]

Bonjour Staple

Plus vite que moi.

On sera plusieurs a utilisé ce classeur Moins il y auras de manip mieux se sera.

On a pas le même rituel.

Je fil en salle de bain

Tu sentiras moins mon allène.

 

[Staple1600]

Re

laurent9lb
Apparemment tu n'as pas vu ma question dans le message#39...

Sinon dans ton dernier fichier, la macro ci-dessous est toujours dans le code de la feuille
et pas dans le module standard.

Sub FiltreClients()
Dim nbCriteres As Integer
nbCriteres = Application.CountA(Range("ClientsR[#ALL]"))
        Range("Clients[#All]").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
        :=Range("ClientsR[#ALL]").Resize(nbCriteres), Unique:=False
End Sub

 

[laurent9lb]

En effet sur le poste de 10 de Chris s'est comme cela qu'il dit.

Donc j'ai rectifier ma coquille de DepartementRR qui n’était pas en tableau dans gestionnaire de nom "CTRL F3"

C'est fait J'ai réussi à crée un deuxième bouton pour trié les N°clients. "en rentrant la formules dans module"

Il me reste a tenter de modifier la formule pour Trié la colonne "Departement" (normalement)

Pour ta question
je trouve se tableau très simple "d'utilisation"
le risque de le planté me parais faible.

on sera plusieurs a utilisé "classeur" . ( mais Je serais le seul a le remplir)

Merci de votre aide

je suis nul Mais il y as pir que moi

 

[laurent9lb]

Je parle d'un collègue de boulot il as les doigts tellement gros qu'il appui sur plusieurs touche a la fois;

Le pauvre ordi.AH AH

 

[Staple1600]

Re

laurent9lb
Donc au final, cela fonctionne pour le moment ?

Quand au risque de plantage, tu l'as expérimenté toi même
Et nous en sommes à 43 messages et sans être parvenu encore à du 100% fiable

[opinion personnelle qui n'engage que moi]
Ce qui est simple c'est d'utiliser (ou d'apprendre à le faire) le filtre automatique ou avancé et/ou l'emploi du Tableau Croisé Dynamique.
C'est ergonomique, cela se fait à la souris (sans macros)
Donc idéal, pour ceux qui commencent avec Excel.

Si des utilisateurs "novices" utilisent un classeur avec du VBA, ils resteront comme deux ronds de frites quand un message d'erreur s'affichera
[/opinion personnelle qui n'engage que moi]