Actualisation d données automatiquement VBA
ISMAIL2016
-
ismail -
ismail -
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
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
A voir également:
- Actualisation d données automatiquement VBA
- Fuite données maif - Guide
- Automatiquement - Guide
- Supprimer les données de navigation - Guide
- Trier des données excel - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
3 réponses
Bonjour Ismail, bonjour le forum,
Peut-être comme ça :
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
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!
je l'ai essyé!
mais le programme copie seulement les données de la premiere feuille
....et supprime les données des feuilles restantes!
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
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