Copier un bloc de lignes sous VBA

Résolu
Tut84 -  
 Tut84 -
Bonjour,

Est-il possible de réaliser les opérations suivantes en une seule ligne ?

Range("H32").Value = Range("B" & LigneVzemax).Value
Range("I32").Value = Range("C" & LigneVzemax).Value
Range("J32").Value = Range("D" & LigneVzemax).Value
Range("K32").Value = Range("K" & LigneVzemax).Value
Range("L32").Value = Range("L" & LigneVzemax).Value
Range("M32").Value = Range("M" & LigneVzemax).Value
Range("N32").Value = Range("N" & LigneVzemax).Value
Range("O32").Value = Range("O" & LigneVzemax).Value
Range("P32").Value = Range("P" & LigneVzemax).Value

A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,


Range("H32:J32").Value = Range("B" & LigneVzemax & ":D" & LigneVzemax).Value
Range("K32:P32").Value = Range("K" & LigneVzemax & ":P" & LigneVzemax).Value

Bonne suite
0
Tut84
 
Merci pour votre réponse rapide !
0