Recherche de la bonne combinaison

alb05 · 15 Janvier 2010

Bonjour
Quelle est la meilleure méthode pour retrouver la bonne combinaison selon des critères (ou cases à cocher) ?
La fonction RECHERCHEV a ses limites dans ce cas. Mais je ne vois pas trop quelle formule utiliser dans ce cas ?

merci

job75 · 23 Janvier 2010

Re : Recherche de la bonne combinaison

Re,

Le nom utilisateur Windows (celui qu'on modifie difficilement) est donné par l'expression
Environ("UserName"). Pour connaître le vôtre, exécutez :

MsgBox Environ("UserName")

Donc dans le fichier joint j'ai créé la plage nommée "Utilisateur".

Dans le code de la feuille la macro modifiée :

Code:

Sub OterProtection()
On Error Resume Next
[COLOR="Red"]If Application.CountIf(Range("Utilisateur"), Environ("UserName")) Then
  Range("Base").Parent.Unprotect [MDP]
  Exit Sub
End If[/COLOR]
Dim v
v = Range("Base").Parent.Unprotect
If v = "" Then MsgBox "Mot de passe incorrect !", 48: End
If v = False Then End
End Sub

Je n'irai pas plus loin.

Edit : si vous insérez des colonnes dans la base, il faut revoir les macros qui utilisent la variable tablo (question d'indices, pas compliqué).

A+

alb05 · 23 Janvier 2010

Re : Recherche de la bonne combinaison

Merci pour tout Job75.
A plus tard peut être sur un autre topic.
Bon week-end.

Recherche de la bonne combinaison

alb05

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

alb05

XLDnaute Occasionnel

Discussions similaires