Discussion :

[billydjo]

Bonjour,
Je cherche de l'aide sur ce forum parce que je cherche à faire des copies de cellules sous conditions que je pense ne sont pas possible avec les formules et donc faut surement passer en VBA que je ne maitrise pas.
J'explique:
Dans un fichier Excel j'ai 2 feuilles appeler Feuille1 et Feuille2, dans la Feuille1 j'ai une liste de nombre qui commence en D2, dans la Feuille2 j'ai une 2ème liste de nombre qui commence en A2 et une 3ème liste de nombre qui commence en B2. Je veux comparer la liste D2 de la Feuille1 à la liste A2 de la Feuille2 et quand une égalité est trouvé copier le nombre de la 3ème liste dans une colonne J correspondant à la ligne de l'égalité de la Feuille1. Ce n'est peut-être pas claire je donne un exemple:
Si Feuille1 D24 = Feuille2 A15 alors copier le nombre Feuille2 B15 --> Feuille1 J24. J'espère que c'est plus claire résumé ainsi.
Merci pour votre aide.

[Invité]

Bonjour billydjo

Alors...


En résumé.... merci de joindre un fichier avec exemple SVP

A+

[BENNASR]

Bonjour
tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim Plage As Range
Dim lig As Long
Set F1 = Sheets("Feuille1")
Set F2 = Sheets("Feuille2")
Set Plage = F2.Range("A2:A" & F2.Range("A" & Rows.Count).End(xlUp).Row)
lig = F1.Range("D" & Rows.Count).End(xlUp).Row
For i = 2 To lig
Set C = Plage.Find(F1.Cells(i, "D"), LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then F1.Cells(i, "J") = F2.Cells(C.Row, "B")
Next i
End Sub

[billydjo]

Bonjour
tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim Plage As Range
Dim lig As Long
Set F1 = Sheets("Feuille1")
Set F2 = Sheets("Feuille2")
Set Plage = F2.Range("A2:A" & F2.Range("A" & Rows.Count).End(xlUp).Row)
lig = F1.Range("D" & Rows.Count).End(xlUp).Row
For i = 2 To lig
Set C = Plage.Find(F1.Cells(i, "D"), LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then F1.Cells(i, "J") = F2.Cells(C.Row, "B")
Next i
End Sub

MERCI BENNASR.... ta macro marche nickel exactement ce que je voulais. Un vrai pro

[billydjo]

Merci pour votre aide à tous les deux.

[billydjo]

Bonjour billydjo

Alors...


En résumé.... merci de joindre un fichier avec exemple SVP

A+

J'ai mis un fichier avec comme exemple Feuille2 A22 = Feuille1 D95 alors je recopie la cellule Feuille2 B22 vers Feuille1 J95.

Merci

[BENNASR]

et c'est ce qu'il fait le code fourni non??