Discussion :

[charlix]

Bonjour,

J'ai un petit souci avec une macro que je souhaite faire. Cette macro devrait comparer des valeurs de lignes sur deux feuilles différentes avec une colonne en commun. C'est à dire que sur ma 2eme feuille j'ai la colonne une qui est identique à celle de 3eme feuille (1ere colonne aussi). Et j'ai aussi deux autres colonnes respectivement sur ces deux feuilles que je dois comparer.

Si la valeur de la colonne 14 de la 3eme feuille est différente de la colonne 2 de la 2eme feuille alors il faut copier la valeur dans la colonne 2 de la feuille 2 et la coller dans la colonne 14 de la feuille 3.

Bon je ne sais pas si je suis clair mais bon je tente le coup.

Voici mon code de macro.

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
 
Sub maj()
 
LigDeb = 1
LigFin = 10
ii = LigDeb
 
Do
 
If Worksheets(2).Cells(ii, 1).Value = Worksheets(3).Cells(ii, 1).Value Then
 
    If Worksheets(2).Cells(ii, 14).Value <> Worksheets(3).Cells(ii, 2).Value Then
 
    Worksheets(3).Cells(ii, 2).Value.Copy
    Worksheets(2).Cells(ii, 1).Value.Paste
 
    End If
 
Else
 
ii = ii + 1
 
End If
 
 
Loop While ii < LigFin
 
 
End Sub

Ca se compile bien mais que la macro ne fait rien.

Merci d'avance

Charlie

[charlix]

J'ai un peu modifié ma macro car elle ne traitais pas toutes les données en fait.

Mais cette fois ci j'ai une erreur d'éxecution '1004':
Erreur définie par l'application ou par l'objet.
Sur la ligne de ma 1ere boucle If.

Je ne sais pas pourquoi !!!

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
 
Sub maj()
 
LigDeb = 1
LigFin = 10
ii = LigDeb
jj = LigDeb
 
Do
 
If Worksheets("Fichier VLANNOY").Cells(ii, 1).Value <> Worksheets("rib").Cells(jj, 1).Value Then
 
    jj = jj + 1
 
    Else
 
    If Worksheets("Fichier VLANNOY").Cells(ii, 14).Value <> Worksheets("rib").Cells(ii, 2).Value Then
 
    Worksheets("rib").Cells(ii, 2).Value.Copy
    Worksheets("Fichier VLANNOY").Cells(ii, 1).Value.Paste
 
    End If
 
ii = ii + 1
 
End If
 
Loop While ii < LigFin
 
End Sub

Merci

charlie