Optimisation lignes de codes

Résolu/Fermé

RwanLuis Messages postés 2 Date d'inscription mardi 16 décembre 2014 Statut Membre Dernière intervention 17 décembre 2014 - Modifié par jordane45 le 17/12/2014 à 00:15
RwanLuis Messages postés 2 Date d'inscription mardi 16 décembre 2014 Statut Membre Dernière intervention 17 décembre 2014 - 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)

A voir également:

Optimisation lignes de codes
Codes ascii - Guide
Optimisation pc - Accueil - Utilitaires
Partage de photos en ligne - Guide
Site de vente en ligne particulier - Guide
Optimisation découpe panneau gratuit - Télécharger - Outils professionnels

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 311
17 déc. 2014 à 08:11

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

RwanLuis Messages postés 2 Date d'inscription mardi 16 décembre 2014 Statut Membre Dernière intervention 17 décembre 2014
17 déc. 2014 à 19:36

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

IPTV CODE BLOQUÉ

Configuration RM-014S+