XL 2016 If avec conditions variables

  • Initiateur de la discussion Initiateur de la discussion Victor42
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Victor42

XLDnaute Nouveau
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:
Code:
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...
 
Bonjour

pas facile de comprendre ce que fait ton code sans aucune explication ni fichier exemple..
mais un essai avec ceci
VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
124
Réponses
8
Affichages
474
Réponses
5
Affichages
186
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
497
Retour