Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 filtre dynamique sous excel

thierry bernard

XLDnaute Nouveau
bonjour à tous , nouveaux sur ce forum. je cherche de l'aide afin d'avoir la possibilité de filtrer ( sous excel ) une liste de "Nom" en tapant les premières lettre dans une cellule
j'ai trouvé sur votre forum un formulaire correspondant au fichier que j’essaie de mettre en place. afin de permettre à nos bénévoles de valider l'arriver des personnes invitées sur certain évènements


si dessous le message envoyer ce matin à NODEX sur son fichier "Gestion des admissions" ainsi qu'une capture d’écran pour "expliquer " notre besoin

> Bonjour , bravo super programme .
pensez vous possible d'ajouter une cellule permettant de filtrer la liste des noms en rentrant les première lettres dans une cellule . je vous joins une capture d’écran sur la base de votre fichier
merci d'avance
thierry

 
Trier par date Trier par votes

merinos-BernardEtang

XLDnaute Accro
Si je comprends bien tu veux faire quelque chose comme cela... ici je montre même je nom et le code postal...

a boter qu'on peut chercher sur les 2 zones en même temps...


VB: 
Recherche intuitive de plusieurs mots séparés par le caractère espace
-Créer un combobox (onglet développeur)
-Propriété MatchEntry à None
-Clic-droit sur onglet Devis
-Afficher code


Dim a

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 On Error Resume Next

  If Not Intersect(Range("client_selector"), Target) Is Nothing And Target.Count = 1 Then
    a = Application.Transpose(Sheet4.Range("unique").Value)
    Me.ComboBox1.List = a
    Me.ComboBox1.Height = Target.Height + 3
    Me.ComboBox1.Width = Target.Width
    Me.ComboBox1.Top = Target.Top
    Me.ComboBox1.Left = Target.Left
    Me.ComboBox1 = Target
    Me.ComboBox1.Visible = True
    Me.ComboBox1.Activate
    'ActiveSheet.PivotTables("PivotTable2").PivotFields("unique").ClearAllFilters
    'ActiveSheet.PivotTables("PivotTable2").PivotFields("unique").CurrentPage = Range("client_selector").Value

  Else
    Me.ComboBox1.Visible = False
  End If
 

End Sub



Private Sub ComboBox1_Change()
 On Error Resume Next

 If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then
   Set d1 = CreateObject("Scripting.Dictionary")
   clé = UCase("*" & Replace(Me.ComboBox1, " ", "*") & "*")
   For Each c In a
     If UCase(c) Like clé Then d1(c) = ""
   Next c
   Me.ComboBox1.List = d1.keys
   Me.ComboBox1.DropDown
 End If
   ActiveCell.Value = Me.ComboBox1
     
 If Range("client_selector").Address = Target.Address Then
    ActiveSheet.PivotTables("PivotTable2").PivotFields("unique").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable2").PivotFields("unique").CurrentPage = Range("client_selector").Value
 End If

End Sub

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Me.ComboBox1.List = a
  Me.ComboBox1.Activate
  Me.ComboBox1.DropDown
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then ActiveCell.Offset(1).Select
End Sub

Merci @BOISGONTIER ...



Merinos
 
Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc
Bonjour,
En assurant la présence de l'astérisque générique manuellement :
VB: 
Private Sub TextBox1_Change()
    If TextBox1 = vbNullString Then TextBox1 = "*"
    [Tableau1].AutoFilter Field:=[Tableau1].ListObject.ListColumns("Colonne3").Index, _
                          Criteria1:="=" & TextBox1
End Sub
 
Vote positif 0 Vote négatif

thierry bernard

XLDnaute Nouveau
Bonjour , d'abord je tiens à remercier tous les XLDnautes pour leurs aident . je crois arrivé à la fin de la création de notre petit fichier d’émargement . il me reste à trouver comment afficher une info bulle quand la souris arrive sur les "boutons" , afin de fournir une explication avant de cliquer et de lancer la macro
je vous joins la dernier version de notre fichier
désolé je voulais joindre une petite vidéo montrant les boutons mais je n'ai pas réussi :-(
bonne journée
 

Pièces jointes

  • TABLE D'ÉMARGEMENT dif ind-03.xlsm
    421 KB · Affichages: 9
Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc
Bonjour,
Vos boutons sont en fait des Shapes (dur,dur,dur...)
Le seul moyen d'y arriver, c'est d'utiliser l'excellente proposition de

Tooltip and Macro on a shape in Excel, VBA

I am trying to attach a tooltip (through hyperlink route) and a macro to an existing shape. The code is something like this - Sub testtooltip() Dim myDocument As Worksheet Dim shp As Shape Dim strTooltip As String, strMacroName As String Set myDocument =...
www.mrexcel.com

Ci-joint le classeur modifié en conséquence .
Vous pourrez définir vos messages de notification dans le code de la feuile FEUILLE D'EMARGEMENT
VB: 
Sub Set_Tiptext()
 
    ThisWorkbook.AddToolTipToShape Me.Shapes("Picture 13"), "Enregistrer " & ThisWorkbook.Name
    ThisWorkbook.AddToolTipToShape Me.Shapes("Picture 6"), "Envoyer un e-mail"

End Sub

D'autre part, j'ai vu que vous avez une pléthore d'objets Encre...
sans doute suite à de multiples test d'insertion de signatures.


Après ménage,
Si vous cherchez toujours à faire émarger les gens, vous pouvez consulter :

XL 2016 - Créer une cellule tactile

Bonjour à tous, Je souhaiterai créer dans la feuille ci-joint des cellules donnant accès directement lorsque l'on clique dessus à l'apparition du clavier tactile (cellule A11, B11 et C11). Concernant la cellule D11 est il possible de créer une zone de dessin pour la signature (signature non...
www.excel-downloads.com
 
Dernière édition:
Vote positif 0 Vote négatif

thierry bernard

XLDnaute Nouveau
bonjour à tous, après quelques tests dans la vrai vie .j'ai une amélioration à faire sur ma table d'émargement
contexte :
pour valider l'arrivée d'un participant . je fais changé la couleur de sa ligne, ajouter un "1" dans la colonne "présents" et ajouter la date et l'heure . hélas je suis parti du mauvais pied
en effet ma macro m'oblige à être sur la cellule du nom de la personne pour changer sa couleur puis appliquer ce magnifique vert au cellule avant et après , cell+1 , cell+2 , cell-1 etc ....... . le pblm est si une autres cellule est sélectionner la couleur date est décalé vers une autre zone ( normal .ok je vais au coin avec mon bonnet d’âne)
pouvez vous m'aider à créer une macro qui ,
quand je sélectionne une cellule entre la colonne B et J et sur la ligne de mon participant .la ligne passe en vert et ajoute le "1" + date

un grand merci d'avance à ce site et ses intervenants





Sub validation()
'
' validation Macro
' fait passé les lignes en vert + ajoute "1" dans "presents" (colonne I, ancien "confirmé")
'

'
'Range("B4").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
ActiveCell.Offset(0, 5).Select
ActiveCell.Value = 1
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With


With ActiveCell.Offset(0, 1).Select
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With

With ActiveCell
.Value = Now
.NumberFormat = "dd/mm/yyyy hh:mm"
End With


With ActiveCell.Offset(0, -2).Select
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With ActiveCell.Offset(0, -1).Select
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With ActiveCell.Offset(0, -1).Select
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With ActiveCell.Offset(0, -1).Select
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With ActiveCell.Offset(0, -1).Select
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With ActiveCell.Offset(0, -1).Select
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With ActiveCell.Offset(0, -1).Select
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With ActiveCell.Offset(0, 2).Select
End With
Application.Cursor = xlWait
Application.Cursor = XlDéfault
End Sub
 

Pièces jointes

  • TABLE D'ÉMARGEMENT dif ind-05 modif .xlsm
    424.4 KB · Affichages: 5
Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc
fanch55 à dit:
Bonjour,
Vos boutons sont en fait des Shapes (dur,dur,dur...)
Ci-joint le classeur modifié en conséquence .
Vous pourrez définir vos messages de notification dans le code de la feuile FEUILLE D'EMARGEMEN
Cliquez pour agrandir...
Bonjour, je viens de m'apercevoir que je ne vous avait pas joint le fichier, alors acte :
 

Pièces jointes

  • TABLE D'ÉMARGEMENT dif ind-03-2.xlsm
    414.3 KB · Affichages: 5
Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc
Ce qui a été fait :
tous les objets Ink ont été supprimés.
Le nom des colonnes de tables en ligne 7 sont identiques à la ligne 4
Les subs de tri ont été simplifiées
Les objets superposés aux colonnes de ligne 4 permettant de faire un filtrage ont été supprimés.
Ce filtrage est maintenant assuré en double-cliquant dans la cellule correspondante de la ligne 4.
L'objet de Validation a été supprimé .
La présence se fait en sélectionnant la cellule correspondante de la ligne désirée et en cochant l'objet de Validation. La date correspondante est renseignée automatiquement . La couleur est assurée par une MFC (mise en forme conditionnelle) sur la table quand la cellule Présents n'est pas vide .
 

Pièces jointes

  • TABLE D'ÉMARGEMENT dif ind-05 .xlsm
    393.8 KB · Affichages: 12
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

G
  • Question Question
Microsoft 365 Vba Excel l'instruction Set OutApp = CreateObject("Outlook.Application") bloque excel
Réponses
2
Affichages
307
laurent950
L
  • Question Question
XL 2021 Appliquer plusieurs filtres numériques "entre" sur une colonne excel
Réponses
6
Affichages
524
Cousinhub
M
  • Question Question
XL 2010 Récupération de données et les transformer avec Power Query ?
Réponses
3
Affichages
554
DJunqueira
D
V
  • Question Question
Microsoft 365 VBA - Filtre avancé avec TCD
2
Réponses
16
Affichages
670
nat54
D
  • Question Question
XL 2016 Une Zone de Liste pour plusieurs cellules.
Réponses
7
Affichages
203
duduche62
D
  • Question Question
Power Query [Resolu] Importer plusieurs fichiers excel provenant de dossiers différents sur sharepoint
Réponses
6
Affichages
1 K
Staple1600
M
  • Question Question
XL 2021 Créer une liste d'informations en colonne dans des cellules différentes
Réponses
3
Affichages
448
djidji59430
7
  • Question Question
Microsoft 365 Tableau de Géolocalisation de vidéos de drone avec lien vers Google Earth
2
Réponses
15
Affichages
658
sylvanu
M
  • Résolu(e)
Microsoft 365 Power Query - Regroupement date début/date de fin
Réponses
9
Affichages
807
Maxou69
M
D
  • Résolu(e)
XL 2013 Envoyer un tableaux Excel nommé sous format image via Outlook
Réponses
12
Affichages
520
driss Kor
D
6
  • Question Question
XL 2019 Générer mails sous conditions
2
Réponses
26
Affichages
1 K
Oneida
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
487
arnoldbrice19
A
  • Question Question
XL 2013 Application.GetOpenFilename et filtre sur nom fichier
Réponses
7
Affichages
2 K
Airone784
F
  • Question Question
XL 2016 copier des fichiers dans des sous dossiers a partir de case a cocher sous excel
2
Réponses
17
Affichages
1 K
Felipe54
F
S
  • Résolu(e)
Microsoft 365 Liste déroulante conditionnelle avec filtre
Réponses
8
Affichages
893
Gégé-45550
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
352
AtTheOne
E
  • Question Question
XL 2013 Macro Excel Sharepoint
Réponses
0
Affichages
856
eud078
E
POWERQUERY :: Importer un fichier .csv avec construction de critères dynamiques (5 max) de type texte et sélection entre deux dates possible - V2.0
Réponses
0
Affichages
330
oguruma
C
  • Question Question
Microsoft 365 enregistrer sous vba un classeur avec valeur cellule et non sur le lien
Réponses
3
Affichages
1 K
Chapichapo
C
S
  • Question Question
Microsoft 365 Publipostage Excel
Réponses
1
Affichages
585
Oneida
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…