Discussion :

[nosnoz]

Bonjour à tous,

Voici mon problème : j'ai deux fichiers excel contenant chacun diverses informations sur des achats. Dans chaque fichier on retrouve un code client ( un client est désigné par le même code dans les deux fichiers ). Dans l'un des fichiers, le client est associé à une catégorie. Je souhaite que cette catégorie se retrouve dans l'autre fichier en face du bon client.

J'ai d'abord utilisé deux boucles for, le code marchait très bien mais, le fichier étant important, le code prenait autour d'1h30 à s'exécuter...
J'ai alors trouvé une autre façon de faire plus rapide que je ne connaissais pas en fouillant un peu : passer par deux variables de type Variant.

Cependant, lors de l'exécution du code, survient l'erreur d'exécution 9.
Voici mon code :

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
Sub segmentPersonnesFichierOTC()
nomClasseur = InputBox("Entrer le nom du classeur contenant les informations sur les OTC")
Set feuilOTC = Workbooks.Item(nomClasseur).Worksheets.Item(1)
Dim plage As Range
Dim v As Variant
Dim w As Variant
Dim plage2 As Range
Dim m As Long
Dim i As Long
Dim j As Long
 
n = WorksheetFunction.CountA(Me.Range("A:A"))
m = WorksheetFunction.CountA(feuilOTC.Range("A:A"))
Set plage = Me.Range("A2:K" & n)
Set plage2 = feuilOTC.Range("A2:G" & m)
v = plage
w = plage2
 
For j = 1 To m
    For i = 1 To n
        If v(i, 1) = w(j, 1) Then
            w(j, 11) = v(i, 7)
         End If
     Next i
Next j
 
plage = v
plage2 = w
 
End Sub

Le problème semble venir du " w(j, 11) = v(i, 7) " de la ligne 22.
Quelqu'un aurait-il une solution à me proposer ?

[Theze]

Bonjour,

Tu utilises la fonction "CountA()" qui te retourne le nombre de cellules non vide en colonne A le problème est que tu définis les plages à partir de A2 donc, arrivé au nombre de lignes retournée par NBVAL() tu te retrouve hors du tableau donc, il te faut retrancher le décalage à savoir ici, 1 si tu commences à A3 ça sera -2 etc... :

Code :

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

1
2
3
4
5
6
7
8
 
For j = 1 To m - 1
    For i = 1 To n - 1
        If v(i, 1) = w(j, 1) Then
            w(j, 11) = v(i, 7)
         End If
     Next i
Next j

[nosnoz]

Bonjour Theze, merci de ta réponse

J'ai donc retranché mes compteurs comme tu me l'a conseillé mais le problème persiste.
Il survient toujours lorsque le programme arrive au "w(j, 11) = v(i, 7)", cependant plusieurs valeurs de i ont été passées, on peut en déduire que le problème ne vient pas de là. Est-ce que tu aurais une idée d'où pourrait venir le problème dans ce cas ?

[nosnoz]

Je n'ai rien dit, j'ai trouvé une deuxième erreur venant de mon fichier, mais tu avais quand même raison, sans retrancher le décalage le programme ne pouvait pas marcher quand même. Merci beaucoup pour ton aide

[Theze]

Mais c'est avec grand plaisir