Discussion :

[Kadom]

Bonjour,

Je viens à peine de me mettre au VBA, car je suis en train de travailler sur de lourds fichiers excel avec plusieurs centaines de lignes. Je dois ajouter des codes postaux là où ce n'est pas renseigné. J'ai donc, commencer les macros.

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
Sub ville_to_cp()
 
    ' Selectionne la première cellule du tableau
    Range("L6").Select
 
    ' Boucle tant que pas vide
    Do While Not (IsEmpty(ActiveCell))
 
        Ville = ActiveCell.Value
        Selection.Offset(0, -1).Select
        CP = ActiveCell.Value
        Selection.Offset(0, 1).Select
 
 
        If IsEmpty(CP) Then
            Selection.Offset(0, -1).Select
 
            Select Case Ville
				Case "MARSEILLETTE" 
					ActiveCell.Value = "11800"
		' 1 seul exemple car  il y a bcp de trop ville '
 
            End Select
 
            Selection.Offset(0, 1).Select
 
        End If
 
        Selection.Offset(1, 0).Select
 
    Loop
 
End Sub

Le code fonctionne. Mon problème est le suivant: excel ne veux pas que j'importe mon fichier ("dev." sous notepad ++) car celui-ci est trop lourd (2,14Mo). Il y a-t-il un moyen d'exécuter tout de même cette macro dans ma feuille ?

Merci d'avance.

[antonysansh]

Mettre dans un feuille les villes avec le CP associé, filtrer sur les lignes sans CP et y mettre une formule RECHERCHEV n'est pas plus simple que ta macro ?

[Kadom]

Effectivement, je ne connaissais pas cette formule, elle est plutôt sympa.
Je te remercie de ton aide !