Optimisation lignes de codes

Résolu
RwanLuis -  
Bonsoir

Est-il possible d'optimiser les lignes ci-dessous en une seule ? 
Worksheets(1).Range("B1").Copy Destination:=wbk_distant.Worksheets(1).Cells(65535, 2).End(xlUp)(2)
Worksheets(1).Range("C4").Copy Destination:=wbk_distant.Worksheets(1).Cells(65535, 3).End(xlUp)(2)
Worksheets(1).Range("D4").Copy Destination:=wbk_distant.Worksheets(1).Cells(65535, 4).End(xlUp)(2)

Merci d'avance pour votre aide précieuse

EDIT : Ajout des balises de code (jordane)

1 réponse

  1. michel_m Contributeur
    Bonjour

    Une possibilité parmi d'aytres 

    Dim Tampon(1 To 3)
    With Sheets(1)
        Tampon(1) = .Range("B1")
        Tampon(2) = .Range("C4")
        Tampon(3) = .Range("D4")
    End With
        
    wbk_distant.Sheets(1).Cells(65535, 2).End(xlUp)(2).Resize(1, 3) = Tampon

    1. RwanLuis Auteur
      Bonsoir Michel
      Merci, beaucoup, cela fonctionne parfaitement.
      Dommage que l'on ne puisse pas déclarer Tampon 2 to 3 = .range("C4:D4")
      Cordialement

      Jean-Louis

Discussions similaires

Excel : afficher toutes les lignes et colonnes masquées
livlarsen

27 réponses
gps pour optimiser un parcours ?
loic3838

7 réponses
remettre toutes les colonnes et les lignes masquées
mousaillon

4 réponses
Probleme d'affichage de ligne dans Excel
sammy79

12 réponses