Macro automatique en fonction de la valeur d'une cellule

**ElPibeOro** · 17/07/2012, 12h07

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 :

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
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.

**Supermichou** · 17/07/2012, 12h51

Bonjour,

chez moi ça marche

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

**ElPibeOro** · 17/07/2012, 13h42

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.

**ElPibeOro** · 17/07/2012, 13h43

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

Merci beaucoup !

**COCONUT2** · 17/07/2012, 13h52

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 :

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

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

Macro automatique en fonction de la valeur d'une cellule

Macros et VBA Excel

Discussions similaires

Partager

Partager