Discussion :

[chloe2]

Bonjour,

Après une extraction d'un reporting d'un outil annexe exporter dans Excel; j'ai un code qui remplace les "." en "," afin d'obtenir des nombre puis une boucle qui compare deux autres champs et qui, si ces deux champs sont identiques, somme les valeurs extraites cependant j'obtiens un erreur d'incompatibilité de type que je n'arrive pas a résoudre. Ci-joint les formats obtenus apres le remplacement des . et ci dessous ma boucle!
Merci!

Code :

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

1
2
3
4
5
6
 For i = 28 To 5 Step -1
            If .Range("R" & i).Value = .Range("R" & i - 1).Value And .Range("F" & i).Value = .Range("F" & i - 1).Value Then
             .Range("P" & i - 1).Value = .Range("P" & i - 1).Value + .Range("P" & i).Value
             .Rows(i).Delete
         End If
     Next i