Application.username

Bonjour

je prépare des filtres sur un tableau excel et se pose le problème suivant

ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=4, Criteria1:="application.username"

j'ai essayé avec

ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=4, Criteria1:="*application.username*"

en gros je souhaiterais faire ceci

ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=4, Criteria1: LIKE "application.username"

mais je ne voit pas comment faire le like

pour infor dans le tableau 4 au niveau de la colonne 4 il y a plein de nom dans les cellules

merci pour votre aide

pour information je viens de tester

Private Sub Workbook_Open()

Dim nom As String

nom = Application.UserName

ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=4, Criteria1:=Array(" ", nom, " ")

et ca ne marche pas !!!!

je pense que le problème vient du fait que la variable nom ne se met pas dans le criteria ainsi

savez vous utiliser une variable dans un code entre guillemet

ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=4, Criteria1:="* nom *"

merci encore

la solution

ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=4, Criteria1:="*" & nom & "*"

Bonjour,

Ces 2 exemples fonctionnent parfaitement.

Cdlt

Dim nm As String
    nm = Application.UserName
    ActiveSheet.ListObjects(1).Range.AutoFilter Field:=4, Criteria1:=nm

ActiveSheet.ListObjects(1).Range.AutoFilter Field:=4, Criteria1:=Application.UserName