Bon !!
Le code est adapté à mon fichier let j'ai plusieurs soucis..
1) il fait un copier coller classique >>> il me faut un collage spécial valeur uniquement
2) si dans le tableau de départ une ligne qui a été copié dans le 2e tableau est remplacé par une autre, elle remplacera la copie précédente. >>> et je veux juste qu'elles viennent toutes se mettre les unes après les autres..
En gros c'est la merde ^^ j'arrive pas à modifier pour avoir le collage spécial et coller les une en dessous des autres....
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh, i, DernCol As Integer
Dim Wb_dest As String
Dim Wb_dep As String
Application.ScreenUpdating = False
Wb_dep = ActiveWorkbook.Name
'Récupération de la position de la cellule active
lgn = ActiveCell.Row
Col = ActiveCell.Column
'Copie des lignes avec conditions
Ligne = 5
For i = 2 To Workbooks(Wb_dep).Sheets(1).Range("A65536").End(xlUp).Row
If Workbooks(Wb_dep).Sheets(1).Range("K" & i) = "ACTIF" Then
Workbooks(Wb_dep).Sheets(1).Range("A" & i & ":U" & i).Copy Workbooks(Wb_dep).Sheets(2).Range("A" & Ligne)
Ligne = Ligne + 1
End If
Next i
' Repositionnement sur la cellule
Sheets("DT-OT").Select
Sheets("DT-OT").Cells(lgn, Col).Select
End Sub
Le code à modifier au dessus et en dessous le code qui permet le collage spécial valeur uniquement et qui colle les un après les autres.. j'utilisais cette macro il faut sélectionner la ligne à copier et cliquer sur le bouton de la macro ça marche nickel !! =)
Mais il me faut ça avec condition et automatique...
Sub copie()
Application.ScreenUpdating = False
Rows(ActiveCell.Row).Copy
Sheets("REX").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Merci d'avance !!!