Microsoft 365 filtre dynamique sous excel

[thierry bernard]

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

 

[fanch55]

Bonjour,
Il vaut mieux insérer une textbox que de travailler avec une cellule sinon il faudra faire entrer à chaque fois ...
A titre d'exemple et si c'est un tableau structuré :

 

[fanch55]

Ou bien si ce n'est pas un tableau structuré mais une zone nommée :

 

[thierry bernard]

Ou bien si ce n'est pas un tableau structuré mais une zone nommée :

bonjour , fanch55 un grand merci c'est exactement ce que je cherchais . je vous prendrai en plus dans quelques années votre "amusez vous bien au boulot ......" encore 2000 jrs

 

[merinos]

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...

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

 

[thierry bernard]

bonjour , fanch55 un grand merci c'est exactement ce que je cherchais . je vous prendrai en plus dans quelques années votre "amusez vous bien au boulot ......" encore 2000 jrs

merci franch55 et Merinos pour votre aide . j'ai une dernière question

 

[fanch55]

Bonjour,
En assurant la présence de l'astérisque générique manuellement :

Private Sub TextBox1_Change()
    If TextBox1 = vbNullString Then TextBox1 = "*"
    [Tableau1].AutoFilter Field:=[Tableau1].ListObject.ListColumns("Colonne3").Index, _
                          Criteria1:="=" & TextBox1
End Sub

 

[thierry bernard]

bonjour fanch55 merci merci merci

 

[thierry bernard]

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

 

[fanch55]

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

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

 

[thierry bernard]

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

 

[fanch55]

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

Bonjour, je viens de m'apercevoir que je ne vous avait pas joint le fichier, alors acte :

 

[thierry bernard]

bonjour fanch55, merci pour votre retour vous êtes top
sorry la PJ est la première version je n'ai pas compris

 

[fanch55]

bonjour fanch55, merci pour votre retour vous êtes top
sorry la PJ est la première version je n'ai pas compris

Je travaille sur la dernière version.
Je répercute les modifs pour le tooltiptext sur les boutons ( bulles d'infos).

 

[fanch55]

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 .