AUTOMATISER une re organisation des données

Le 24/02/2012 à 13:06

Bonjour

Une autre méthode

17twrj22-reorganise-v004.xlsm (25.12 Ko)

Le 24/02/2012 à 14:07

Encore une fois merci Banzai04 !!!

Le 01/03/2012 à 11:02

Salut

J'ai un nouveau problème..

Toujours dans l'optique de ma reorganisation des données j'ai besoin de rajouter des données provenant d'une nouvelle feuille (feuille 4 dans mon exemple) au donné de ma feuille 3 ...

ci joint un exemple plus parlant...

J'ai essayé d'utiliser la même moulinette que precedement .. mais ça me retourne plein de doublon et plein de lignes inutiles .. je ne sais comment faire

Je vous remercie !!!

13twrj22-reorganise-v004-1.xlsm (26.45 Ko)

Le 01/03/2012 à 11:31

Bonjour

A vérifier

18twrj22-reorganise-v005.xlsm (33.77 Ko)

Le 01/03/2012 à 13:26

C'est good problème résolu

Le 01/03/2012 à 16:57

Ma petite moulinette ne fonctionne pas en fait dans le cas où j'ai dans la colonne "nom" de ma feuil 3 j'ai 2 fois le meme éléments....

ça me retourne les mauvaise données..

Comment puis je faire ??

help

Sub ajout()
Dim J As Long
Dim I As Integer
Dim K As Integer
Dim L As Long
Dim Lg As Long
Dim Cl As Integer
Dim Ws As Worksheet

  Set Ws = Sheets("Feuil3")           ' Page de recopie
  Lg = 2                              ' 1ère ligne de la recopie
  Cl = 9                              ' 1ère colonne de la recopie

  Application.ScreenUpdating = False

  Ws.Cells(Lg, Cl).Resize(1, 6) = Array("p1", "P2", "p4", "P5", "p6", "P7")

  With Sheets("Feuil4")
  For L = 3 To Sheets("Feuil3").Range("H" & Rows.Count).End(xlUp).Row
    For J = 2 To .Range("A" & Rows.Count).End(xlUp).Row

        If .Cells(J, "A") = Sheets("Feuil3").Cells(L, "H") Then

             Lg = Lg + 1
              Ws.Cells(Lg, Cl).Resize(1, 6) = Array(.Cells(J, "B"), .Cells(J, "C"), .Cells(J, "E"), .Cells(J, "F"), .Cells(J, "G"), .Cells(J, "H"))

        End If
        Next J
      Next L

  End With
End Sub

Le 01/03/2012 à 17:08

Bonjour