Actualisation d données automatiquement VBA Fermé

Question

Bonjour, 
je désire copier les données d'une plage (des feuilles d'un classeur ) dans un tableau
le classeur est un rapport journalier ; et j rajoute des nvelles feuille chaque jour !
quand je supprime les premières feuilles de 1-a 10 par ex 
et je fait l'actualisation! les novelle données viennent écraser les anciennes.
je veux copie sans écraser les données !  
de préférence ; les données se collent en haut de tableau a la ligne 6 par exemple
comme décrit dans la macro
voici la macro
Sub Actualiser()
'
'ACUALISER
'  Dim Wsh As Worksheet, FeuilRecap As Worksheet, k As Integer
Set FeuilRecap = Worksheets("TABLEAU") 'feuille ou coller
k = 2 'autant débuter le "collage" à la seconde ligne
'boucle sur toutes les feuilles du classeur
For Each Wsh In ThisWorkbook.Worksheets
  'Si la feuille (en cours dans la boucle) n'est pas la feuille récap alors
  If Not Wsh Is FeuilRecap Then
    'copié-collé
    Wsh.Range("i1:v1").Cut FeuilRecap.Rows(k)
    'ligne suivante pour le collage
    k = k + 1
  End If
Next Wsh
End Sub
'
Sub Actualiser()
'
MERCI
Configuration: Configuration: / Internet Explorer 999.1

ThauTheme · Answer

Bonjour Ismail, bonjour le forum,
Peut-être comme ça :
Sub Actualiser()
Dim Wsh As Worksheet, FeuilRecap As Worksheet, k As Long

Set FeuilRecap = Worksheets("TABLEAU") 'feuille ou coller
For Each Wsh In Worksheets
    If Not Wsh Is FeuilRecap Then
        k = IIf(FeuilRecap.Range("A2") = "", 2, FeuilRecap.Cells(Application.Rows.Count, 1).End(xlUp).Row + 1)
        Wsh.Range("i1:v1").Cut FeuilRecap.Cells(k, 1)
    End If
Next Wsh
End Sub

ismail · Answer

merci pour votre reponse
je l'ai essyé!
mais le programme copie seulement les données de la premiere feuille
....et supprime les données des feuilles restantes!

ismail · Answer

je desire copie les donnees se trouvant dans les meme cellule d'une feuille excel! 
j ai fait le programe et il marche bien
le probleme est que quand je supprime les feuilles (sauf la feuille de recapitulation)! et je ramène d'autre feuille a ce classeur
et quand je fais l'actualisation , le programe colle ces données sur celle existante!
je veux simplement les rajouter a la premiere ligne de tableau et actualiser les donnees dejà ramener

Actualisation d données automatiquement VBA

3 réponses

Discussions similaires