Nature et propriété des feuilles

[flo2002]

Bonjour,
cela fait quelque s jours déja que je bataille pour faire fonctionné une macro. Elle compare deux colonnes dans deux feuilles différentes :

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

le probleme est que les deux partie ne fonctionne pas en meme temps. Il ne considere pas le sheets('x'). et prend la valeur de la feuille qui est ouverte.
Je me demandais donc si cela n'était pas du à une propriété de la feuille car ma macro fonctionne dans d'autre classeur.

Merci d'avance

 

[Blunet]

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...

 

[AV]

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]

 

[Hervé]

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

 

[flo2002]

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!