Discussion :

[Naoned005]

Bonjour!

J'ai besoin d'une aide sur une macro que je ne vois pas comment construire.

Dans le fichier ci dessous il y a un tableau dans l'onglet Port_FC+.

J'aimerais que si dans ce tableau les valeurs dans la colonne E n'apparaissent pas dans l'inventaire dans la colonne A de l'onglet Port_FC+_SansMvt, et bien certaines infos viennent du premier tableau se copier coller en dessous de l'inventaire.

Of course j'ai fait un exemple sur dans le fichier ci joint


J'espere que je me suis assez bien exprimé???

N'hésiter pas a me demander je reste tout pret.

Merci d'avance

[Naoned005]

Je pensais a une macro comme ça mais en copiant les données de l'onglet "Mvt FC" non en 231 mais apres l'inventaire qui est matérialisé par des case blanche

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub NouveauMouvement()
 
For i = 35 To 230
 For j = 10 To 182
 
If Sheets("Port_FC+_SansMvt").Range("A" & i) <> Sheets("Port_FC+").Range("E" & j) Then
 
 
 Sheets("Port_FC+").Select
    Range("E" & j).Select
    Selection.Copy
     Application.CutCopyMode = False
    Selection.Copy
    Sheets("Port_FC+_SansMvt").Select
    Range("A231").Select
    ActiveSheet.Paste
 
 
    Sheets("Port_FC+").Select
    Range("F" & j).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Port_FC+_SansMvt").Select
    Range("C231").Select
    ActiveSheet.Paste
 
    Sheets("Port_FC+").Select
    Range("J" & j).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Port_FC+_SansMvt").Select
    Range("L231").Select
    ActiveSheet.Paste
 
 
 
End If
 
Next
Next
 
 
End Sub