Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

données ecraser après copie dans un tableau

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sky45
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sky45

Guest
salut à tous,

j'ai un tableau dont les données sont réguilièrement mise a jour (feuille data) je copie uniquement les cellules avec les montants sont superieur a 100 vers le tableau (feuille rapport)
seulement lorsque je change les données sur la feuille data et que je fais un nouvel enregistrement celui ci efface l'ancien contenu sur la feuille rapport !
je voudrais que les données se mette à la suite sans etre effacées et avec un saut de une ligne apres chaque enregistrement
pouvez vous m'aider s'il vous plait ?

en copie le fichier de ce que j'ai fait merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : données ecraser après copie dans un tableau

Bonsoir sky45,

On ne sait pas bien si vous voulez les valeurs > 100 ou > 300 mais peu importe.

Voyez le fichier joint et cette macro dans le code de la feuille :

Code: 
Private Sub Worksheet_Activate()
Dim limit#, celdeb As Range, nlig&, ncol%, h&, source, dest(), i&, j%, n&
limit = 100 'à adapter
With Sheets("data") 'nom à adapter
  Set celdeb = .[D4] '1ère cellule, à adapter
  nlig = .Cells(.Rows.Count, celdeb.Column).End(xlUp).Row - celdeb.Row
  ncol = .Cells(celdeb.Row, .Columns.Count).End(xlToLeft).Column - celdeb.Column
End With
h = 2 * Application.CountIf(celdeb(2, 2).Resize(nlig - 1, ncol - 1), ">" & limit)
source = celdeb.Resize(nlig, ncol)
ReDim dest(1 To h, 1 To 3)
For i = 2 To nlig
  For j = 2 To ncol
    If source(i, j) > limit Then
      n = n + 2
      dest(n, 1) = CDate(source(1, j))
      dest(n, 2) = source(i, 1)
      dest(n, 3) = source(i, j)
    End If
  Next
Next
[A2].Resize(h, 3) = dest
Rows(h + 2 & ":" & Rows.Count - 1).ClearContents
End Sub
La macro s'exécute quand on active la feuille "rapport".

Edit : j'ai mis la MFC sur toute la colonne C (sauf C1).

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : données ecraser après copie dans un tableau

Re,

Avec la macro précédente le tableau est ordonné suivant les "PTAC".

Si on veut l'ordonner suivant les dates, inverser l'ordre des boucles :

Code: 
For j = 2 To ncol
  For i = 2 To nlig
Fichier (2).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : données ecraser après copie dans un tableau

Re,

Noter que s'il n'y a pas de valeur > limit la macro beugue.

Donc il est plus prudent d'ajouter 1 pour définir h :

Code: 
h = 2 * Application.CountIf(celdeb(2, 2).Resize(nlig - 1, ncol - 1), ">" & limit) + 1
Bonne nuit et A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : données ecraser après copie dans un tableau

Re,

Encore une chose, si le tableau en feuille "rapport" est organisé en "tableau" (Liste) Excel, il est utile de le redimensionner à la fin :

Code: 
On Error Resume Next
Me.ListObjects(1).Resize Range("A1:C" & h)
Fichier (3).

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : données ecraser après copie dans un tableau

Bonjour job75 un grand merci de prendre de ton temps pour m'aider!
tu as raison en ce qui concerne la limite en réalité il y en a 2 montant > 251 et 100<montant<250)
et j'en ai mit que une en me disant que je vais prendre de votre temps alors pas besoin d'en rajouter !
mais sa m a plus déservit qu'autre chose alors cette fois je met le code exact que j'ai fait.
En fait c'est un TCD dont les données sont régulièrement mise a jour et le but de la feuille rapport est d'enregistrer les données après chaque mise à jour sans quel ne soit écraser (les données sont donc ajouter à la suite) lorsque clik sur le bouton rapport de la feuille data.
Et avec ta macro les données sont effacé je me suis mal expliqué la première fois désolé

Voila la feuille et maintenant nouveau probleme sa bugg, sur la feuille rapport plus rien ne se met dans le bon ordre je suis à l'agoinie sur ce ficher!
 

Pièces jointes

Vote positif 0 Vote négatif
Re : données ecraser après copie dans un tableau

Bonjour sky45,

Le problème que vous avez posé concerne la feuille "rapport" non ??

Cette feuille n'a rien à voir avec le TCD qui se trouve dans la feuille "data".

Et quand vous dites :

sky45 à dit:
Et avec ta macro les données sont effacé je me suis mal expliqué la première fois désolé
Cliquez pour agrandir...

c'est complètement faux puisque toutes les données de la feuille "data" sont analysées à chaque activation de "rapport".

Maintenant utiliser les 2 limites 100 et 250 ne pose pas de problème :

Code: 
Private Sub Worksheet_Activate()
Dim limit1#, limit2#, celdeb As Range, nlig&, ncol%
Dim h1&, h2&, h&, source, dest(), i&, j%, n&
limit1 = 100 'à adapter
limit2 = 250 'à adapter
With Sheets("data") 'nom à adapter
  Set celdeb = .[D2] '1ère cellule, à adapter
  nlig = .Cells(.Rows.Count, celdeb.Column).End(xlUp).Row - celdeb.Row
  ncol = .Cells(celdeb.Row, .Columns.Count).End(xlToLeft).Column - celdeb.Column
End With
h1 = 2 * Application.CountIf(celdeb(2, 2).Resize(nlig - 1, ncol - 1), ">" & limit1)
h2 = 2 * Application.CountIf(celdeb(2, 2).Resize(nlig - 1, ncol - 1), ">" & limit2)
h = IIf(h1 > h2, h1, h2) + 1
source = celdeb.Resize(nlig, ncol)
ReDim dest(1 To h, 1 To 4)
For j = 2 To ncol
  For i = 2 To nlig
    If source(i, j) > limit1 Or source(i, j) > limit2 Then
      n = n + 2
      dest(n, 1) = CDate(source(1, j))
      dest(n, 2) = source(i, 1)
      If source(i, j) > limit2 Then dest(n, 3) = source(i, j) _
        Else dest(n, 4) = source(i, j)
    End If
  Next
Next
[A2].Resize(h, 4) = dest
Rows(h + 2 & ":" & Rows.Count).ClearContents
On Error Resume Next
Me.ListObjects(1).Resize Range("A1:D" & h + 1)
End Sub
Fichier (4) enregistré en .xlsm cette fois.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : données ecraser après copie dans un tableau

Bonjour Job75 merci une fois de plus d'avoir repondu aussi vite

votre code fonctionne impec!, la ou on ne se comprend pas c'est au niveau de la feuille rapport
je vous prend un exemple clair pour qu'on se comprenne:

On par des données sur la feuille data :

-A la date du 11/06/2014 NB: on supprime toutes les autres date et données pour ne garder que celle la on des valeurs
valeur>=251 et des valeurs 100<>250
En ouvrant la feuille rapport avec votre code le tableau se rempli automatiquement ! super

- On fait une mise à jour du tableau sur la feuille data à la date du 12/06/2014 NB: Toutes les autres dates sont supprimées
on des valeur>=251 et des valeurs 100<>250
On ouvre la feuille rapport avec votre code les données du 11/06/2014 seront alors ecrasées


En fait il ne faut pas effacer les données précédentes (donc du 11/06/2014) il faut que les mises a jours quotidiennes du
tableau (feuille data) s'ajoute à la suite des précédentes

je ne sais pas si vous m'avez mieux compris ?
 
Vote positif 0 Vote négatif
Re : données ecraser après copie dans un tableau

ok merci bonne continuation,
On génère un tableau croisé on extrait les données interessante en les sauvegargant dans une autre feuille cette operation est répété quotidiennement avec de nouvelles data
ci c'était juste d'écraser les données je ne me serait pas donné tant de mal j'aurai conservé le TCD... (je ne suis pas mazo)

je ne vois pas ou est ecrit le mot base de donnée dans tout mes post ?? ci j'en voulais une se serait deja fait.
et stupide non en aucun cas..
on ne peut pas faire plus clair ci vous comprenez pas c'est pas nécessaire d'etre désagreable tout le monde a ces limites.. moi le premier

bonne journée
 
Vote positif 0 Vote négatif
Re : données ecraser après copie dans un tableau

Re,

Je vois que vous faites de la sémantique d'Excel, c'est très bien.

J'ai utilisé l'expression "Base de donnée" parce que la feuille s'appelle "data", j'aurais dû dire :

Je n'ai jamais vu traiter une base d'une manière aussi stupide.
Cliquez pour agrandir...

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

I
  • Résolu(e)
Microsoft 365 Transformer un export de données
2
Réponses
27
Affichages
814
Ines99
I
D
  • Question Question
Microsoft 365 TCD et onglets spécifiques selon les filtres à définir
Réponses
2
Affichages
190
Daniel200666
D
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
407
NikonvsWild
N
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
522
sousou
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
510
caseras
C
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
328
Nico Gre
N
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
789
ORL
O
  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
419
nightswan
N
  • Question Question
Microsoft 365 Créer une fenêtre de vente qui alimentera un cumul dans un tableau
Réponses
2
Affichages
377
job75
  • Question Question
XL 2021 Mise à jour d'un tableau depuis une feuille Excel
Réponses
5
Affichages
405
thunder23
D
  • Question Question
Microsoft 365 faire un tableau de suivi d'activité sur la base d'un TCD avec filtre
Réponses
0
Affichages
379
Daniel200666
D
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
987
job75
R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
943
Dranreb
M
  • Question Question
XL 2021 actualisation impossible d un tcd
Réponses
2
Affichages
226
Marietchikok
M
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
852
AtTheOne
J
  • Question Question
XL 2021 Excel CSV vers XSL et ne pas écraser les données
Réponses
9
Affichages
472
sylvanu
  • Question Question
Autres Copie de données (message d'erreur)
Réponses
7
Affichages
674
TooFatBoy
R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
909
Renaud22
R
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
683
sousou
XLSM : Copie massive de ligne de données vers la grille
Réponses
3
Affichages
768
oguruma
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…