cs_Repie
Messages postés103Date d'inscriptionmardi 10 octobre 2000StatutMembreDernière intervention 5 mars 2006
-
27 août 2002 à 18:33
logisim
Messages postés49Date d'inscriptionmardi 8 mai 2001StatutMembreDernière intervention14 août 2004
-
15 juin 2004 à 19:40
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
logisim
Messages postés49Date d'inscriptionmardi 8 mai 2001StatutMembreDernière intervention14 août 2004 15 juin 2004 à 19:40
Il y a quand même beaucoup plus simple ! Dans un module :
Function Operateur(Numero As String) As String
If Len(Numero) <> 10 Then Exit Function
If Not IsNumeric(Numero) Then Exit Function
Select Case CInt(Mid$(Numero, 3, 2))
Case 7 To 8, 30, 70 To 89: Operateur = "Orange"
Case 3, 9 To 24: Operateur = "SFR"
Case 60 To 69, 98 To 99: Operateur = "Bouygues"
End Function
cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003 30 août 2002 à 14:16
et marchera bientot plus, car bientot on pourra garder son numéro en changeant d'opérateur... ca a été décidé yapas longtemps...
tareumleretour
Messages postés38Date d'inscriptionjeudi 27 juin 2002StatutMembreDernière intervention22 mai 20051 28 août 2002 à 23:34
En faite comme je n'avais jamais fait de module de classe, c'était pour moi locasion d'en faire un. Et puis faire une fonction ou un module cela n'a pas d'importance car c'est juste une source a aprofondir. Nickadele a raison, j'aurai du preciser de ce code ne marche que pour la france.(Merci Nick)
nickadele
Messages postés1251Date d'inscriptionmercredi 7 août 2002StatutModérateurDernière intervention10 avril 2013 28 août 2002 à 10:27
Uniquement valable pour la france :o(
car en Belgique on peut changer d'opérateur sans changer de numéro.
faudra donc approfondir
cs_Pingouin
Messages postés262Date d'inscriptionlundi 26 août 2002StatutMembreDernière intervention24 août 2005 28 août 2002 à 09:24
C'est vrai koi une tiote fct et ct bon. Menfin on va pa core critiquer.
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 28 août 2002 à 09:02
Bonne idée, mais pourquoi avoir choisi un module de classe ?
Une simple Fontion aurait suffit :
Public GetOpérateur(ByVal Numéro as String) as String
Des fois, vous vous compliquez la vie ...
cs_Repie
Messages postés103Date d'inscriptionmardi 10 octobre 2000StatutMembreDernière intervention 5 mars 2006 27 août 2002 à 18:33
15 juin 2004 à 19:40
Function Operateur(Numero As String) As String
If Len(Numero) <> 10 Then Exit Function
If Not IsNumeric(Numero) Then Exit Function
Select Case CInt(Mid$(Numero, 3, 2))
Case 7 To 8, 30, 70 To 89: Operateur = "Orange"
Case 3, 9 To 24: Operateur = "SFR"
Case 60 To 69, 98 To 99: Operateur = "Bouygues"
End Function
30 août 2002 à 14:16
28 août 2002 à 23:34
28 août 2002 à 10:27
car en Belgique on peut changer d'opérateur sans changer de numéro.
faudra donc approfondir
28 août 2002 à 09:24
28 août 2002 à 09:02
Une simple Fontion aurait suffit :
Public GetOpérateur(ByVal Numéro as String) as String
Des fois, vous vous compliquez la vie ...
27 août 2002 à 18:33