XL 2016 If avec conditions variables

[Victor42]

Bonjour,
J'essaye malgré mes échecs à faire un if avec une condition variable.
J'ai une liste de plusieurs nom de session qui sont autorisé à accéder aux autres feuilles mais la ou je coince c'est pour faire un if comme cela:

Sub authentification ()
dim auth, v_derniereligne
v_derniereligne = 100
For i = 1 To v_derniereligne
  If Cells(i, 1) = "" Then
  v_derniereligne = i - 1
  Exit For
  End If
Next
For auth = 1 to v_derniereligne
 if environ("USERNAME") = Cells(auth,1) then
 msg box "Accès validé !"
 (action pour afficher les feuilles et les déprotéger)
Next
End sub

Le problème c'est qu'il faut faire un For mais si je le fais je ne saurais pas faire un message d'erreur
Donc en gros je cherche à faire un if avec une variable avec ou sans for mais il faut que je puisse mettre un msg box accès refusé ou validé si la condition est bonne.

Merci d'avance pour votre aide, je ne sais plus comment faire...

 

[vgendron]

Bonjour

pas facile de comprendre ce que fait ton code sans aucune explication ni fichier exemple..
mais un essai avec ceci

Sub authentification()
Dim auth, v_derniereligne
With Sheets("Feuil1")
    v_derniereligne = .Range("A" & .Rows.Count).End(xlUp).Row 'récupère la dernière ligne NON vide de la feuille "feuil1"
End With


For auth = 1 To v_derniereligne
    If Environ("USERNAME") = Cells(auth, 1) Then
        MsgBox "Accès validé !"
        '(action pour afficher les feuilles et les déprotéger)
    End If
Next auth
End Sub