Discussion :

[Biowave]

Bonjour vous,

Je rencontre quelques difficultés à formater les données d'un fichier excel.
Ce fichier est composé de 4 colonnes, une pour la date et trois autres pour des nombres. Chaque série est composée de cette manière date, Num App, Num Lot, Num Echant.
Je souhaite mettre mettre en forme ce fichier sous cette forme:
Une ligne comprenant : la date, le Num_App, le Num_lot et les différents Num_Echant (cf. fichier joint).
J'ai essayé avec des formules excel...mais sans succès.
Quelqu'un a-t-il une solution, excel et/ou VB?

Merci

Cordiaux messages

Jean-Pierre

[jfontaine]

Bonjour,

Essais le code ci dessous

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
24
25
Dim i As Integer
Dim c As Integer
Dim LigneCible As Long
 
'Boucle sur chaque ligne de données
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
   'Test si les données des colonnes A,B,C sont différentes de la ligne précédente
   If Range("A" & i).Value <> Range("A" & i - 1).Value Or Range("B" & i).Value <> Range("B" & i - 1).Value Or Range("C" & i).Value <> Range("C" & i - 1).Value Then
        'Si différente, on stock le numéro de ligne dans la variable LigneCible et on alimente les données communes ainsi que la donnée de la colonne D
        ' La variable c nous permettra de connaitre le numéro de colonne de destination de la prochaine information
        LigneCible = i
        Range("F" & LigneCible).Value = Range("A" & i).Value
        Range("G" & LigneCible).Value = Range("B" & i).Value
        Range("H" & LigneCible).Value = Range("C" & i).Value
        Range("I" & LigneCible).Value = Range("D" & i).Value
        c = 9
 
   Else
     'Si données de la ligne précédente = données de la ligne en cours, on ajoute l'information de la colonne D
     c = c + 1
    Cells(LigneCible, c).Value = Range("D" & i).Value
 
   End If
 
Next i

[Biowave]

Merci Jérome pour le code. Pourrais-tu m'expliquer la procédure, je suis un béotien...Mais qui apprend vite.

Bonne journée

[jfontaine]

J'ai mis quelques commentaires sur mon code.

[Biowave]

Super, un grand merci.

Jean-Pierre