XL 2016 Exécution Macro sous condition

[Clotaireexcel]

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

 

[Phil69970]

Bonjour @Clotaireexcel

Essaye ceci cela ira beaucoup mieux

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

 

[Clotaireexcel]

Bonjour @Clotaireexcel

Essaye ceci cela ira beaucoup mieux

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

 

[Clotaireexcel]

Bonjour Phil69970
Merci d'avance, je vous reviens bientôt

 

[Clotaireexcel]

Bonjour @Clotaireexcel

Essaye ceci cela ira beaucoup mieux

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

Phil69970

Le code est parfait.
Merci bien pour le coup de pousse

 

[Phil69970]

Bonjour

@Clotaireexcel

La logique est de valider le post contenant la réponse que tu as choisi et non pas ton propre post car tu n'as rien trouvé du tout sinon tu ne serais pas venu demander de l'aide

 

[Clotaireexcel]

Bonjour

@Clotaireexcel

La logique est de valider le post contenant la réponse que tu as choisi et non pas ton propre post car tu n'as rien trouvé du tout sinon tu ne serais pas venu demander de l'aide

Hah, je suis nouveau donc je ne sais pas c'est par où on clos la requête.
Alors je clique sur mon poste pour décrocher et je clique sur votre réponse pour la cocher.
C'est comme ça j'espère ?

 

[Phil69970]

Re

Le fait de valider une réponse indique à tout le monde qu'une solution satisfait le demandeur et correspond à sa demande

 

[Clotaireexcel]

Re

Le fait de valider une réponse indique à tout le monde qu'une solution satisfait le demandeur et correspond à sa demande

Regarde la pièce jointe 1179753

Ok. C'est bien noté

C'est où je dois cliquer exactement pour valider?
Sur la toute première réponse ou bien?

 

[Phil69970]

@Clotaireexcel

C'est où je dois cliquer exactement pour valider?
Sur la toute première réponse ou bien?

C'est bien comme tu l'as fait c'est à dire sur la réponse du post #2 puisque c'est la réponse qui correspond à ta demande ici c'est facile car il n'y a qu'une seule réponse proposée.

Quand tu as plusieurs personnes qui te proposent une réponse tu valides la réponse de la personne qui correspond à celle que tu choisis d'appliquer dans ton fichier.

 

[Staple1600]

Bonsoir le fil,

Une autre syntaxe possible

Sub test_B()
Set R = Feuil1.[F4]
Select Case R.Value
Case 2023, 2024, 2025
Feuil2.Activate
Case Else
Exit Sub
End Select
End Sub

 

[Clotaireexcel]

Bonsoir le fil,

Une autre syntaxe possible

Sub test_B()
Set R = Feuil1.[F4]
Select Case R.Value
Case 2023, 2024, 2025
Feuil2.Activate
Case Else
Exit Sub
End Select
End Sub

Staple1600
Là aussi, c'est cool. Merci également pour votre aide.

 

[Staple1600]

Re

Une autre pour la route (et pour laisser mon café refroidir)

Const ANNO As String = "2023/2024/2025"
Sub test_C()
If InStr(1, ANNO, [F4], vbTextCompare) > 0 Then Feuil2.Activate
End Sub

 

[Clotaireexcel]

Re

Une autre pour la route (et pour laisser mon café refroidir)

Const ANNO As String = "2023/2024/2025"
Sub test_C()
If InStr(1, ANNO, [F4], vbTextCompare) > 0 Then Feuil2.Activate
End Sub

Grandement Merci

 

[Staple1600]

Allez, histoire de vider le magasin
Je baisse le store avec ce one-liner

Sub One_Liner()
If Not IsError(Application.Match([F4], Array(2023, 2024, 2025), 0)) Then Feuil2.Activate
End Sub

Evidemment en 2026, il faudra mettre la main dans le code