Macro automatique en fonction de la valeur d'une cellule

Bonjour,

J'ai un tableau Excel, en colonne H j'ai une liste déroulante qui me permet de choisir des villes. Je voudrais que lorsque je choisis une ville, le code Insee correspondant à cette ville se mette automatiquement en colonne I.

Voici le code que j'ai mi au point :

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
Option Explicit
Sub CodeInsee()
 
Dim wsSource As Worksheet
Dim derniereLigne As Integer
Dim i As Integer
 
Set wsSource = Worksheets("Données")
derniereLigne = Range("A" & Rows.Count).End(xlUp).Row
 
For i = 6 To derniereLigne
    If wsSource.Cells(i, "H").Value = "Bresson" Then
    wsSource.Cells(i, "I").Value = "38057"
    ElseIf wsSource.Cells(i, "H").Value = "Brié-et-Angonnes" Then
    wsSource.Cells(i, "I").Value = "38059"
    ElseIf wsSource.Cells(i, "H").Value = "Champagnier" Then
    wsSource.Cells(i, "I").Value = "38068"
    ElseIf wsSource.Cells(i, "H").Value = "Champ-sur-Drac" Then
    wsSource.Cells(i, "I").Value = "38071"
    ElseIf wsSource.Cells(i, "H").Value = "Claix" Then
    wsSource.Cells(i, "I").Value = "38111"
    ElseIf wsSource.Cells(i, "H").Value = "Corenc" Then
    wsSource.Cells(i, "I").Value = "38126"
    ElseIf wsSource.Cells(i, "H").Value = "Domène" Then
    wsSource.Cells(i, "I").Value = "38150"
    ElseIf wsSource.Cells(i, "H").Value = "Echirolles" Then
    wsSource.Cells(i, "I").Value = "38151"
    ElseIf wsSource.Cells(i, "H").Value = "Eybens" Then
    wsSource.Cells(i, "I").Value = "38158"
    ElseIf wsSource.Cells(i, "H").Value = "Fontaine" Then
    wsSource.Cells(i, "I").Value = "38169"
    ElseIf wsSource.Cells(i, "H").Value = "Fontanil-Cornillon" Then
    wsSource.Cells(i, "I").Value = "38170"
    ElseIf wsSource.Cells(i, "H").Value = "Gières" Then
    wsSource.Cells(i, "I").Value = "38179"
    ElseIf wsSource.Cells(i, "H").Value = "Grenoble" Then
    wsSource.Cells(i, "I").Value = "38185"
    ElseIf wsSource.Cells(i, "H").Value = "Le Guâ" Then
    wsSource.Cells(i, "I").Value = "38187"
    ElseIf wsSource.Cells(i, "H").Value = "Herbeys" Then
    wsSource.Cells(i, "I").Value = "38188"
    ElseIf wsSource.Cells(i, "H").Value = "Jarrie" Then
    wsSource.Cells(i, "I").Value = "38200"
    ElseIf wsSource.Cells(i, "H").Value = "Laffrey" Then
    wsSource.Cells(i, "I").Value = "38203"
    ElseIf wsSource.Cells(i, "H").Value = "Meylan" Then
    wsSource.Cells(i, "I").Value = "38229"
    ElseIf wsSource.Cells(i, "H").Value = "Montchaboud" Then
    wsSource.Cells(i, "I").Value = "38252"
    ElseIf wsSource.Cells(i, "H").Value = "Mont-Saint-Martin" Then
    wsSource.Cells(i, "I").Value = "38258"
    ElseIf wsSource.Cells(i, "H").Value = "Murianette" Then
    wsSource.Cells(i, "I").Value = "38271"
    ElseIf wsSource.Cells(i, "H").Value = "Notre-Dame-de-Commiers" Then
    wsSource.Cells(i, "I").Value = "38277"
    ElseIf wsSource.Cells(i, "H").Value = "Notre-Dame-de-Mésage" Then
    wsSource.Cells(i, "I").Value = "38279"
    ElseIf wsSource.Cells(i, "H").Value = "Noyarey" Then
    wsSource.Cells(i, "I").Value = "38281"
    ElseIf wsSource.Cells(i, "H").Value = "Poisat" Then
    wsSource.Cells(i, "I").Value = "38309"
    ElseIf wsSource.Cells(i, "H").Value = "Pont-de-Claix" Then
    wsSource.Cells(i, "I").Value = "38317"
    ElseIf wsSource.Cells(i, "H").Value = "Proveysieux" Then
    wsSource.Cells(i, "I").Value = "38325"
    ElseIf wsSource.Cells(i, "H").Value = "Quaix-en-Chartreuse" Then
    wsSource.Cells(i, "I").Value = "38328"
    ElseIf wsSource.Cells(i, "H").Value = "Saint-Barthélémy-de-Séchilienne" Then
    wsSource.Cells(i, "I").Value = "38364"
    ElseIf wsSource.Cells(i, "H").Value = "Saint-Egrève" Then
    wsSource.Cells(i, "I").Value = "38382"
    ElseIf wsSource.Cells(i, "H").Value = "Saint-Georges-de-Commiers" Then
    wsSource.Cells(i, "I").Value = "38388"
    ElseIf wsSource.Cells(i, "H").Value = "Saint-Martin-d'Hères" Then
    wsSource.Cells(i, "I").Value = "38421"
    ElseIf wsSource.Cells(i, "H").Value = "Saint-Martin-le-Vinoux" Then
    wsSource.Cells(i, "I").Value = "38423"
    ElseIf wsSource.Cells(i, "H").Value = "Saint-Paul-de-Varces" Then
    wsSource.Cells(i, "I").Value = "38436"
    ElseIf wsSource.Cells(i, "H").Value = "Saint-Pierre-de-Mésage" Then
    wsSource.Cells(i, "I").Value = "38445"
    ElseIf wsSource.Cells(i, "H").Value = "Le Sappey-en-Chartreuse" Then
    wsSource.Cells(i, "I").Value = "38471"
    ElseIf wsSource.Cells(i, "H").Value = "Sarcenas" Then
    wsSource.Cells(i, "I").Value = "38472"
    ElseIf wsSource.Cells(i, "H").Value = "Sassenage" Then
    wsSource.Cells(i, "I").Value = "38474"
    ElseIf wsSource.Cells(i, "H").Value = "Séchilienne" Then
    wsSource.Cells(i, "I").Value = "38478"
    ElseIf wsSource.Cells(i, "H").Value = "Seyssinet-Pariset" Then
    wsSource.Cells(i, "I").Value = "38485"
    ElseIf wsSource.Cells(i, "H").Value = "Seyssins" Then
    wsSource.Cells(i, "I").Value = "38486"
    ElseIf wsSource.Cells(i, "H").Value = "La Tronche" Then
    wsSource.Cells(i, "I").Value = "38516"
    ElseIf wsSource.Cells(i, "H").Value = "Varces-Allières-et-Risset" Then
    wsSource.Cells(i, "I").Value = "38524"
    ElseIf wsSource.Cells(i, "H").Value = "Vaulnaveys-le-Bas" Then
    wsSource.Cells(i, "I").Value = "38528"
    ElseIf wsSource.Cells(i, "H").Value = "Venon" Then
    wsSource.Cells(i, "I").Value = "38533"
    ElseIf wsSource.Cells(i, "H").Value = "Veurey-Voroize" Then
    wsSource.Cells(i, "I").Value = "38540"
    ElseIf wsSource.Cells(i, "H").Value = "Vif" Then
    wsSource.Cells(i, "I").Value = "38545"
    ElseIf wsSource.Cells(i, "H").Value = "Vizille" Then
    wsSource.Cells(i, "I").Value = "38562"
    End If
 
Next i
 
End Sub

Lorque j'affecte cette macro à un bouton et que je clique sur ce bouton, rien ne se passe, je voudrais savoir si le problème vient de mon code ou si il est possible qu'il vienne d'ailleurs.

Merci d'avance pour vos réponses.

Bonjour,

chez moi ça marche :ccool:

essaye de mettre MsgBox derniereligne pour voir si ça vient pas de là, ton onglet c'est bien "Données", est-ce que A est la bonne colonne pour compter la dernière ligne ?

tient nous informés

J'ai essayé avec le MsgBox, il ne fonctionne que si il n'est pas dans la boucle For.
Si je le met dans cette boucle For il ne marche pas.

Tu avais trouvé la solution SuperMichou, j'ai remplacé la colonne A pour la derniereligne par la colonne H et ça fonctionne.

Merci beaucoup !

Petite critique constructive:
pourquoi ne pas utiliser la fonction de rechercheV directement dans la cellule. ?
Le code VBA n'est d'aucune utilité.

Deuxième option: Utiliser les boucles
Code:

1 2 3 4 5 6 7 8 with sheets("DONNEES") For i = 1 to .cells(5000,1).end(xlup).row if .cells(i,1)=cells(4,5) then cells(4,6)=.cells(i,2) exit for end if next end with