Discussion :

[CodeRaccoon]

Bonjour,

Je fais appel à vous car j'ai un problème que je n'arrive pas à résoudre de manière "simple".

J'ai un tableau disposé comme ceci:


Comme vous pouvez le voir, la colonne p3 a moins de dates que les deux autres. Or, je voudrais que toutes valeurs correspondant à une même date soient sur la même ligne, et que les dates qui ne sont pas disponibles pour chaque p soient supprimées. A la fin, il ne resterait donc plus que les dates qui sont disponibles pour tous les p, et chaque ligne correspondra à une date.

J'ai bien sûr penser à utiliser les dictionnaires, mais je souhaiterais éviter cela.

Si quelqu'un a une idée d'algorithme, je suis preneur!

En vous remerciant,

Clément

[Marc-L]

Bonjour,

l'algo est simple : comparer les dates en ligne et si une date n'est pas à sa place,
insérer une cellule vide dans les colonnes date et donnée …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[Jean-Philippe André]

Salut

tu peux tres bien faire une boucle sur les dates, avec un test dans chacune des 3 colonnes avec la recopie de la valeur.

exemple a adapter (code pas optimal non plus hein ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
' le code ecrira la date dans la colonne H, les valeurs des p1, p2 et p3 en I, J  et K
Dim dt As Date
Dim i As integer, j as integer
i = 1
For dt = #01/01/2016 To Date
    i=i+1
    Range("H" & i).value = dt
    For j = 2 To Range("B65536").End(xlup).row
        If Range("B" & j).value= dt then
            Range("I" & i).value = Range("C" & j).value
        End If
     Next j
     For j = 2 To Range("D65536").End(xlup).row
         If Range("D" & j).value= dt then
              Range("J" & i).value = Range("D" & j).value
         End If
     Next j
     For j = 2 To Range("F65536").End(xlup).row
         If Range("F" & j).value= dt then
              Range("K" & i).value = Range("G" & j).value
         End If
    Next j
Next dt

[CodeRaccoon]

Merci pour vos réponses très rapides!

Jean-Philippe, votre proposition répond en partie à mon problème, mais le souci est que je ne sais pas à l'avance combien de colonnes il y aura dans mon fichier. Ici il y a p1 p2 p3 mais il peut y avoir p1 ... pN.

Je vais essayer de généraliser votre code.

Merci encore,

Clément