indicatif régionaux tel

[ediu]

Bonsoir,
Je cherche à créer un tableau excel des indicatifs régionaux tél.
Pour chaque numéro, l'indicatif dépendant du code postal

Je me demandais s'il n'existait pas une façon plus "jolie" de créer une table en macro de telle sorte à remplacer

Range("A1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "4"

par quelquechose du style

Dim cpost as Integer, i as Integer, Lign as String
with Sheets("Feuil1")
for i = 1 to 95
Lign= .cells (a, cpost)
Next i
End with

ou i serait les 95 départements et a 1,2,3,4 ou 5
Je ne sais pas construire le tableau des variables.
Pourriez-vous m'aider ?
Merci
ed

 

[mercant76]

Re : indicatif régionaux tel

bonsoir,

va voir là : Ce lien n'existe plus

@+

 

[ediu]

Re : indicatif régionaux tel

bonsoir,

va voir là : Ce lien n'existe plus

@+

Merci pour cette réponse mais je connais la correspondance des indicatifs avec les départements.
Ce que je ne parviens pas à faire, c'est le transcrire dans une macro.

Cordialement
ed

 

[Staple1600]

Re : indicatif régionaux tel

Bonsoir

Moi c'est pas le neuf, c'est le 2

Sub a()
Dim deux, i&
deux = Array(14, 18, 22, 27, 28, 29, 35, 36, 37, 41, 44, 45, 49, 50, 53, 56, 61, 72, 76, 85, 974)
For i = 0 To UBound(deux)
Cells(i + 1, 1) = "(2) " & deux(i)
Next i
End Sub

A toi de voir ce que cela peut t'inspirer.

 

[ediu]

Re : indicatif régionaux tel

Bonsoir

Moi c'est pas le neuf, c'est le 2

Sub a()
Dim deux, i&
deux = Array(14, 18, 22, 27, 28, 29, 35, 36, 37, 41, 44, 45, 49, 50, 53, 56, 61, 72, 76, 85, 974)
For i = 0 To UBound(deux)
Cells(i + 1, 1) = "(2) " & deux(i)
Next i
End Sub

A toi de voir ce que cela peut t'inspirer.

C'est exactement cette inspiration qui me manquait.
Merci, je vais chercher maintenant.

ed