Discussion :

[malabarbe]

Bonjour,

Ce que je souhaite faire est très simple, mais je planche !

Avec un copier-coller, je récupère des données dans ma Feuil1
Ce que je voudrais faire c'est d'activer la cellule a la dernière de
récupération et a la dernière colonne (ça, jy arrive)
par exemple cells(30,15)
je voudrais sélectionner automatiquement de (30,15) a (2,1)
ensuite copier la sélection dans la Feuil2 pas n'importe ou mais
a la première ligne vide.

Cela doit être plus facile a faire qu'a expliquer !

Merci pour vos conseils

[Krovax]

Regarde ceci ca te permetra de trouver la dernière ligne et dernière colonne


Pour copier

Code :

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

feuil1.Range(cells(2,1),cells(derniereligneFeuil1,dernierecolonne)).copy feuil2.range("A" & derniereligneFeuil2+1)

Ca evité de sélectionner et de passer par le presse papier, en gros c'est a mon sens plus propre et cela fait gagner du temps et des ligne de code

Voila avec ca tu devrais pouvoir t'en sortir, reviens nous voir si tu as un soucis (mais avec un bout de code c'est plus claire comme explication)

ps : j'ai répondu a une question du type, comment copier toutes les donnée d'un tableau en feuille1 a la suite d'un tableau en feuil 2?
(je cri que c'est ce que tu as essayer de demander mais je précise des fois que je me serais planté )

[casefayere]

Bonjour,

exemple :

1ere ligne vide en partant du haut, sur la colonne "a"

Code :

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

range("a2").end(xldown).row + 1

1ere ligne vide en bas du tableau

Code :

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

range("a" & rows.count).end(xlup).row + 1

[malabarbe]

Bonjour a vous deux,

J'ai testé en premier

Code :

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

1
2
 
range("a" & rows.count).end(xlup).row + 1

mais j'ai une erreur a : .row + 1
quand, je copie cette ligne de code,
il m'efface le signe +
et quand j'exécute, erreur et row est en bleu

[casefayere]

à mon avis tu dois faire une mauvaise manip

essaies ce code

Code :

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

1
2
3
dim dl as integer
dl = range("a" & rows.count).end(xlup).row + 1
range("a" & dl).select

ça te selectionnera la premiere cellule vide en bas du tableau

[malabarbe]

Ok, c'est bon

J'ai fait le reste
Il ne reste plus qu'a copier les données dans feuille Base

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
16
17
18
19
20
21
22
23
 
'Sélectionne et met en mémoire la plage de cellules
DerniereLigne = Range("A65535").End(xlUp).Row
For I = 2 To DerniereLigne
    If Val(Cells(I, 1)) < 0 Then
       GoTo hhh
    End If
Next I
 
hhh:
Range(Cells(2, 1), Cells(I - 1, 10)).Select
Range(Cells(2, 1), Cells(I - 1, 10)).Copy
 
'Sélectionne la Feuille Base
    Sheets("Base").Select
    Range("A1").Select
 
'Recherche la première ligne vide et se positionne dessus
dl = Range("a" & Rows.Count).End(xlUp).Row + 1
Range("a" & dl).Select
 
'Colle les données dans Base
'???

Et voir si mon code peut être ammélioré !

[casefayere]

Sans avoir vérifié tes boucles ni ton goto, j'ai un peu amélioré le code (plus de select inutile)

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
16
17
18
With Sheets("feuil1") 'remplace par le nom de ta feuille
DerniereLigne = .Range("A" & .Rows.Count).End(xlUp).Row
For I = 2 To DerniereLigne
    If Val(.Cells(I, 1)) < 0 Then
       GoTo hhh
    End If
Next I
 
hhh:
.Range(.Cells(2, 1), .Cells(I - 1, 10)).Copy
End With
'Sélectionne la Feuille Base
With Sheets("Base")
 
'Recherche la première ligne vide et se positionne dessus
dl = .Range("a" & .Rows.Count).End(xlUp).Row + 1
ActiveSheet.Paste Destination:=.Range("a" & dl)
End With