Nature et propriété des feuilles

Salut flo,
ta macro n'a pas de pb, peut être il faut préciser Worksheets('x') pour utiliser les collections.
Je teste autre chose...

Salut,

''...If Sheets('Extract_AFU').Range('w2' & i2) = Sheets('Rolling_Forecast').Range('e10' & i1) Then...''

Que sont les variables ''i2'' et ''i1'' ??
Tel que écrit, la syntaxe est forcément incorrecte !

Tu veux faire quoi ?

AV [aaa]

bonjour flo, blunet, av

comme av maintenant , nous t'avons déjà dit que ta syntaxe n'etait pas bonne :

pierrejean ici :
Ce lien n'existe plus

moi, ici :
Lien supprimé

il me semble sincerement que tu peux nous croire.

je t'ai mis dans le lien ci-dessus un exemple de classeur fonctionnant, l'as-tu essayer, correspond -t'il à ta demande ?

As tu des formules dans la colonne E renvoyant 0 et etirées sur de nombreuses lignes ?

salut

Re bonjour tout le monde!
Depuis ce matin après une nieme modification le code semble fonctionné. Je vous montre ce que j'ai mis:

Cells.Select
Selection.RemoveSubtotal
Range('a1').Select
Sheets('Extract_AFU').Visible = True


Dim c1 As Range, c2 As Range


Dim Exist As Byte
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Sheets('Rolling_Forecast')
Set ws2 = Sheets('Extract_AFU')

ws1.Cells.RemoveSubtotal

For Each c2 In ws2.Range('w2:w' & ws2.Range('w65536').End(xlUp).Row)
Exist = 0
For Each c1 In ws1.Range('e10:e' & ws1.Range('e65536').End(xlUp).Row)

If c2.Value = c1.Value Then Exist = 1
Next c1

If Exist = 0 Then
With ws1
.Range('e' & .Range('e65536').End(xlUp).Row + 1) = c2
End With
End If
Next c2

Voila merci pour vos inspiration!