Bonjour
J'ai ce vba qui fonctionne bien pour faire des actions selon l'utilisateur
If Application.UserName = "(username1)" Then
Selection.AutoFilter Field:=12, Criteria1:="<>"
ElseIf Application.UserName = "(username2)" Then
Selection.AutoFilter Field:=12, Criteria1:="<>"
Par contre je voudrais remplacer (username1) et (username2) par des valeurs
se trouvant dans des cellules.
En faite j'ai une liste des utilisateurs qui peut changer donc mettre par
exemple la valeur de la cellule F8 de la page index à la place du username
Bonjour J'ai ce vba qui fonctionne bien pour faire des actions selon l'utilisateur
If Application.UserName = "(username1)" Then Selection.AutoFilter Field:, Criteria1:="<>" ElseIf Application.UserName = "(username2)" Then Selection.AutoFilter Field:, Criteria1:="<>"
Par contre je voudrais remplacer (username1) et (username2) par des valeur s se trouvant dans des cellules. En faite j'ai une liste des utilisateurs qui peut changer donc mettre par exemple la valeur de la cellule F8 de la page index à la place du userna me
Merci
Bonjour,
If Sheets("xxx").[F8] = "(username1)" Then
Selection.AutoFilter Field:=12, Criteria1:="<>"
JB
http://boisgontierjacques.free.fr
On 15 avr, 11:46, Angelus <Ange...@discussions.microsoft.com> wrote:
Bonjour
J'ai ce vba qui fonctionne bien pour faire des actions selon l'utilisateur
If Application.UserName = "(username1)" Then
Selection.AutoFilter Field:=12, Criteria1:="<>"
ElseIf Application.UserName = "(username2)" Then
Selection.AutoFilter Field:=12, Criteria1:="<>"
Par contre je voudrais remplacer (username1) et (username2) par des valeur s
se trouvant dans des cellules.
En faite j'ai une liste des utilisateurs qui peut changer donc mettre par
exemple la valeur de la cellule F8 de la page index à la place du userna me
Bonjour J'ai ce vba qui fonctionne bien pour faire des actions selon l'utilisateur
If Application.UserName = "(username1)" Then Selection.AutoFilter Field:, Criteria1:="<>" ElseIf Application.UserName = "(username2)" Then Selection.AutoFilter Field:, Criteria1:="<>"
Par contre je voudrais remplacer (username1) et (username2) par des valeur s se trouvant dans des cellules. En faite j'ai une liste des utilisateurs qui peut changer donc mettre par exemple la valeur de la cellule F8 de la page index à la place du userna me
Merci
Daniel.C
Bonjour. Essaie : If Application.UserName = [F8] Then F8 contenant le nom d'utilisateur sans les parenthèses. Cordialement. Daniel "Angelus" a écrit dans le message de news:
Bonjour J'ai ce vba qui fonctionne bien pour faire des actions selon l'utilisateur
If Application.UserName = "(username1)" Then Selection.AutoFilter Field:, Criteria1:="<>" ElseIf Application.UserName = "(username2)" Then Selection.AutoFilter Field:, Criteria1:="<>"
Par contre je voudrais remplacer (username1) et (username2) par des valeurs se trouvant dans des cellules. En faite j'ai une liste des utilisateurs qui peut changer donc mettre par exemple la valeur de la cellule F8 de la page index à la place du username
Merci
Bonjour.
Essaie :
If Application.UserName = [F8] Then
F8 contenant le nom d'utilisateur sans les parenthèses.
Cordialement.
Daniel
"Angelus" <Angelus@discussions.microsoft.com> a écrit dans le message de
news: 95AD4E43-DC6B-4E74-8BED-7B118856A6F3@microsoft.com...
Bonjour
J'ai ce vba qui fonctionne bien pour faire des actions selon l'utilisateur
If Application.UserName = "(username1)" Then
Selection.AutoFilter Field:, Criteria1:="<>"
ElseIf Application.UserName = "(username2)" Then
Selection.AutoFilter Field:, Criteria1:="<>"
Par contre je voudrais remplacer (username1) et (username2) par des
valeurs
se trouvant dans des cellules.
En faite j'ai une liste des utilisateurs qui peut changer donc mettre par
exemple la valeur de la cellule F8 de la page index à la place du username
Bonjour. Essaie : If Application.UserName = [F8] Then F8 contenant le nom d'utilisateur sans les parenthèses. Cordialement. Daniel "Angelus" a écrit dans le message de news:
Bonjour J'ai ce vba qui fonctionne bien pour faire des actions selon l'utilisateur
If Application.UserName = "(username1)" Then Selection.AutoFilter Field:, Criteria1:="<>" ElseIf Application.UserName = "(username2)" Then Selection.AutoFilter Field:, Criteria1:="<>"
Par contre je voudrais remplacer (username1) et (username2) par des valeurs se trouvant dans des cellules. En faite j'ai une liste des utilisateurs qui peut changer donc mettre par exemple la valeur de la cellule F8 de la page index à la place du username
Merci
Angelus
Merci la combinaison ma donner la solution.
If Application.UserName = Sheets("index").[F8]
Sa permet de faire référence à une cellule d'une autre page. Nickel
Merci la combinaison ma donner la solution.
If Application.UserName = Sheets("index").[F8]
Sa permet de faire référence à une cellule d'une autre page. Nickel