indicatif régionaux tel

ediu · 4 Octobre 2010

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

Code:

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

par quelquechose du style

Code:

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 · 4 Octobre 2010

Re : indicatif régionaux tel

bonsoir,

va voir là : Ce lien n'existe plus

@+

ediu · 4 Octobre 2010

Re : indicatif régionaux tel

mercant76 à dit:
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 · 5 Octobre 2010

Re : indicatif régionaux tel

Bonsoir

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

Code:

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 · 5 Octobre 2010

Re : indicatif régionaux tel

Staple1600 à dit:
Bonsoir

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

Code:

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

indicatif régionaux tel

ediu

Guest

mercant76

XLDnaute Impliqué

ediu

Guest

Staple1600

XLDnaute Barbatruc

ediu

Guest

Discussions similaires

indicatif régionaux tel

ediu

Guest

mercant76

XLDnaute Impliqué

ediu

Guest

Staple1600

XLDnaute Barbatruc

ediu

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency