Optimisation lignes de codes

Résolu

RwanLuis Messages postés 2 Statut Membre -
RwanLuis Messages postés 2 Statut Membre - 17 déc. 2014 à 19:36

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)

Afficher la suite

A voir également:

Optimisation lignes de codes
Optimisation pc - Accueil - Utilitaires
Les codes ascii - Guide
Codes gta - Guide
Partage de photos en ligne - Guide
Écrire plusieurs lignes dans une cellule excel - Guide

1 réponse

Réponse 1 / 1
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
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
```
0
1. RwanLuis Messages postés 2 Statut Membre
  
  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
  
  0

Optimisation lignes de codes

1 réponse

Discussions similaires

Newsletters