Microsoft 365 Excel 365 - Accès à une page selon valeur cellule

S

soan

XLDnaute Barbatruc

Inactif

• 20 Mars 2021

• #2

Bonjour jp.org,

bienvenue sur le site XLD !

un essai :

VB:

Sub accest()
  If [_solution] = [BD!D3] Then
    Worksheets("Test").Select
    MsgBox "C'est Ok !"
  Else
    MsgBox "Refusé."
  End If
End Sub

soan

 

Vote positif 0 Vote négatif

J

jp.org

XLDnaute Nouveau

• 20 Mars 2021

• #3

Bonjour Soan,

Merci pour ton accueil


sinon pour l'excel ça me donne une erreur "13" Incompatibilité de Type et que le débogage met sur la ligne du If

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 20 Mars 2021

• #4

ton erreur 13 "Incompatibilité de type" est due au contenu de la cellule D3 de la feuille "BD" ET / OU au contenu de ce qui est référencé par ton nom défini _solution ; dans les 2 cas : j'peux pas t'aider davantage sans voir ton fichier ; aussi, je te propose de l'envoyer (sans données confidentielles) ; dans ton prochain post en cours d'édition, sers-toi du bouton "Joindre un fichier" qui sera situé en dessous. ​

soan

 

Vote positif 0 Vote négatif

J

jp.org

XLDnaute Nouveau

• 20 Mars 2021

• #5

voici le fichier

 

Pièces jointes

• Essai_Solution_v2.xlsm

  17.1 KB · Affichages: 10

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 20 Mars 2021

• #6

@jp.org

ton fichier en retour.

* j'ai préféré utiliser une autre méthode plus adaptée

* j'ai supprimé ton nom défini

je te laisse faire le test ; voici le nouveau code VBA :

VB:

Option Explicit

Sub accest()
  Dim cel As Range
  With Worksheets("BD")
    If .[D3] = "" Then GoTo 1
    Set cel = .Columns(1).Find(.[D3], , -4163, 1, 1, , True)
  End With
  If Not cel Is Nothing Then
    Worksheets("TEST").Select: MsgBox "C'est Ok !": Exit Sub
  End If
1 MsgBox "Accès refusé."
End Sub

note bien que l'accès est refusé dans ces 2 cas :

* si D3 est vide

* si D3 est non vide et non présent en colonne A

soan

 

Pièces jointes

• Essai Solution v2.xlsm

  16.4 KB · Affichages: 2

Dernière édition: 20 Mars 2021

Vote positif 0 Vote négatif

J

jp.org

XLDnaute Nouveau

• 20 Mars 2021

• #7

D'accord, cela me convient, merci en tout cas

C'est quoi les paramètres utilisés avec Find ?

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 21 Mars 2021

• #8

-4163 : idem que xlValues

1er 1 : xlWhole ; 2ème 1 : xlByRows

le True est pour MatchCase : respect de la casse
➯ ça différencie les majuscules des minuscules

c'est mieux pour des mots de passe ; sinon,
il te suffit de mettre :

.Find(.[D3], , -4163, 1, 1)

soan

 

Vote positif 0 Vote négatif

J

jp.org

XLDnaute Nouveau

• 21 Mars 2021

• #9

Bonjour Soan,
Merci de tes explications

 

Vote positif 0 Vote négatif