Discussion :

[iboulaye1980]

bonjour a tous
j'ai un soucis j'ai crée un macro qui recopie une ligne d'un classeur excel vers l'autre sous condition c'est à dire quand on saisit le mot annule sur une colonne , la macro doit recopier toute la ligne vers un autre classeur en la supprimant du classeur de depart mon code marche mais le probleme c'est que pour ajouter une nouvelle ligne vers le nouveau classeur il écrase le premiere ligne et le pace dessus
je vous serais reconnaissant pour votre étude car ça fait des jours que je trouve pas le probleme!

[SilkyRoad]

bonsoir


Tu peux essayer d'adapter cette macro:
(j'ai interprété que tu souhaites copier à la suite de la derniere ligne non vide dans le classeur de destination)

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
Dim WBSource As Workbook, WBDest As Workbook
Dim i As Integer
 
Set WBSource = Workbooks("Classeur1")
Set WBDest = Workbooks("Classeur2")
 
'cherche la ligne vide dans le classeur de destination
i = WBDest.Worksheets(1).Range("A65536").End(xlUp).Row + 1
 
'Copie la 2eme ligne de la premiere feuille dans le classeur source.
'Colle la ligne à la suite de la derniere ligne non vide dans le classeur de
'destination.
WBSource.Worksheets(1).Rows(2).Copy _
    Destination:=WBDest.Worksheets(1).Cells(i, 1)
 
'Suppression de la ligne dans le classeur source
WBSource.Worksheets(1).Rows(2).Delete
 
'Désactive le mode Couper/Copier
Application.CutCopyMode = False

michel