Tri automatique de données

Bonjour,

J'ai deux tableaux "tableau_2" et "tableau_3". Le tableau_3 fait un recap de types de moto qui se trouvent au niveau de mon tableau_2.

Y'aurait il un astus pour que mon tableau_3 s'établit automatiquement;

En réalité j'ai simplifié car c'est une quantité de donnéés non négligeable.

Merci d'avance.

Bonsoir

A tester

Bonsoir,

Impeccable ça marche. Comme dap problème résolu j'espère en faire autant bientôt.

Merci.

je suis entrain de l'adapter mais y'a un truc qui m’échappe.

Au niveau du code vous n'avez pas fait appel à "feuil3" la destination, pourquoi ?

Bonjour

Car c'est elle qui appelle la macro, donc pas besoin de la nommer

Code en place dans le module de la feuille "Feuil3"

Private Sub Worksheet_Activate()
  Recopie
End Sub

touche du maître.

Ce qu'il fallait faire.

Encore merci.

Bonjour,

je veux que mon tableau de des destiation au niveau du feuil3 s'arrête à la cellule D10.

J'ai d'abord pensé à créer un tableau qui contien D5:D10.

Merci.

Bonjour

Si tu veux limiter la recopie entre D5 et D10 essayes

Option Explicit

Sub Recopie()
Dim J As Long
Dim Mondico As Object

  Application.ScreenUpdating = False
  If Range("D5") <> "" Then
    Range("D5:D" & Range("D" & Rows.Count).End(xlUp).Row).ClearContents
  End If
  Set Mondico = CreateObject("Scripting.dictionary")
  With Sheets("Feuil2")
    For J = 3 To .Range("B" & Rows.Count).End(xlUp).Row
      Mondico(.Range("B" & J).Value) = ""
    Next J
  End With
  If Mondico.Count > 0 Then
    Range("D5").Resize(Application.Min(6, Mondico.Count), 1) = Application.Transpose(Mondico.keys)
  End If
End Sub

Effectivement ça marche bien.

Mais un petit souci, si j'écris quelque chose en bas de ces cellules, ils vont s'éffacer juste après.

Sinon impecable.

Merci.

Bonjour

khech a écrit :

si j'écris quelque chose en bas de ces cellules

Un exemple serait le bienvenu

Désolé,

Je veux dire que la limitation des valeurs de D5 à D10 marche très bien mais si j'ecris sur les cellules D12, D13, D14... (colonne D) ils vont s'effacer du moment que le tablau se réactualise.

Merci.

Bonjour

A ok, c'est l'effacement des données précédentes avant la recopie

Modifies le code

Option Explicit

Sub Recopie()
Dim J As Long
Dim Mondico As Object

  Application.ScreenUpdating = False
  Range("D5:D10").ClearContents
  Set Mondico = CreateObject("Scripting.dictionary")
  With Sheets("Feuil2")
    For J = 3 To .Range("B" & Rows.Count).End(xlUp).Row
      Mondico(.Range("B" & J).Value) = ""
    Next J
  End With
  If Mondico.Count > 0 Then
    Range("D5").Resize(Application.Min(6, Mondico.Count), 1) = Application.Transpose(Mondico.keys)
  End If
End Sub

Ending.

Merci Banzai ça marche.

Bien des choses à vous.

Bonjour Banzai64,

j'ai une nouvelle requéte concernant ce même macro.

Serait il possible d'augmanter les critéres de tri.

Je m'explique: je voudrais que les elements qui sont au niveau des colonnes bleue soient recopiés de la même maniere que la colonne version mais pour la facturation (colonne rouge) on remarque que chaque version peut avoir deux types de facturation.

J'ai essayé de vous donnez une idée du resultat que je voudrais avoir si possible au niveau feuil4.

Merci d'avance.

Bonjour

C'est une reprise complète de la macro

A tester

Merci,

je vais le tester de suite car j'avais même commencé à essayé les TCD avec champs calculés pour voir.

Merci encore.

Bonjour,

j'ai adapté le tableau vc mes données et je me suis bien sortie.

Dans "feuil5" vu que les acompte peuvent être de montants differents. Je devais passer normalement par les TCD mais comme je dois faire des calcules en linge se sera pas la bonne solution vu que les tcd Bougent.

Est il possible de modifier le macro pour avoir cette colonne I "encaiss" pour faire le cap des acomptes et des soldes

Merci encore.

Bonjour Banzai64,

est possible d'avoir le même modéle comme indiqué dans feuil5, je me suis pas mal sortie avec le TCD mais l'idéal serait d'avaoir pour chaque version deux colonnes fixent "Recap" et "Montant_Recap" à la fin avec "acomptes" et "soldes".

Je pense que se serait l'ideal.

Merci d'avance.

Bonjour

A tester

Un très grand MERCI.

Bon Après midi.