Comment insérer (Insert Shift:=xlDown) sans Select ?

[Sebast]

Bonjour à toutes et à tous,

je bute sur un problème d'insertion de données avec l'instruction insert shift:=xlDown …

J'essaie de supprimer autant que possible les Select issus de l'enregistreur de macros mais je n'arrive pas à écrire l'instruction directe pour l'insertion.
Autant je connais la copie "directe" avec l'instruction.Copy Destination:= … du genre Sheets("Toto").range("A1").currentRegion.Copy Destination:=…
autant je ne sais pas le faire pour de l'insertion de données (c'est-à-dire pour ne pas écraser les données existantes) donc je conserve un Select, dont j'aimerais bien me débarrasser

En pièce jointe un fichier simplifié avec le code

Qui a une idée comment écrire directement l'instruction d'insertion, sans passer par des Select ?

Merci d'avance

 

[ROGER2327]

Re : Comment insérer (Insert Shift:=xlDown) sans Select ?

Bonsoir Sebast.


Essayez :

Sub Copier_insérer_3()
Sheets("Passage").Range("a1").CurrentRegion.Copy
With Sheets("Base")
  .Range("A2").Insert Shift:=xlDown
  .Rows(2).Delete
End With
End Sub

ou bien (plus rapide) :

Sub Copier_insérer_4()
With Sheets("Passage").Range("a1").CurrentRegion
  .Cells.Offset(1).Resize(.Rows.Count - 1, .Columns.Count).Copy
End With
Sheets("Base").Range("A2").Insert Shift:=xlDown
End Sub

Bonne nuit.


ℝOGER2327
#7121

Lundi 23 Décervelage 141 (Saint Tank, animal - fête Suprême Quarte)
1[SUP]er[/SUP] Pluviôse An CCXXII, 8,9272h - lauréole
2014-W04-1T21:25:31Z

 

[mapomme]

Re : Comment insérer (Insert Shift:=xlDown) sans Select ?

Bonsoir Sebast,

Avec ce code?:

Sub Copier_insérer_2()
  Sheets("Passage").Range("a1").CurrentRegion.Copy
  Sheets("Base").Range("A2").Insert Shift:=xlDown
  Sheets("Base").Rows(2).Delete
End Sub

Edit: Bonsoir ROGER2327 🙂

 

[Sebast]

Re : Comment insérer (Insert Shift:=xlDown) sans Select ?

Bonsoir Roger2327 et mapomme,

vos solutions fonctionnent et on le mérite de la lisibilité. Je n'avais pas pensé qu'on pouvait simplement écrire l'instruction d'insertion juste après la destination ...
Un grand merci pour votre aide

Bonne nuit