Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Si ou ....

Si ou ....

4 réponses
Avatar
Jacquouille
Bonjour

Réduction, économie....
Comment puis-je écrire ceci en plus court, plus rapide, plus propre, plus
académique ...
If Month(c) = 1 Or Month(c) = 3 Or Month(c) = 5 Or Month(c) = 7 Or Month(c)
= 9 Or Month(c) = 11 Then

Je pensais à un truc du genre:
si(mois(c)=1,3,5,7,9,11) .....
ou : si(mois(c)=impair .....

Déjà merci
Au bon plaisir de vous lire

Jacquouille qui régresse avec l'âge -(

" Le vin est au repas ce que le parfum est à la femme."
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichD
Bonjour,

Select case Month(c)
Case 1, 3 ,5 ,7 ,9 , 11
'Le code à exécuter
Case Else
'Si ce n'est pas un de ces mois-là
'le code à exécuter
End Select

MichD
---------------------------------------------------------------
Avatar
Jacquouille
Merci Denis
J'avais pensé à Match dans un premier temps, mais mon neurone ne m'a pas
permis d'y arriver. Le salaud!
Grand merci et bonne fin de journée.
Ici, il pleut depuis deux semaines.....

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
l5aruo$2q2$

Bonjour,

Select case Month(c)
Case 1, 3 ,5 ,7 ,9 , 11
'Le code à exécuter
Case Else
'Si ce n'est pas un de ces mois-là
'le code à exécuter
End Select

MichD
---------------------------------------------------------------
Avatar
MichD
Une suggestion avec Match...

Sub test()
Dim Arr(), X As Variant, C As range
Arr = Array(1, 3, 5, 7, 9, 11)

X = Application.Match(Month(C), Arr, 0)
If IsNumeric(X) Then
'OK ton code
Else
'Not Ok
'ton code
End If
End Sub

MichD
---------------------------------------------------------------
Avatar
Jacquouille
Oui, mais cela me semble moins limpide que avec Select case.
Je garde les deux.
merci beaucoup.
jacques.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
l5atko$7gf$

Une suggestion avec Match...

Sub test()
Dim Arr(), X As Variant, C As range
Arr = Array(1, 3, 5, 7, 9, 11)

X = Application.Match(Month(C), Arr, 0)
If IsNumeric(X) Then
'OK ton code
Else
'Not Ok
'ton code
End If
End Sub

MichD
---------------------------------------------------------------