Références relatives

[BerNar]

J'ai un petit problème :

Je veux au moyen d'une macro inscrire des données dans une base de données Excel (dans la ligne qui suit le dernier enregistrement).

Les données à inscrire se situent dans les cellules N2:N4.
Ma base se situe dans les colonnes A:C à partir de la cellule A1.

J'ai écrit ce petit code :

Sub SaisieBase()
'
' SaisieBase Macro
'
Range("N2:N4").Select
Selection.Copy
Range("A1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

Cependant il me manque un petit bout puisque là avec 'End(xlDown)' je m'arrête au dernier enregistrement de la base, or je veux coller ces données à la ligne en dessous.

Avec les macros xl4, j'utilisais une référence relative du type : =SELECTIONNER("L(1)C1").
Mais avec VBA comment puis-je faire ?

Merci pour votre aide.

Ber Nar.

 

[@Christophe@]

Bonjour BerNAr

Voici la solution a ton problème:

Sub SaisieBase()
Range("N2:N4").Copy
Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
End Sub

Bonne soiré

@Christophe@

 

[BerNar]

2 mercis !

Pour avoir répondu à ma question et optimiser mon code.

Ber Nar.