Discussion :

[Physm]

Bonjour


J'ai une base de données où figurent des ID et chaque ID est associées à 2 mesures : MES1 et MES2. Les valeurs de MES1 et MES2 sont disposées verticalement et j'aimerais que c'est 2 valeurs soient disposées horizontalement. J'aurais ainsi une seule ligne ID.

J'ai un code qui marche pas mal :

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
26
27
28
29
30
31
32
33
34
35
    For i = 2 To Range("F" & Rows.Count).End(xlUp).Row Step 1
 
        If Range("H" & i).Value = Range("J1").Value Then
 
            Range("J" & i).Value = Range("I" & i).Value
 
        Else: Range("J" & i).Value = "0"
 
        End If
 
    Next i
 
    For i = 2 To Range("F" & Rows.Count).End(xlUp).Row Step 1
 
        If Range("J" & i).Value > 0 Then
 
            If Range("H" & i + 1).Value = Range("K1").Value Then
 
                If Range("F" & i).Value = Range("F" & i + 1).Value Then
 
                    Range("K" & i).Value = Range("I" & i + 1).Value
 
                Else: Range("K" & i).Value = "NA"
 
                End If
 
            Else: Range("K" & i).Value = "0"
 
            End If
 
        Else: Range("K" & i).Value = "0"
 
        End If
 
    Next i

Ensuite je supprime les lignes où figurent un 0 simultanément en J et K

Le problème est que pour certains ID, je n'ai qu'une seule valeur, soit MES1 soit MES2, comme c'est le cas pour ID14 de mon fichier. Avec ma méthode, ça supprime les ID à une seule valeur.
Si quelqu'un a une méthode plus pertinente, je suis preneur

Merci d'avance

Physm