Re : VBA Copier Coller Plage de Cellules à la suite d'une autre feuille
Bonjour, fileofish, le Forum,
Comme ceci ?
Code:
Option Explicit
Sub importTxT()
Range("a2:bc" & Cells(Rows.Count, "a").End(xlUp).Row).Copy Destination:=Sheets("Base").Range("a" & Rows.Count).End(xlUp)(2)
End Sub
Re : VBA Copier Coller Plage de Cellules à la suite d'une autre feuille
Bonjour Double Zéro
Merci pour ta réponse
Est ce que le code fonctionne de ton côté car du mien il ne se passe rien.
Pourrais tu me dire à quoi sert le (2) que tu as mis à la fin du code End(xlUp)(2)
Re : VBA Copier Coller Plage de Cellules à la suite d'une autre feuille
Décidément ...
En fait je viens de regarder et j'avais des lignes qui étaient collées aux alentours de la ligne 1000 donc forcément cela ne se collait pas au début ... Bref
Merci
Par contre si tu peux stp me dire à quoi sert le (2) que tu as mis à la fin du code End(xlUp)(2) ca serait sympa
Un petit code qui, je l'espère, facilitera la compréhension du "(2)"...
Code:
Option Explicit
Sub A_quoisert_le_2()
With Sheets("Base")
.Range("a" & Rows.Count).End(xlUp)(1).Value = "ici"
.Range("a" & Rows.Count).End(xlUp)(2).Value = "là"
End With
End Sub
Re : VBA Copier Coller Plage de Cellules à la suite d'une autre feuille
DoubleZero,
J'ai beaucoup aimé ton explication en effet c'est des fois bien plus clair que des mots
(1) = dernière ligne
(2) = dernière ligne + 1
C'est bien cela ?
Oui , c'est exactement cela et, pour s'en convaincre :
Code:
Option Explicit
Sub A_quoisert_le_1()
With Sheets("Base")
.Activate
.Range("a" & Rows.Count).End(xlUp)(1).Select
End With
End Sub
Sub A_quoisert_le_2()
With Sheets("Base")
.Activate
.Range("a" & Rows.Count).End(xlUp)(2).Select
End With
End Sub