Discussion :

[galigori]

Bonsoir,

Je dispose de deux fichiers :
- un fichier avec les codes des départements dans la colonne A (01, 02, 03...) et les noms dans la colonne B (Ain, Aisne, Allier...).
- un fichier avec les codes postaux dans la colonne C et je veux écrire le nom du département dans la colonne G

Voilà ma macro (qui ne fonctionne pas) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub DptRegion()
Dim Cel As Range
 
Application.ScreenUpdating = False
 
Set Cel = Range("g1")
  Cel.Formula = "=VLOOKUP(MID(" & Cel.Offset(0, -4).Value & ",1,2),départements.csv!A:B,2,FALSE)"
  Cel.Copy Destination:=Range("g1:g" & Range("c65536").End(xlUp).Row)
 
Application.ScreenUpdating = True
 
End Sub

Elle ne fonctionne pas pour deux raisons.

1) Elle renvoie dans la case G1 : =RECHERCHEV(STXT(64500;1;2);départements.csv!A:B;2;FAUX), ce qui ne fonctionne pas. Pourtant, STXT(64500;1;2) renvoie bien 64 et =RECHERCHEV(64;départements.csv!A:B;2;FAUX) fonctionne.

2) Dans les cases G2, G3, G4,... je retrouve la même valeur que dans la case G1... donc ma macro ne reprend pas les codes postaux de la colonne C.

Que dois-je faire?

Merci d'avance.

[sabzzz]

bonjour galigori,

remplace

Code :

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

STXT(64500;1;2)

par

Code :

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

CDbl(STXT(64500;1;2))

[galigori]

Ca ne fonctionne pas

J'obtiens la formule "=RECHERCHEV(CDbl(STXT(64500;1;2));départements.csv!A:B;2;FAUX)" qui renvoie "#NOM?". Alors que "=RECHERCHEV(64;départements.csv!A:B;2;FAUX)" renvoie Pyrénées Atlantiques.

"=CDbl(STXT(64500;1;2))" renvoie aussi "#NOM?".

Merci quand même.

[mercatog]

Code :

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

Cel.Formula = "=VLOOKUP(INT(MID(" & Cel.Offset(0, -4).Address(0, 0) & ",1,2)),départements.csv!A:B,2,FALSE)"

ou

Code :

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

1
2
3
4
With Range("g1")
    .FormulaR1C1 = "=VLOOKUP(INT(MID(RC[-4],1,2)),departements!C[-6]:C[-5],2,FALSE)"
    .AutoFill Range("g1:g" & Range("c65536").End(xlUp).Row)
End With

[sabzzz]

bonjour galigori,

Code :

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

1
2
x = CDbl(Mid(Cel.Offset(0, -4), 1, 2))
Cel.Formula = "=VLOOKUP(" & x & ",départements.csv!A:B,2,FALSE)"

[galigori]

Cela fonctionne parfaitement (avec INT) ! Merci beaucoup !!!-