Discussion :

[xaviou99]

Bonjour,
J'ai un problème dans mon codage mais je ne vois pas ce qui va pas. Mon macro prend les cellules de la colonne "A" de la feuille "MOI" regarde si dans la colonne "A" de la feuille "TOI", les cellules sont différentes. Si c'est le cas, il sélectionne les lignes des cellules différentes de la feuille "MOI" et les copies à la suite de mon tableau dans la feuille "TOI"
Voici le code

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
Option Explicit
Dim DerniereLigne As Integer
Dim i As Integer
Dim DerniereLigne2 As Integer
Dim l
 
 
Sub test()
 
Application.ScreenUpdating = False
 
Sheets("MOI").Select
DerniereLigne = Range("A65536").End(xlUp).Row
 
For i = 2 To DerniereLigne
If Sheets("TOI").Cells(i, 1) <> Sheets("MOI").Cells(i, 1) Then
Sheets("Moi").Cells(i, 1).Activate 'Problème à ce niveau la
Rows(i).Select
Selection.Copy
Sheets("TOI").Select
If Cells(2, 1).Value = "" Then
DerniereLigne2 = 2
Else
DerniereLigne2 = Range("A2").End(xlDown).Row + 1
End If
Cells(DerniereLigne2, 1).Select
ActiveSheet.Paste
Else: Cells(i, 1).Activate
Rows(i).Select
End If
Next
 
Application.ScreenUpdating = True
 
End Sub

Merci d'avance pour votre aide

[jeangoisse]

Code :

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

Sheets("Moi").Cells(i, 1).Activate 'Problème à ce niveau la

Peut-être en 2 temps :

...

Code :

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

1
2
Sheets("Moi").Activate
Range("A" & i).Select

...

[xaviou99]

Avec ce code, il me copie seulement la première ligne dont la cellule de la feuille "MOI" est différente de toutes les cellules de la feuille "TOI". Qu'est qu'il faut modifier pour qu'ils fonctionnent pour toutes les lignes dont les cellules de la colonne A de "MOI" sont différentes des cellules de la colonne A de "TOI?

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
Option Explicit
Dim DerniereLigne As Integer
Dim i As Integer
Dim DerniereLigne2 As Integer
Dim l
 
 
Sub test()
 
Application.ScreenUpdating = False
 
Sheets("MOI").Select
DerniereLigne = Range("A65536").End(xlUp).Row
 
For i = 1 To DerniereLigne
If Sheets("TOI").Cells(i, 1) <> Cells(i, 1) Then
Sheets("Moi").Activate
Range("A" & i).Select
Rows(i).Select
Selection.Copy
Sheets("TOI").Select
If Cells(2, 1).Value = "" Then
DerniereLigne2 = 2
Else
DerniereLigne2 = Range("A2").End(xlDown).Row + 1
End If
Cells(DerniereLigne2, 1).Select
ActiveSheet.Paste
End If
Next
 
Application.ScreenUpdating = True
 
End Sub