Si ou ....

Le
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."
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #25763202
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
---------------------------------------------------------------
Jacquouille
Le #25763172
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
---------------------------------------------------------------
MichD
Le #25763232
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
---------------------------------------------------------------
Jacquouille
Le #25763252
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
---------------------------------------------------------------
Publicité
Poster une réponse
Anonyme