Discussion :

[Mimosa777]

Bonjour,

apres plusieurs recherche sur le forum intéssante, je n'arrive pas cependant a realiser ma procedure qui se doit de copier le contenu d'une feuille et recopier cela dans une autre feuille du meme classeur qui contient deja des données.

l'objectif serait de copier tout le contenu de ma feuille1 a partir de ligne i,colonneA jusqu'à ligne i+1,colonne C dans une autre feuille en dessous des valeurs déjà existante. Ma feuille 2 serait un genre d'historique de tous ce qui s'est produit dans ma feuille 1. A la fermeture de mon application, tout le contenu de la feuille 1 se vide et une copie est donc présente dans ma feuille 2 cumulativement au fil des temps.

Voici la fonction que j'utilise pour faire ma copie :

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
24
Sub FiltreLulu()
 
  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
 
  Sheets("Sheet2").Activate ' feuille de destination
 
  Col = "C"                 ' colonne de la donnée non vide à tester
  NumLig = 0
  With Sheets("Sheet1")     ' feuille source
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 1 To NbrLig
    If .Cells(Lig, Col).Value <> "" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Cells(NumLig, 1).Select
      ActiveSheet.Paste
    End If
  Next
  End With
 
End Sub

Cela marches tres bien sauf que a chaque fois que j'ai des nouvelles données dans la feuille1 (sheet1), cela va ecraser le contenu de ma sheet2 alors que ce que je veux, c'est pouvoir les ajouter a la suite des données deja existante dans la sheet2.

En espérant avoir été clair, merci de me fournir une piste ou solution intéressante.

Merci de votre aide d'avance.

[Mimosa777]

C'est bon merci a tous mais j'ai finalement trouvé.

Voici le code pour qui cela interesse :

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
24
25
Sub FiltreLulu()
 
  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
 
  Sheets("Sheet2").Activate ' feuille de destination
 
  Col = "C"                 ' colonne de la donnée non vide à tester
  NumLig = 0
  With Sheets("Sheet1")     ' feuille source
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 1 To NbrLig
    If .Cells(Lig, Col).Value <> "" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Cells(NumLig, 1).Select
      Sheets("Sheet2").Cells(NumLig, 1).Insert Shift:=xlDown
      'ActiveSheet.Paste
    End If
  Next
  End With
 
End Sub