Fonction avec Select Case

bonjour,

Sub selection()
select case range("a1").value
case 10 to 1000
msgbox "10"
case 1001 to 2000
msgbox "20"
case 2001 to 3000
msgbox "30"
case else
msbox "Valeur inconnue"
end select
end sub

"Florian" <florian@toto.fr> a écrit dans le message de
news:%23n$PC6JhFHA.1948@TK2MSFTNGP12.phx.gbl...

J'essaie de créer une fonction avec Select Case
je cherche quelque chose du genre
Pourriez-vous me fournir un petit exemple ?
Merci beaucoup
Flo riant

de 10 à 1000
afficher 10
de 1001 à 2000
afficher 20
de 2001 à 3000
afficher 30

Bonjour Florian,

Select Case Range("A1")
Case 10 To 1000: Range("B1") = 10
Case 1001 To 2000: Range("B1") = 20
Case 2001 To 3000: Range("B1") = 30
End Select

J'essaie de créer une fonction avec Select Case
je cherche quelque chose du genre
Pourriez-vous me fournir un petit exemple ?
Merci beaucoup
Flo riant

de 10 à 1000
afficher 10
de 1001 à 2000
afficher 20
de 2001 à 3000
afficher 30

--
Cordialement,

Jacques.

Merci beaucoup à tous les 2
Bonne soirée
Flo riant

"Jacques93" <jacques.le-gocNO@PUBwouanadoo.fr> a écrit dans le message de
news: uLnl$BKhFHA.1148@TK2MSFTNGP12.phx.gbl...

Bonjour Florian,

Select Case Range("A1")
Case 10 To 1000: Range("B1") = 10
Case 1001 To 2000: Range("B1") = 20
Case 2001 To 3000: Range("B1") = 30
End Select

J'essaie de créer une fonction avec Select Case
je cherche quelque chose du genre
Pourriez-vous me fournir un petit exemple ?
Merci beaucoup
Flo riant

de 10 à 1000
afficher 10
de 1001 à 2000
afficher 20
de 2001 à 3000
afficher 30

--
Cordialement,

Jacques.

Bonsour® Florian
;o)))
une solution sans select case !!!!
si... si...!

Function floriant(target)
floriant = 10 * Int((target + 999) / 1000)
End Function

@+

--
http://viadresse.com/?94912042

Bonjour Modeste,

Florian voulait un Select Case. Imagine :

Select Case Range("A1")
Case 10 To 1000: Range("B1") = 10
Case 1001 To 2000: Range("B1") = 20
Case 2001 To 3000: Range("B1") = 30
Case 3001 To Omega : Range("B1") = 1
End Select

floriant part dans le cosmos :-D

Bonsour® Florian
;o)))
une solution sans select case !!!!
si... si...!

Function floriant(target)
floriant = 10 * Int((target + 999) / 1000)
End Function

@+

--
Cordialement,

Jacques.

Bonsour® Jacques93
Florian voulait quelque chose du genre : Select Case. ........

Imagine :
Case 3001 To Omega : Range("B1") = 1

je n'ose imaginer : le Case Else !!!!
;o)))

--
http://viadresse.com/?94912042