Optimisation lignes de codes

Résolu

RwanLuis Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
RwanLuis Messages postés 2 Date d'inscription Statut Membre Dernière intervention - 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
Optimisation découpe panneau gratuit - Télécharger - Outils professionnels
Partage de photos en ligne - Guide
Code de déverrouillage oublié - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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 Statut Membre Dernière intervention

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

Afficher toutes les lignes masquées excel

remettre toutes les colonnes et les lignes masquées

commen faire gestes technique sur ps3

Probleme d'affichage de ligne dans Excel

Votre réponse

Discussions similaires