Je souhaiterais comparer 2 fichiers Excel, de 2 mois cons=E9cutifs, dont
les champs sont identiques.
Je voudrais, dans le 2nd tableau faire ressortir les nouvelles lignes,
- y transf=E9rer les lignes du 1er tableau qui ne figurent plus dans ce
2=E8me tableau (mise en couleur pour les diff=E9rencier),
- mettre en =E9vidence (par une autre couleur) les lignes identiques
aux 2 mois.
Chaque ligne peut =EAtre diff=E9renci=E9e par un champ unique (n=B0
d'=E9criture).
Merci d'avance =E0 qui peut me trouver une solution =E0 ce probl=E8me.
Sub CopieManque() Sheets("mois1").Select Range("A2").Select ligne = Workbooks("mois2.xls").Sheets("mois2").[A65000].End(xlUp).Row + 1 Do While ActiveCell <> "" If IsError(Application.Match(ActiveCell, Workbooks("mois2.xls").Sheets("mois2").Range("nom2"), 0)) Then Workbooks("mois2.xls").Sheets("mois2").Cells(ligne, 1) = ActiveCell ligne = ligne + 1 End If ActiveCell.Offset(1, 0).Select Loop End Sub
Cordialement JB
Bonjour,
Je souhaiterais comparer 2 fichiers Excel, de 2 mois consécutifs, dont les champs sont identiques.
Je voudrais, dans le 2nd tableau faire ressortir les nouvelles lignes, - y transférer les lignes du 1er tableau qui ne figurent plus dans ce 2ème tableau (mise en couleur pour les différencier), - mettre en évidence (par une autre couleur) les lignes identiques aux 2 mois.
Chaque ligne peut être différenciée par un champ unique (n° d'écriture).
Merci d'avance à qui peut me trouver une solution à ce problème.
Sub CopieManque()
Sheets("mois1").Select
Range("A2").Select
ligne = Workbooks("mois2.xls").Sheets("mois2").[A65000].End(xlUp).Row +
1
Do While ActiveCell <> ""
If IsError(Application.Match(ActiveCell,
Workbooks("mois2.xls").Sheets("mois2").Range("nom2"), 0)) Then
Workbooks("mois2.xls").Sheets("mois2").Cells(ligne, 1) =
ActiveCell
ligne = ligne + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Cordialement JB
Bonjour,
Je souhaiterais comparer 2 fichiers Excel, de 2 mois consécutifs, dont
les champs sont identiques.
Je voudrais, dans le 2nd tableau faire ressortir les nouvelles lignes,
- y transférer les lignes du 1er tableau qui ne figurent plus dans ce
2ème tableau (mise en couleur pour les différencier),
- mettre en évidence (par une autre couleur) les lignes identiques
aux 2 mois.
Chaque ligne peut être différenciée par un champ unique (n°
d'écriture).
Merci d'avance à qui peut me trouver une solution à ce problème.
Sub CopieManque() Sheets("mois1").Select Range("A2").Select ligne = Workbooks("mois2.xls").Sheets("mois2").[A65000].End(xlUp).Row + 1 Do While ActiveCell <> "" If IsError(Application.Match(ActiveCell, Workbooks("mois2.xls").Sheets("mois2").Range("nom2"), 0)) Then Workbooks("mois2.xls").Sheets("mois2").Cells(ligne, 1) = ActiveCell ligne = ligne + 1 End If ActiveCell.Offset(1, 0).Select Loop End Sub
Cordialement JB
Bonjour,
Je souhaiterais comparer 2 fichiers Excel, de 2 mois consécutifs, dont les champs sont identiques.
Je voudrais, dans le 2nd tableau faire ressortir les nouvelles lignes, - y transférer les lignes du 1er tableau qui ne figurent plus dans ce 2ème tableau (mise en couleur pour les différencier), - mettre en évidence (par une autre couleur) les lignes identiques aux 2 mois.
Chaque ligne peut être différenciée par un champ unique (n° d'écriture).
Merci d'avance à qui peut me trouver une solution à ce problème.
Gégé352
gege352
Bonjour,
Merci pour cette réponse rapide mais j'aurais besoin d'aide supplémentaire. Je connais Excel pour l'utiliser au quotidien, mais pas du tout VBA. Que faire de ces lignes de code et comment les adapter à mon besoin ?
Sub CopieManque() Sheets("mois1").Select Range("A2").Select ligne = Workbooks("mois2.xls").Sheets("mois2").[A65000].End(xlUp).Row + 1 Do While ActiveCell <> "" If IsError(Application.Match(ActiveCell, Workbooks("mois2.xls").Sheets("mois2").Range("nom2"), 0)) Then Workbooks("mois2.xls").Sheets("mois2").Cells(ligne, 1) = ActiveCell ligne = ligne + 1 End If ActiveCell.Offset(1, 0).Select Loop End Sub
Cordialement JB
Bonjour,
Je souhaiterais comparer 2 fichiers Excel, de 2 mois consécutifs, dont les champs sont identiques.
Je voudrais, dans le 2nd tableau faire ressortir les nouvelles lignes, - y transférer les lignes du 1er tableau qui ne figurent plus dans ce 2ème tableau (mise en couleur pour les différencier), - mettre en évidence (par une autre couleur) les lignes identiques aux 2 mois.
Chaque ligne peut être différenciée par un champ unique (n° d'écriture).
Merci d'avance à qui peut me trouver une solution à ce problème.
Gégé352
Bonjour,
Merci pour cette réponse rapide mais j'aurais besoin d'aide
supplémentaire.
Je connais Excel pour l'utiliser au quotidien, mais pas du tout VBA.
Que faire de ces lignes de code et comment les adapter à mon besoin ?
Sub CopieManque()
Sheets("mois1").Select
Range("A2").Select
ligne = Workbooks("mois2.xls").Sheets("mois2").[A65000].End(xlUp).Row +
1
Do While ActiveCell <> ""
If IsError(Application.Match(ActiveCell,
Workbooks("mois2.xls").Sheets("mois2").Range("nom2"), 0)) Then
Workbooks("mois2.xls").Sheets("mois2").Cells(ligne, 1) =
ActiveCell
ligne = ligne + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Cordialement JB
Bonjour,
Je souhaiterais comparer 2 fichiers Excel, de 2 mois consécutifs, dont
les champs sont identiques.
Je voudrais, dans le 2nd tableau faire ressortir les nouvelles lignes,
- y transférer les lignes du 1er tableau qui ne figurent plus dans ce
2ème tableau (mise en couleur pour les différencier),
- mettre en évidence (par une autre couleur) les lignes identiques
aux 2 mois.
Chaque ligne peut être différenciée par un champ unique (n°
d'écriture).
Merci d'avance à qui peut me trouver une solution à ce problème.
Merci pour cette réponse rapide mais j'aurais besoin d'aide supplémentaire. Je connais Excel pour l'utiliser au quotidien, mais pas du tout VBA. Que faire de ces lignes de code et comment les adapter à mon besoin ?
Sub CopieManque() Sheets("mois1").Select Range("A2").Select ligne = Workbooks("mois2.xls").Sheets("mois2").[A65000].End(xlUp).Row + 1 Do While ActiveCell <> "" If IsError(Application.Match(ActiveCell, Workbooks("mois2.xls").Sheets("mois2").Range("nom2"), 0)) Then Workbooks("mois2.xls").Sheets("mois2").Cells(ligne, 1) = ActiveCell ligne = ligne + 1 End If ActiveCell.Offset(1, 0).Select Loop End Sub
Cordialement JB
Bonjour,
Je souhaiterais comparer 2 fichiers Excel, de 2 mois consécutifs, dont les champs sont identiques.
Je voudrais, dans le 2nd tableau faire ressortir les nouvelles lignes, - y transférer les lignes du 1er tableau qui ne figurent plus dans ce 2ème tableau (mise en couleur pour les différencier), - mettre en évidence (par une autre couleur) les lignes identiques aux 2 mois.
Chaque ligne peut être différenciée par un champ unique (n° d'écriture).
Merci d'avance à qui peut me trouver une solution à ce problème.
Gégé352
gege352
Bonjour,
Merci pour cette réponse rapide mais j'aurais besoin d'aide supplémentaire. Je connais Excel pour l'utiliser au quotidien, mais pas du tout VBA. Que faire de ces lignes de code et comment les adapter à mon besoin ?
Sub CopieManque() Sheets("mois1").Select Range("A2").Select ligne = Workbooks("mois2.xls").Sheets("mois2").[A65000].End(xlUp).Row + 1 Do While ActiveCell <> "" If IsError(Application.Match(ActiveCell, Workbooks("mois2.xls").Sheets("mois2").Range("nom2"), 0)) Then Workbooks("mois2.xls").Sheets("mois2").Cells(ligne, 1) = ActiveCell ligne = ligne + 1 End If ActiveCell.Offset(1, 0).Select Loop End Sub
Cordialement JB
Bonjour,
Je souhaiterais comparer 2 fichiers Excel, de 2 mois consécutifs, dont les champs sont identiques.
Je voudrais, dans le 2nd tableau faire ressortir les nouvelles lignes, - y transférer les lignes du 1er tableau qui ne figurent plus dans ce 2ème tableau (mise en couleur pour les différencier), - mettre en évidence (par une autre couleur) les lignes identiques aux 2 mois.
Chaque ligne peut être différenciée par un champ unique (n° d'écriture).
Merci d'avance à qui peut me trouver une solution à ce problème.
Gégé352
Bonjour,
Merci pour cette réponse rapide mais j'aurais besoin d'aide
supplémentaire.
Je connais Excel pour l'utiliser au quotidien, mais pas du tout VBA.
Que faire de ces lignes de code et comment les adapter à mon besoin ?
Sub CopieManque()
Sheets("mois1").Select
Range("A2").Select
ligne = Workbooks("mois2.xls").Sheets("mois2").[A65000].End(xlUp).Row +
1
Do While ActiveCell <> ""
If IsError(Application.Match(ActiveCell,
Workbooks("mois2.xls").Sheets("mois2").Range("nom2"), 0)) Then
Workbooks("mois2.xls").Sheets("mois2").Cells(ligne, 1) =
ActiveCell
ligne = ligne + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Cordialement JB
Bonjour,
Je souhaiterais comparer 2 fichiers Excel, de 2 mois consécutifs, dont
les champs sont identiques.
Je voudrais, dans le 2nd tableau faire ressortir les nouvelles lignes,
- y transférer les lignes du 1er tableau qui ne figurent plus dans ce
2ème tableau (mise en couleur pour les différencier),
- mettre en évidence (par une autre couleur) les lignes identiques
aux 2 mois.
Chaque ligne peut être différenciée par un champ unique (n°
d'écriture).
Merci d'avance à qui peut me trouver une solution à ce problème.
Merci pour cette réponse rapide mais j'aurais besoin d'aide supplémentaire. Je connais Excel pour l'utiliser au quotidien, mais pas du tout VBA. Que faire de ces lignes de code et comment les adapter à mon besoin ?
Sub CopieManque() Sheets("mois1").Select Range("A2").Select ligne = Workbooks("mois2.xls").Sheets("mois2").[A65000].End(xlUp).Row + 1 Do While ActiveCell <> "" If IsError(Application.Match(ActiveCell, Workbooks("mois2.xls").Sheets("mois2").Range("nom2"), 0)) Then Workbooks("mois2.xls").Sheets("mois2").Cells(ligne, 1) = ActiveCell ligne = ligne + 1 End If ActiveCell.Offset(1, 0).Select Loop End Sub
Cordialement JB
Bonjour,
Je souhaiterais comparer 2 fichiers Excel, de 2 mois consécutifs, dont les champs sont identiques.
Je voudrais, dans le 2nd tableau faire ressortir les nouvelles lignes, - y transférer les lignes du 1er tableau qui ne figurent plus dans ce 2ème tableau (mise en couleur pour les différencier), - mettre en évidence (par une autre couleur) les lignes identiques aux 2 mois.
Chaque ligne peut être différenciée par un champ unique (n° d'écriture).
Merci d'avance à qui peut me trouver une solution à ce problème.
