Discussion :

[magicpm7]

Bonjour,

je souhaiterais transcrire l'algorithme suivant en VBA, mais, étant d'une ignorance totale dans ce domaine, je sollicite l'aide d'un bienveillant faux-rhumeur...

Voici le problème : J'ai deux feuilles - appelons-les feuille N°1 et feuille N°2, contenant chacune une liste d'enregistrements.

POUR toutes les lignes de la feuille N°1

SI existe, dans la feuille N°2, une ligne
- dont le contenu des champs C et D est égal au contenu des champs A et B de la ligne en cours sur la feuille N°1
ET
- dont le contenu du champ F est différent du contenu du champ E de la ligne en cours sur la feuille N°1
ALORS
copier dans une troisième feuille chacune de ces lignes

FIN SI

FIN POUR

Voilà... J'ai regardé ce qui existait dans d'autres sujets, mais rien ne me permet de répondre totalement au problème. Donc si vous avez des suggestions, je suis preneur !

Merci !

[David2304]

Bonjour,

ce code à l'air de fonctionner, n'étant pas expert en VBA, il y a surement plus simple

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
Private Sub CommandButton1_Click()
i = 1
For Each cel In Range("A1:A10")
    For Each celbis In Worksheets("Feuil2").Range("A1:A10")
If cel = celbis.Offset(0, 2) And cel.Offset(0, 1) = celbis.Offset(0, 3) And cel.Offset(0, 4) <> celbis.Offset(0, 5) Then
Rows(cel.Row).Copy
Worksheets("Feuil3").Activate
Worksheets("Feuil3").Rows(i).Select
ActiveSheet.Paste
i = i + 1
Worksheets("Feuil2").Activate
Worksheets("Feuil2").Rows(celbis.Row).Copy
Worksheets("Feuil3").Activate
Worksheets("Feuil3").Rows(i).Select
ActiveSheet.Paste
i = i + 1
Worksheets("Feuil1").Activate
End If
    Next
Next
End Sub

[Dinytro]

Pour ma part, j'aurais précisé la feuille dans le premier

Code :

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

Rows(cel.Row).Copy

Car le code que tu donnes ne semble fonctionner que si la macro est lancée depuis la feuille 1.
Je ne suis personnellement pas fan des offset mais c'est une histoire de gout.

Mais c'est du chipotage là...