Bonsoir,

Je bloque sur un truc tout bête en vba.
j'aimerais à partir d'une feuille d'un autre classeur, copier une valeur (à partir d'une date et d'un nom) et les coller dans la bonne cellule de la ligne avec la meme date et le meme n0m.

voici mon code:

For i = 2 To 100
code = wb.Sheets(1).Cells(i, 1)
date1 = wb.Sheets(1).Cells(i, 3)
valeur = wb.Sheets(1).Cells(i, 4)

If wb.Sheets(1).Cells(i, 1) = wk_ms.Cells(i, 2) Then
wk_ms.Cells(i, 4) = valeur
End If
next

le probleme c'est que les lignes entre les 2 classeurs ne sont pas alignés du coup ça risque jamais de "matcher" et coller quoi que ce soit.

si quelqu'un peut m'aider ce soir je lui en serais reconnaissant merci

j'ai simplifié (en voulant juste dabord faire avec le code puis je rajouterai la date) et pas mis les déclarations de var dans mon post.

exemple : pour i = 2 ça donne

if wb.sheets(1).Cells(2,1) = wk_ms.cells(2,2)
then
...

Or les lignes ne sont pas au meme endroit sur les 2 classeurs.

Je comprends pas trop, mais je PENSE que c'est un problème d'algorithmie plus que de VBA là. Tu utilises deux champs de données différents (tes deux feuilles), j'te conseillerais donc deux boucles for imbriquées.

Un truc du genre:
For i = minIndexFeuilleA to maxIndexFeuilleA
For j = minIndexFeuilleB to maxIndexFeuilleB
if wb.sheets(1).Cells(i,1) = wk_ms.cells(j,2)