Discussion :

[schapl]

Bonjour,

je cherche à indiquer l'adresse d'une plage de données qui vont être copiées puis placé dans une autre feuille. En fait je Récupère 2 valeurs X et Y que je stock dans deux variables "Ref" et "NvRef". Ensuite je vais récupérer la dernière valeur de la ligne qui est non-vide
Ce que je sais pas faire c'est indiqué le repère dans "Range". Est-ce possible ?

Bout de mon code (le code est juste à titre explicatif):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Sub copie()
Dim ref As Integer
Dim Nvref As Integer
Dim DL As Integer
 
Ref = X ' considérons que X est un code qui copie une valeur d'une autre feuille pour me servir de repère.
Nvref = Y 'Idem que X
DL = Range("A" & Rows.Count).End(xlUp).Row 'je récupère la dernière ligne de ma feuille
 
Range("A"&Ref : "B"&DL).Copy Feuil4.Range("A"&NvRef) ' Cest quelque chose comme cela que je souhaite faire et je sais pas si ça se fait et comment bien écrire le code
'ref, Nvref et DL sont dynamiques et sont amenés à changer de valeur et c'est pour cela que je veux une formule qui copie et colle en fonction de la valeur de "Ref" et "Nvref"
 
End Sub

Merci par avance pour vos réponses

[Menhir]

Ton code n'est pas très loin d'être fonctionnel.
Comme ça il devrait mieux fonctionner :

Code :

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

Range("A" & Ref & ":B" & DL).Copy Feuil4.Range("A" & NvRef)

Il y a une chose qu'il faut garder en tête : la référence dans un Range est une chaine de caractère.
A ce titre, on peut la composer par concaténation comme n'importe quelle chaine.

[schapl]

Merci j'ai essayé et ça marche !!!
Cependant est-ce possible dans ce contexte de "Couper/Coller" plutôt que de "Copier/Coller" ?
Si oui comment ?

[Menhir]

Code :

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

1
2
Range("A" & Ref & ":B" & DL).Cut 
Feuil4.Range("A" & NvRef).PasteSpecial(xlPasteAll)

[Philippe Tulliez]

Bonjour,
La méthode Cut comme Copy a un argument Destination. Il ne faut donc pas passer par une ligne supplémentaire utilisant la méthode Paste ou PasteSpecial

[schapl]

Code :

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

1
2
Range("A" & Ref & ":B" & DL).Cut 
Feuil4.Range("A" & NvRef).PasteSpecial(xlPasteAll)

Quand je le met dans mon code et que je compile j'ai une erreur : Erreur d'exécution '1004' Erreur definie par l'application ou par l'objet

[jpvba]

Bonjour schapl

Est-ce que vous avez faite ce que monsieur Tulliez a dit au post précédent ?

Si oui, avez-vous toujours l'erreur ???