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

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

Phil69970 à dit:
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

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

Clotaireexcel · 26 Septembre 2023

Phil69970 à dit:
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

Phil69970

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

Phil69970 · 26 Septembre 2023

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

Phil69970 à dit:
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 · 26 Septembre 2023

Re

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

Clotaireexcel · 26 Septembre 2023

Phil69970 à dit:
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 · 26 Septembre 2023

@Clotaireexcel

Clotaireexcel à dit:
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 · 26 Septembre 2023

Bonsoir le fil,

Une autre syntaxe possible

VB:

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

Staple1600 à dit:
Bonsoir le fil,

Une autre syntaxe possible

VB:

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

Re

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

Code:

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

Clotaireexcel · 26 Septembre 2023

Staple1600 à dit:
Re

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

Code:

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

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

XL 2016 Exécution Macro sous condition

Clotaireexcel

XLDnaute Nouveau

Phil69970

Phil69970

XLDnaute Barbatruc

Clotaireexcel

XLDnaute Nouveau

Clotaireexcel

XLDnaute Nouveau

Clotaireexcel

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Clotaireexcel

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Clotaireexcel

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Clotaireexcel

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Clotaireexcel

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires