Re : Insertion de ligne en VBA dans un tableau excel
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 :
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("Feuille 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 ?