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

[jp.org]

Bonjour,

J'ai crée un bouton qui vérifie si la valeur de la cellule D3 correspond à liste de la colonne des solutions possibles.
Si la condition est rempli, j'ai un msgbox qui valide et une nouvelle feuille s'affiche. Si la condition n'est pas rempli, un message d'erreur apparaît.

Voici mon code : Le nom solution correspond aux valeurs de la colonne A. J'ai essayé avec une seule cellule mais rien ne change.

Avez-vous des idées ?

Bonne soirée.

 

[soan]

Bonjour jp.org,

bienvenue sur le site XLD !

un essai :

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

soan

 

[jp.org]

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

 

[soan]

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

 

[jp.org]

voici le fichier

 

[soan]

@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 :

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

 

[jp.org]

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

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

 

[soan]

-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

 

[jp.org]

Bonjour Soan,
Merci de tes explications