Discussion :

[squab]

Bonjour à tous,

J'ai une feuille excel contenant ma facture téléphonique détaillée et j'aimerai connaitre la répartition des numéros composés vers chaque opérateur.

Comme je ne connais pas grand chose en VBA, est-ce que quelqu'un pourrait me donner un coup de pouce ?

J'ai deux procédures à créer, une première qui formate la colonne des numéros appelés et une seconde qui indique pour chaque numéro le nom de l'opérateur.

Ci-joint, une feuille Excel avec un exemple de données et les algos que je dois transcrire en VBA.

Merci d'avance pour votre aide.

SqUaB

[fred65200]

bonjour,
un exemple avec une plage nommée (cf. code)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Tri0033()
Dim C As Range
Dim maStr As String
'pour chaque cellules de ma plage Numéro_Appelé
'insertion / noms / définir
'nom : --> Numéro_Appelé
'fait référence à : --> =DECALER('Facture Detaillee'!$C$4;;;NBVAL('Facture Detaillee'!$C:$C)-1;1)
For Each C In Range("Numéro_Appelé")
  ' si les 4 premiers chiffres sont 0033, passage direct à la ligne Suite
  If Left(C.Text, 4) = "0033" Then GoTo suite
  'sinon test sur les 2 premiers chiffres
  If Left(C.Text, 2) Like "0[1-9]" Then C.Value = "0033" & Right(C.Text, Len(C.Text) - 1)
  If Left(C.Text, 2) Like "33" Then C.Value = "00" & C.Text
suite:
'après ajout des 0033, test des 6 premiers chiffres
  maStr = Left(C.Text, 6)
  Select Case True
    Case maStr Like "0033[1-5]#":   C(1, 5) = "Fixe"
    Case maStr Like "003366": C(1, 5) = "BouygTel"
    Case maStr Like "00336[0-5]": C(1, 5) = "SFR"
    Case maStr Like "00336[6-8]": C(1, 5) = "Orange" ' j'ai ajouté 068#######  = Orange
    Case Else: C(1, 5) = "Autre Opérateur"
  End Select
Next C
End Sub

cordialemrnt

[Invité]

Bonjour

Juste une truc qui n'a rien à voir avec l'informatique, c'est que ce que tu demandes n'est pas fiable, car maintenant on peut changer d'opérateur sans changer de numéro.

[squab]

Bonsoir à tous,

Merci infiniment Fred ! c'est parfait et je peux facilement compléter avec les numéros spéciaux, numéros non-géographique (voip),etc.

Concernant ta remarque Starec, tu as tout a fait raison, mais mon objectif est juste d'avoir une idée de ma consommation et du réseau le plus souvent utilisé. Certes la portabilité du numéro fiche tout en l'air mais pour l'instant le ratio des numéros portés par rapport à l'ensemble des numéros est dérisoire donc les résultats ne seront pas trop faux. Mais plus tard, si on veut être précis, il faudra une base de données (chez l'ARCEP ?) qui répondra à ce genre de requête.

A+

Fred