Insertion de ligne en VBA entre différents classeurs

Bonjour,

Je vous dérange encore une fois parce que je rame au niveau de mon premier souci... Je n'arrive pas à insérer quelque chose a la dernière ligne de mon tableau sans avoir à donner le numéro de ligne.

Petite explication :
A l'heure actuelle j'ai insérer uniquement une ligne dans mon tableau mais pour cela j'ai du préciser le numéro de la ligne dans laquelle je voulais insérer. Et je voudrais que par exemple à la place du numéro de ligne que j'informe, savoir si il est possible d'y mettre une variable qui désignerait la dernière ligne à utiliser.
Petit détail : dans les lignes que j'ai insérés les cellules ne se succèdes pas forcément les unes après les autres de colonnes en colonnes.

Je vous donne mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Sub SuiviEquipe()
Dim dest0, dest1, dest2, dest3, dest4, dest5, dest6, dest7, dest8, dest9, dest10, dest11, dest12, dest13, dest14, dest15, dest16 As Range, C As Range
Dim ligne As Range
Dim dateprod As Range
Dim ligneutilisable As Integer
Dim tpsouverturel32 As Range
Dim qteFDL As Range
Dim derniereligne As Integer
 
'C'est le classeur et la feuille sur lesquelles on va coller les données
With Workbooks("TravailPourVandieres.xls").Sheets("Feui lle de Saisies")
 
'Il faudrait que la ligne à utiliser soit trouvé toute seul
Set dest0 = .Cells(7, 9)
Set dest1 = .Cells(7, 10)
Set dest2 = .Cells(7, 11)
Set dest3 = .Cells(7, 12)
Set dest4 = .Cells(7, 13)
Set dest5 = .Cells(7, 14)
Set dest6 = .Cells(7, 15)
Set dest7 = .Cells(7, 16)
Set dest8 = .Cells(7, 17)
Set dest9 = .Cells(7, 18)
Set dest10 = .Cells(7, 19)
Set dest11 = .Cells(7, 20)
Set dest12 = .Cells(7, 21)
Set dest13 = .Cells(7, 22)
Set dest14 = .Cells(7, 23)
Set dest15 = .Cells(7, 24)
Set dest16 = .Cells(7, 25)
Set ligne = .Cells(7, 4)
Set dateprod = .Cells(7, 1)
Set qteFDL = .Cells(7, 6)
Set tpsouverturel32 = .Cells(7, 26)
 
'C'est le classeur et la feuille dans lesquelles on va copier les données
Workbooks("Exemple de rapport de perfs.xls").Sheets("Prologen Data Export").Activate
 
[E11].Copy dest0
[E13].Copy dest1
[E27].Copy dest2
[E37].Copy dest3
[E43].Copy dest4
[E48].Copy dest5
[E56].Copy dest6
[E66].Copy dest7
[E76].Copy dest8
[E85].Copy dest9
[E90].Copy dest10
[E93].Copy dest11
[E99].Copy dest12
[E102].Copy dest13
[E112].Copy dest14
[E113].Copy dest15
[E114].Copy dest16
[E4].Copy ligne
ligne = Replace(Right(Range("E4").Value, 4), "-", "")
[C2].Copy dateprod
dateprod = Replace(Left(Range("C2").Value, 10), "-", "/")
[H6].Copy qteFDL
[E8].Copy tpsouverturel32
 
End With
End Sub

Qu'en pensez vous ?

Bonjour

Citation:

Je n'arrive pas à insérer quelque chose a la dernière ligne de mon tableau sans avoir à donner le numéro de ligne.

Suivant la colonne
Code:

1 2 .Cells(Rows.Count, 1).End(xlUp).Row 'num colonne 1 a changer

Une remarque à part

Code:

Dim dest0, dest1, dest2, dest3, dest4, dest5, dest6, dest7, dest8, dest9, dest10, dest11, dest12, dest13, dest14, dest15, dest16 As Range

Toutes les variables sont des variant sauf dest16
par ailleurs, je ne vois pas l'utilité de ces variables, mais bon, c'est une choix

Je ne suis qu'un débutant peu etre que j'ai fait des choses inutiles.

Bref merci zyhack pour ta methode mais malheureusement ca ne fonctionne pas, cela me met l'erreur :

Erreur 13 = Incompatibilité de type.

l'écriture de la ligne compléte est

Code:

ligne = Workbooks("TravailPourVandieres.xls").Sheets("Feui lle de Saisies").Cells(Rows.Count, "A").End(xlUp).Row+1

ce qui te donnera le numero de la première cellule vide de la colonne A

et ensuite tu utilise

Code:

cells (ligne,1)

sinon remet une copie de ton code pour voir comment tu l'a intégré

Merci zyhack sa marche !

:ccool: