Discussion :

[mouftie]

Bonjour,
Je mets en place une sécurité assez complexe, basée sur 3 tables Id et un Id connecté.
Je voudrais autoriser un accès à tous les Id des table 2 et 3 et à l'Id connecté (s'il fait parti de la table 1).
Voici mon code (qui fonctionne pour autorisé un Id d'une seule table)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim NomChoisi As String
    Application.DisplayAlerts = False
NomChoisi = "Car Cae"
UsAbg = Sheets("Données").[B2]    'Id connecté
With Sheets("Données")
'Si NomChoisi appartient aux tables 2 ou 3 ou est égal à UsAbg --- la table 2 est en P5:P46, la table 3 est en V5:V22
Set Cel = Union(Range("TbAT[At Abg]"), Range("TbAll[All Abg]"), UsAbg).Find(NomChoisi, Union(Range("B2"), Range("P5"), Range("V5")))
    If Not Cel Is Nothing Then
'----------
Procédure si Ok
        Set Cel = Nothing
'------------Suite Sécurité si Ko
    Else
        Call MsgBox("SECURITE" ...)
End With
    Application.DisplayAlerts = True

Je dois avoir un pb avec find, mais je maitrise pas bien
Est-ce que qq'1 peut m'aider svp.

J'ai déjà trouvé une explication / erreur, car j'ai utilisé une variable (UsAbg) dans mon Union. Donc j'ai corrigé mon code par

Code :

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

Set Cel= Union(Range("TbAT[At Abg]"), Range("TbAll[All Abg]"), Range("B2"))

si je m'arrête là et que je fais Cel.Select, mes 3 zones sont bien sélectionnées, mais dès que j'ajoute le find, j'ai, le motif d'erreur est : "Incompatibilité de type".
J'ai essayé avec Dim Cel as Variant, mais cela ne change rien.
Merci de votre aide

[eriiic]

Bonjour,

C'est quoi ce 2nd paramètre de find passé en range ?
Fais F1 sur find pour voir sa syntaxe et les paramètres attendus.
.Find n'a rien à voir avec les fonctions feuille

eric

[mouftie]

Bonjour Eric,
Merci de me répondre
Le 2nd paramètre est le "After"
Mais je viens de voir qu'il ne peut y avoir qu'une cellule unique, donc j'ai tout enlevé.
J'en suis à

Code :

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

Set Cel = Union(Range("TbAT[At Abg]"), Range("TbAll[All Abg]"), Range("B2")).Find(NomChoisi)

J'ai testé avec un NomChoisi en B2, en Table 2 (TbAT), c'est Ok, mais en Table 3 (TbAll) ça ne trouve pas mon Id, je reçois le message "Vous n'êtes pas autorisé".
J'ai remplacé
Range("TbAll[All Abg]") par Range("V5:V10"), c'est pareil, et comme je l'ai dit tout à l'heure

Code :

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

1
2
Set Cel = Union(Range("TbAT[At Abg]"), Range("TbAll[All Abg]"), Range("B2"))
Cel.Select

sélectionne bien mes 3 zones.

Je ne vois pas le nouveau pb

[eriiic]

Sans doute qu'avec un fichier on pourra avancer.
eric

[mouftie]

Eric,
Comme demandé, voici un exemple de mon fichier.
Merci

[joe.levrai]

Bonjour,

je comprend bien pour l'ID connecté : cet identifiant est dans une cellule et on doit chercher si cet identifiant est dans ton ListObject1

mais pour les deux autres tableaux, où est stocké l'ID à tester ??


EDIT : voici une proposition, avec l'ID secondaire codé en dur dans la macro, comme ton exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Acces()
Dim Autorisation As Boolean
Dim NomChoisi As String
Dim Plage As Range
Dim Cel As Range
 
NomChoisi = "Séb TAN"
 
With Sheets("Données")
    ' recherche de l'ID connecté
    Set Cel = .ListObjects("TbStg").DataBodyRange.Find(.Range("B2").Value, , xlValues, xlWhole)
 
    If Not Cel Is Nothing Then
        Autorisation = True
    Else
        ' recherche de l'ID dans le tableau 2 et 3
        Set Plage = Union(.ListObjects("TbAT").DataBodyRange, .ListObjects("TbAll").DataBodyRange)
        Set Cel = Plage.Find(NomChoisi, , xlValues, xlWhole)
 
        If Not Cel Is Nothing Then
            Autorisation = True
        Else
            Call MsgBox("SECURITE")
        End If
    End If
End With
 
End Sub