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

[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.

Code :

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

Procédure :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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 :

Code :

End(x1Up)

par

Code :

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:

Code :

1
2
3
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

Code :

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

sans le with serait

Code :

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 :

Code :

1
2
3
4
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