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

[chloe2]

Code :

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

    .Columns("P:P").TextToColumns Destination:=.Range("P5")

En essayant de rajouter cette ligne avant ma boucle j'obtiens désormais une erreur d'éxécution...

[Jean-Philippe André]

salut,
il n'y a aucun code dans ton fichier excel, est-ce voulu ?

en fait tu veux sommer tes lignes si les colonnes R et P sont identiques ?

[chloe2]

ouic'est voulu sinon le code est bien plus long et comprend des parties sans intérêt.
Oui si D et F sont identique entre la ligne i et i-1 (jai effectué un double tri donc je suis sure que les lignes sont l'une apres l'autre en cas d'égalité) alors je somme Pi et Pi-1 et je supprime la ligne i.

avec

Code :

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

    .Range("P5:P225").TextToColumns Destination:=.Range("P5")

J'obtiens un format nombre mais ma macro sarrete desormais pr erreur dincompatibilité sur l'instruction

Code :

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

1
2
3
.Range("R5") = _
        "=VLOOKUP(RC[-14],'[correspondance.xls]Feuil1'!C1:C3,3,FALSE)"
    .Range("R5").AutoFill Destination:=.Range("R5:R225"), Type:=xlFillDefault

qui n'est qu'une rechercheV dun code dans un autre fichier et qui marchait très bien avant!

[chloe2]

Code :

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

1
2
.Range("R5").FormulaR1C1 = "=VLOOKUP(RC[-14],'[correspondance ]Feuil1'!C1:C3,3,FALSE)"
    .Range("R5").AutoFill Destination:=.Range("R5:R225"), Type:=xlFillDefault

fonctionne... vas savoir pourquoi!