Références relatives

  • Initiateur de la discussion BerNar
  • Date de début
B

BerNar

Guest
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@

Guest
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@
 

Statistiques des forums

Discussions
311 721
Messages
2 081 927
Membres
101 842
dernier inscrit
seb0390