XL 2016 Exécution Macro sous condition

Clotaireexcel · 26 Septembre 2023

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 · 26 Septembre 2023

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

Clotaireexcel · 26 Septembre 2023

Staple1600 à dit:
Allez, histoire de vider le magasin
Je baisse le store avec ce one-liner

Code:

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

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

C'est ça l'objectif

Staple1600 · 26 Septembre 2023

Re

Je vous dire qu'il faudra amender le code
(tout comme pour 2027 etc...)
Array(2023, 2024, 2025,2026,2027)

Clotaireexcel · 26 Septembre 2023

Staple1600 à dit:
Re

Je vous dire qu'il faudra amender le code
(tout comme pour 2027 etc...)
Array(2023, 2024, 2025,2026,2027)

Oui oui, c'est bien noté

XL 2016 Exécution Macro sous condition

Clotaireexcel

XLDnaute Nouveau

Phil69970

Clotaireexcel

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Clotaireexcel

XLDnaute Nouveau

Discussions similaires