Problème de compilation dont je con nais pas la source

Bonjour tout le monde,

Merci de m'avoir aider si vous pouver bien sur

je sais pas ou est le problème .. Merci d'avance.

voici le code et la base de donnée

Sub psap_fin()

Dim j As Long
Dim i As Long
Dim SCR As Variant
Dim Cat As Integer
Dim temp As Variant

Workbooks("PSAP 19.xlsx").Sheets("Survenance Par Année").Activate

For i = 3 To Range("A65536").End(xlUp).Row

Cat = cells(i, 1)
SCR = cells(i, 14)

Workbooks("PSAP 19.xlsx").Sheets("PSAP FIN").Activate

For j = 4 To Range("A65536").End(xlUp).Row

If Cat = cells(j, 2) Then cells(j, 3) = cells(j, 3) + SCR
Next j

Next i

End Sub

Bonjour

Il faudrait savoir dans quel fichier ta macro est enregistrée

Sinon à essayer

Pas grand résultat car ta colonne SCR est vide

Option Explicit

Sub psap_fin()
Dim J As Long
Dim I As Long
Dim SCR As Variant
Dim Cat As Integer
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet

  With Workbooks("PSAP 19.xlsx")
    Set Ws1 = .Sheets("Survenance Par Année")
    Set Ws2 = .Sheets("PSAP FIN")

    For I = 3 To Ws1.Range("A65536").End(xlUp).Row
      Cat = Ws1.Cells(I, 1)
      SCR = Ws1.Cells(I, 14)
      For J = 4 To Ws2.Range("A65536").End(xlUp).Row
        If Cat = Ws2.Cells(J, 2) Then Ws2.Cells(J, 3) = Ws2.Cells(J, 3) + SCR
      Next J
    Next I
  End With
End Sub

Salut mehdiissam et le forum

Alors comment tu sais que c'est ce code ?

Un peu succinct ton sujet ! Juste un titre qui nous informe, qu'à priori c'est une erreur de compilation, et un code qu'on doit décrypter, sans aucune idée du but... Vu la précision donnée, que des généralités.

N'ayant qu'Excel 2003, je ne peux être sûr des possibilités de 2010, mais la bonne instruction serait :

Workbooks("PSAP 19").Sheets("Survenance Par Année").Activate

Utiliser

For j = 4 To Range("A65536").End(xlUp).Row

Alors qu'on a un Excel d'une version supérieure, ne me semble pas être une bonne chose :

For j = 4 To cells(rows.count,"A").End(xlUp).Row

me semble plus adapté.

Dim Cat As Integer

Suite à une autre discussion sur un forum, il vaudrait mieux déclarer en Long => Excel ne traite que des Long, et doit reconvertir les valeurs inférieures pour les traiter.

Si tu as une erreur de compilation, Excel doit t'indiquer la ligne en faute : pourquoi ne pas le dire ?

A+

Merci pour ton aide Banzai64

ça marche bien Merci

Merci aussi mon pote Gorfael

@ bientôt