Discussion :

[counterbob]

Bonjour

J'ai créé ce code pour comparer les valeurs de deux colonnes et si une valeur est identique
je souhaiterai renvoyer dans la colonne L de la feuille en cours la valeurs de la colonne 5 de la feuille source.

Mais ce code ne renvoi pas la bonne valeur

Merci pour une piste

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
Sub CopyValeurColonne5()
Dim VALEURA As String, VALEURB As String
'
For i = 2 To Range("a65000").End(xlUp).Row
VALEURA = Range("I" & i).Value
For j = 2 To Range("a65000").End(xlUp).Row
VALEURB = Sheets("FILT").Range("I" & j)
 
If VALEURA = VALEURB Then  'si trouvé
Cells(i, 12) = Sheets("FILT").Range("I" & j).Offset(0, -4).Value  'renvoie la valeur de la colonne E dans la colonne L
 
End If
Next j
Next i
End sub

[clementmarcotte]

Bonjour

Bonjour


Mais ce code ne renvoi pas la bonne valeur

Merci pour une piste

Ben quoi ?

Exécuter pas à pas avec des espions, la pile des appels et en regardant ce qui se passe sur la feuille de calcul.

[Menhir]

Pour commencer, un petit nettoyage de ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub CopyValeurColonne5()
Dim i As Long, j As Long
 
For i = 2 To Cells(Rows.Count, "I").End(xlUp).Row
    For j = 2 To Sheets("FILT").Cells(Rows.Count, "I").End(xlUp).Row
        If Sheets("FILT").Cells(j, "I").Value = Cells(i, "I").Value Then
            Cells(i, "L") = Sheets("FILT").Cells(j, "E").Value
            Exit For
        End If
    Next j
Next i
End sub

Mais pour faire plus efficace, il faudrait remplacer le second For To par un Find.

Pour que ça fonctionne correctement, il faut s'assurer que la feuille active au lancement de la macro soit bien la feuille destination.

J'ai créé ce code pour comparer les valeurs de deux colonnes et si une valeur est identique
je souhaiterai renvoyer dans la colonne L de la feuille en cours la valeurs de la colonne 5 de la feuille source.

Pourquoi ne pas avoir fait ça avec des fonctions Excel (un mélange de INDEX et EQUIV par exemple) ?
Ce serait plus simple, plus sûr, plus souple et plus rapide.

[counterbob]

Merci, c’est parfait
Je ne veux pas mettre de formule dans les cellules car il y a 45000 lignes et j’ai remarqué que le délai de mise à jour était trop lent et la taille du classeur trop importante, de plus le classeur et en mode partagé.
Merci encore