Discussion :

[mouftie]

Bonjour,
je voudrais vérifier que le user connecté appartient bien à une des trois tables utilisateurs.
J'ai écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim PlgAll As Range, Iset As Range
Set Cel = Sheets("Données").Range("A2")
Set PlgAll = Union(Range("TbStg[N° d''agent]"), Range("TbAT[AT user]"), Range("TbAll[All user]"))
Set Iset = Application.Intersect(Cel, PlgAll)
If Iset Is Nothing Then
 MsgBox "Cellule hors plage"
Else
 MsgBox "Cellule dans plage"
End If

ou encore plus simple pour essayer de comprendre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If Not Intersect(ActiveCell, Range("C5:C27")) Is Nothing Then
 MsgBox "Dans la plage"
 Else
 MsgBox "Pas dans la plage"
 End If
End Sub

aucun code ne fonctionne pourtant dans mon fichier =A2=C20 renvoie VRAI

Est-ce que quelqu'un peut m'aider svp.
Merci

[mouftie]

j'ai remplacé "Nothing" par "Cel", mais maintenant il trouve Cel à chaque fois, même quand Cel n'appartient à aucune table
Merci

[mouftie]

Ok, dans mon cas il faut oublier Intersect, puisque la donnée recherchée n'est pas en dehors des tableaux de recherche donc pas d'intersection possible.
Donc je suis partie sur un autre type de code qui fonctionne presque, il me reste un pb de casse à résoudre.
Donc voici le code qui fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For Each c In PlgAll
 If c = Cel Then 
    MsgBox "Donnée trouvée"
    Exit Sub
 End If
 Next
 MsgBox "Donnée non trouvée"

le pb c'est que la donnée recherchée est un code utilisateur récupérer et il s'avère que selon les postes de travail il peut être en majuscule ou en minuscule ; donc cela ne fonctionne pas toujours !
je suppose qu'il faut que j'utilise Lcase...
Effectivement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If c = LCase(Cel) Then

Fonctionne parfaitement à tous les coups

[Docmarti]

Bonjour.

Pour comparer des pommes avec des pommes, mieux vaut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If  LCase(c.value)  = LCase(Cel.value) Then

[mouftie]

Merci Docmarti,
C'est une très bonne remarque,
Je corrige tout de suite.
Merci encore