[XL-2003] Pb de copie de cellule vers un autre feuillet

[chrisbdx]

Bonjour,

Je souhaite copier des cellules vers une autre feuille si les cellules respectent certaines conditions. J'ai trouvé sur le net une macro qui s'apparente à ce que je cherche et je l'ai adaptée à mon problème. Toutefois, la macro ne fonctionne pas, Excel n'aime pas la ligne ci-dessous et me renvoit le code erreur d'exécution '1004', erreur définie par l'application ou par l'objet.

DerniereLigne = .Range("A65536").End(x1Up).Offset(1, 0).Row

Procédure :

Dim DerniereLigne As Long
Dim LigneActive As Long
 
Sub Relance_mail()
    
    Sheets("M2").Select
    Range("A2:A1032").Select
    
    While ActiveCell.Value <> Empty
        LigneActive = ActiveCell.Row
        If Cells(LigneActive, 26).Font.Bold = False And Cells(LigneActive, 26).Value <> Empty Then
        With Sheets("envoi_mail")
            DerniereLigne = .Range("A65536").End(xlUp).Offset(1, 0).Row
            .Cells(DerniereLigne, 1).Value = .Cells(LigneActive, 3).Value
            .Cells(DerniereLigne, 2).Value = .Cells(LigneActive, 4).Value
            .Cells(DerniereLigne, 3).Value = .Cells(LigneActive, 26).Value
        End With
        
        End If
    ActiveCell.Offset(1, 0).Activate
    
    Wend
    
End Sub
 
 

Merci d'avance pour votre réponse.

[rvtoulon]

Slt
remplace :

End(x1Up)

par

End(xlUp)

C'est un L et non un 1 donc "XLUP" et non "X1UP"
A+

[chrisbdx]

Effectivement avec un L je n'ai plus d'erreur de compilation !!

Toutefois, je n'obtiens pas le résultat escompté; rien n'est recopié dans le feuillet "envoi_mail" bien que toutes les cellules soient balayées dans le feuillet "M2".

[rvtoulon]

je pense mais je peux me tromper que ton problème est ici:

With Sheets("envoi_mail")
            DerniereLigne = .Range("A65536").End(xlUp).Offset(1, 0).Row
            .Cells(DerniereLigne, 1).Value = .Cells(LigneActive, 3).Value

pourquoi? parceque tu mets un with et les .cells font référence à ce with normalement comme tu l'as écrits cette ligne

.Cells(DerniereLigne, 1).Value = .Cells(LigneActive, 3).Value

sans le with serait

Sheets("envoi_mail").Cells(DerniereLigne, 1).Value = Sheets("envoi_mail").Cells(LigneActive, 3).Value

donc tu ne copie pas à partir de la feuille M2 mais de la feuille envoi mail je pense que tu devrais essayer ceci :

With Sheets("envoi_mail")
            DerniereLigne = .Range("A65536").End(xlUp).Offset(1, 0).Row
            .Cells(DerniereLigne, 1).Value = Sheets("M2").Cells(LigneActive, 3).Value
'ETC......

ou remplacer Sheets ("M2") par Activesheet

Je n'ai pas testé donc à voir

[chrisbdx]

Effectivement, j'en étais arrivé à la même conclusion. Ayant déjà testé, cela fonctionne correctement.

Merci en tout cas pour la réponse rapide