jomortuary
XLDnaute Nouveau
Bonjour à tous voici mon problème :
J'aimerais copier une ligne lorsque une donnée est entrée dans la colonne date commande vers un autres classeur excel
j'arrive bien à effectuer une copie de la ligne dans vers une autre feuille mais pas vers un autre classeur
Précision le classeur de destination peut être fermé
Voici le code pour la copie de donnée vers une autre feuille du classeur :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
For i = Sheets("F1_Suivi CRYS_MF").Cells(Rows.Count, 26).End(xlUp).Row To 1 Step -1
If Sheets("F1_Suivi CRYS_MF").Cells(i, 26).Value = "1" Then
Sheets("F1_Suivi CRYS_MF").Rows(i).Cut Sheets("F3_Historique").Rows((Sheets("F3_Historique").Cells(Rows.Count, 26).End(xlUp).Row + 1))
Sheets("F1_Suivi CRYS_MF").Rows(i).Delete
End If
Next i
End Sub
Merci d'avance la je bloque vraiment
J'aimerais copier une ligne lorsque une donnée est entrée dans la colonne date commande vers un autres classeur excel
j'arrive bien à effectuer une copie de la ligne dans vers une autre feuille mais pas vers un autre classeur
Précision le classeur de destination peut être fermé
Voici le code pour la copie de donnée vers une autre feuille du classeur :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
For i = Sheets("F1_Suivi CRYS_MF").Cells(Rows.Count, 26).End(xlUp).Row To 1 Step -1
If Sheets("F1_Suivi CRYS_MF").Cells(i, 26).Value = "1" Then
Sheets("F1_Suivi CRYS_MF").Rows(i).Cut Sheets("F3_Historique").Rows((Sheets("F3_Historique").Cells(Rows.Count, 26).End(xlUp).Row + 1))
Sheets("F1_Suivi CRYS_MF").Rows(i).Delete
End If
Next i
End Sub
Merci d'avance la je bloque vraiment