XL 2016 Exécution Macro sous condition

Clotaireexcel

XLDnaute Nouveau
Bonjour à tous les membres de la communauté. Je suis novice en Excel si bien que des situations simples (peut-être)
Peuvent paraître complexe pour moi. Bref.

J'ai écris une Macro et je veux qu'à son exécution, si un certain nombre de conditions ne sont pas réunies, qu'elle ne s'exécute pas.

Elle est schématisé comme suit:

Sub test()
Dim r as range
Set ws = feuil3
If ws.range ("F4").value <> "2023" ou "2024" ou "2025" Then Exit sub
Feuil2. Activate
End if
End sub


Voilà mon code, mais il ne marche pas.

Quelqu'un saurait - il m'aider.

Merci d'avance
 
Solution
Bonjour @Clotaireexcel

Essaye ceci cela ira beaucoup mieux

VB:
Sub test()
Dim r As Range ' A quoi cela sert ?
Dim Ws As Worksheet

Set Ws = Feuil3
If Ws.Range("F4").Value <> "2023" And Ws.Range("F4").Value <> "2024" And Ws.Range("F4").Value <> "2025" Then Exit Sub
Feuil2.Activate
End Sub

Merci de ton retour

Discussions similaires

Statistiques des forums

Discussions
313 320
Messages
2 097 137
Membres
106 848
dernier inscrit
toufk