Microsoft 365 A partir d'une autre feuille : écrire dans une cellule d'une feuille sans l'ouvrir - ni la sélectionner

Usine à gaz · 30 Septembre 2020

Bonjour à toutes et à tous,

Je me permets de vous solliciter à nouveau pour un code que je pense "pas trop bon".
J'ai fait des recherches un peu partout mais je n'ai pas trouvé.

J'ai ce code dans une macro :

VB:

sub copie()
    With Sheets("RecapFact")
    .Activate
    ActiveSheet.Cells(Rows.Count, "i").End(xlUp)(2).Value = Range("x9") & " " & Range("AD4") & Format(Date, "yyyymmdd") & " " & "Pack Rest " & Range("N18") & " RdV - en cours "
    End With
end sub

je suis par exemple sur une feuille "facture"
et je souhaite écrire dans la feuille "RecapFact",

Le code fonctionne mais active la feuille "RecapFact" alors que je souhaite rester sur la feuille "facture".

c'est certainement à cause : ".Activate"
Mais je ne sais pas faire autrement

Auriez-vous le bon code ?
Avec mes remerciements,
amicalement,
lionel,

chris · 30 Septembre 2020

Bonjour

VB:

Sub copie()
    With Sheets("facture")
        Worksheets("RecapFact").Cells(Rows.Count, 1).End(xlUp)(2).Value = .Range("x9") & " " & .Range("AD4") & Format(Date, "yyyymmdd") & " " & "Pack Rest " & .Range("N18") & " RdV - en cours "
    End With
End Sub

chris · 30 Septembre 2020

Bonjour

VB:

Sub copie()
    With Sheets("facture")
        Worksheets("RecapFact").Cells(Rows.Count, 1).End(xlUp)(2).Value = .Range("x9") & " " & .Range("AD4") & Format(Date, "yyyymmdd") & " " & "Pack Rest " & .Range("N18") & " RdV - en cours "
    End With
End Sub

Usine à gaz · 30 Septembre 2020

Bonjour chris,

Merci pour le code.
Apparemment, je l'avais dans le désordre lol
lionel,

Usine à gaz · 30 Septembre 2020

Re-chris,
Nickel top Merci

chris · 30 Septembre 2020

RE

J'ai simplifié 2 minutes après mon post que j'ai édité mais tu as peut-être récupéré entre les 2

Usine à gaz · 30 Septembre 2020

Re :
J'ai pris le code actuel de ton post

Microsoft 365 A partir d'une autre feuille : écrire dans une cellule d'une feuille sans l'ouvrir - ni la sélectionner

Usine à gaz

XLDnaute Barbatruc

chris

chris

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires