Pb d'incompatibilité de type

Version imprimable

1 pièce(s) jointe(s)

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:

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

26/11/2009, 10h55
chloe2

Code:

.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...:calim2:
26/11/2009, 11h02
Jean-Philippe André

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

en fait tu veux sommer tes lignes si les colonnes R et P sont identiques ?
26/11/2009, 11h09
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:

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

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

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! :(

Code:

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!