Discussion :

[neGo33]

Bonjour,
Je possède un fichier Excel avec 2 feuilles.

Dans ma feuille 1 j'ai 4 colonnes dont 2 remplies (A = code alphanumérique, B = code numérique).
Dans la feuille 2 j'ai la même chose, mais pas forcément les mêmes données (c'est le but ^^).

Pour remplir la colonne D de la feuille 1, je fais une macro qui recherche pour chaque ligne le code numérique dans la feuille 2.
Jusque là pas de problème, si le code est trouvé je fais noter quelque chose dans D.
Mais maintenant j'aimerai remplir la colonne C de la feuille 1 avec la valeur de la colonne A (donc code alphanumérique) de la feuille 2.
Et là je bug...

Pour chercher je fais le code suivant :

Code :

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

1
2
3
4
5
6
7
8
 
'val = code numérique de la feuille 1
Set CodeFeuil2 = Worksheets("Feuil2").Columns(2).Cells.Find(val)
 
If Not CodeFeuil2 Is Nothing Then
' LigneCourante = le numéro de la ligne, incrémenté via une boucle For
Worksheets("Feuil1").Range("D" & LigneCourante) = CodeFeuil2
End If

D'avance merci de vos réponses

[Theze]

Bonjour,

Il te faut juste adapter ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim CodeFeuil2 As Range
Dim MaValeur As String
 
MaValeur = "123abc"
'val = code numérique de la feuille 1 <-- c'est pas bon !
Set CodeFeuil2 = Worksheets("Feuil2").Columns(1).Cells.Find(MaValeur, , xlValues, xlWhole)
 
If Not CodeFeuil2 Is Nothing Then
    ' LigneCourante = le numéro de la ligne, incrémenté via une boucle For
    Worksheets("Feuil1").Range("C" & LigneCourante) = CodeFeuil2.Value
 
End If

J'ai remplacé ta variable "Val" par "MaValeur" car il est fortement conseillé de ne pas utiliser des mots réservés à VB et Val est une fonction VB

Hervé.