lombriiik
XLDnaute Nouveau
Bonjour à tous,
encore une fois je sollicite vos lumières. J'ai écris une petite fonction pour comparer 2 onglets d'un même classeur et remplacer les lignes existantes de l'un avec celles de l'autre. Ca marchait plutôt bien jusqu'à ce que je me rende
compte que je devais quand même garder un bout de la ligne que je supprimais.
Depuis, j'obtiens une erreur 1004 : La méthode 'Range' de l'objet '_worksheet' a échoué sur la ligne où je copie un range de cellules.
Si quelqu'un a une idée, je suis preneur.
Merci d'avance à tous
encore une fois je sollicite vos lumières. J'ai écris une petite fonction pour comparer 2 onglets d'un même classeur et remplacer les lignes existantes de l'un avec celles de l'autre. Ca marchait plutôt bien jusqu'à ce que je me rende
compte que je devais quand même garder un bout de la ligne que je supprimais.
Depuis, j'obtiens une erreur 1004 : La méthode 'Range' de l'objet '_worksheet' a échoué sur la ligne où je copie un range de cellules.
Si quelqu'un a une idée, je suis preneur.
Merci d'avance à tous
Code:
Sub Comparer_Fusionner_Feuille(ByVal FeuilleDepart As Worksheet, ByVal FeuilleArrivee As Worksheet)
Dim i, l, L_Trouve As Integer
Dim l1 As Range
Dim Code As String
l = FeuilleDepart.Range("A1").CurrentRegion.Rows.Count + 1
i = 2
While i < l
Code = FeuilleDepart.Cells(i, 1).Value
Set l1 = FeuilleArrivee.Columns("A").Find(Code, LookIn:=xlValues, lookat:=xlWhole)
If Not l1 Is Nothing Then
L_Trouve = FeuilleArrivee.Columns("A").Find(Code, LookIn:=xlValues, lookat:=xlWhole).Row
MsgBox ("L_Trouve=" & L_Trouve & Chr(10) & "i=" & i)
[COLOR="Red"][B]FeuilleArrivee.Range(Cells(L_Trouve, 70), Cells(L_Trouve, 81)).Copy ' erreur ici[/B][/COLOR]
FeuilleDepart.Range(Cells(i, 70), Cells(i, 81)).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
l1.EntireRow.Delete Shift:=xlUp
End If
i = i + 1
Wend
Call CopierLignes(FeuilleDepart, FeuilleArrivee)
Call Suppr_feuille(FeuilleDepart)
End Sub