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."
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."
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
---------------------------------------------------------------
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
---------------------------------------------------------------
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
---------------------------------------------------------------
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
---------------------------------------------------------------