Discussion :

[Toug19]

Bonjour,
Je souhaiterais savoir s'il existe une solution très rapide pour copier coller une ligne en passant par une variable type range.

Voici le code de test que j'ai commencé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test()
 
Dim ligne As Range
Workbooks("classeur1").Sheets(1).Activate
Cells(1, 1).Select
 
Set ligne = Workbooks("classeur1").Sheets(1).Cells(1, 1).EntireRow
 
Cells(2, 1) = ligne.Cells(1)
 
End Sub

Ce code copie donc la première cellule sur la deuxième ligne. Je voudrais copier toute la ligne sans avoir à énumérer toutes les cellules.

Je pensais également que le code ci-dessus copierait la mise en forme de la cellule. (Je pensais que l'objet range contenait la mise en forme).

Merci.

[joe.levrai]

Bonjour,

dans ton code, tu affectes à la cellule de destination, la valeur de la cellule source : la mise en forme ne va pas suivre

il faut utiliser la méthode .Copy

pour copier une ligne complète, on peut utiliser la propriété Rows

exemple, à adapter quand au calcul des numéros de lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(1).Copy Sheets(1).Rows(2)

copie l'ensemble de la ligne 1 de la feuille active, vers la ligne 2 de la première feuille du classeur

[Menhir]

EntireRow n'est utile que lorsqu'on récupère la référence de cellule de manière indirecte, par exemple une variable Range d'itération d'un For Each ou le résultat d'un Find.
Quand on donne directement l'adresse d'une cellule, il est plus simple (comme l'a fait joe.levrai) d'utiliser Rows() avec le numéro de ligne.

[Toug19]

Merci pour ton aide.