macro qui coince!

Le
Françoise
bonjour,

encore besoin de vous
j'ai la macro suivante qui me dit "block with non dfini"
voyez-vous ce qui cloche ?

Sub MAJStock()

Dim f As Variant
Dim X As Variant

Dim D As String
Dim PU As Variant

For Each f In Sheets
If f.Name <> "DcompteD" And f.Name <> "DcomptePU" Then
f.Select
D = Evaluate("IF(ISERROR(VLOOKUP(" & f.Name & "!
_A2,DcompteD!A:D,3,FALSE)),"""",VLOOKUP(" & f.Name & "!
_A2,DcompteD!A:D,3,FALSE))")

PU = Evaluate("IF(ISERROR(VLOOKUP(" & f.Name & "!
_A2,DcomptePU!A:D,3,FALSE)),"""",VLOOKUP(" & f.Name & "!
_A2,DcomptePU!A:D,3,FALSE))")

X = Sheets("DcompteD").Range("C:C").Find_
(f.Name,LookAt:=xlWhole).Row
X = Sheets("DcompteD").Range("D:D").Find(f.Name,_
LookAt:=xlWhole).Row

If D <> "" Then
Range("C" & Range("C65536").End(xlUp).Row + 1) = Sheets_
("DcompteD").Cells(X, 3)
Range("D" & Range("D65536").End(xlUp).Row + 1) =_
[DcompteD!4.l]

ElseIf PU <> "" Then
Range("C" & Range("C65536").End(xlUp).Row + 1) = Sheets_
("DcomptePU").Cells(X, 3)
Range("D" & Range("D65536").End(xlUp).Row + 1) = Sheets_
("DcomptePU").Cells(X, 3)

End If
End If
Next

End Sub
-
Merci d'avance pour votre aide
Franoise
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
debugger
Le #1331385
bonjour Françoise,

à vue de nez :

Dim D As String
Dim PU As Variant

For Each f In Sheets
with f
If .Name worksheets(f).Select
********** reste du code ***********
end with

sans garantie !
-----Message d'origine-----
bonjour,

encore besoin de vous
j'ai la macro suivante qui me dit "block with non défini"
voyez-vous ce qui cloche ?
---
Sub MAJStock()

Dim f As Variant
Dim X As Variant

Dim D As String
Dim PU As Variant

For Each f In Sheets
If f.Name f.Select
D = Evaluate("IF(ISERROR(VLOOKUP(" & f.Name & "!
_A2,DécompteD!A:D,3,FALSE)),"""",VLOOKUP(" & f.Name & "!
_A2,DécompteD!A:D,3,FALSE))")

PU = Evaluate("IF(ISERROR(VLOOKUP(" & f.Name & "!
_A2,DécomptePU!A:D,3,FALSE)),"""",VLOOKUP(" & f.Name & "!
_A2,DécomptePU!A:D,3,FALSE))")

X = Sheets("DécompteD").Range("C:C").Find_
(f.Name,LookAt:=xlWhole).Row
X = Sheets("DécompteD").Range("D:D").Find(f.Name,_
LookAt:=xlWhole).Row

If D <> "" Then
Range("C" & Range("C65536").End(xlUp).Row + 1) = Sheets_
("DécompteD").Cells(X, 3)
Range("D" & Range("D65536").End(xlUp).Row + 1) =_
[DécompteD!4.l]

ElseIf PU <> "" Then
Range("C" & Range("C65536").End(xlUp).Row + 1) = Sheets_
("DécomptePU").Cells(X, 3)
Range("D" & Range("D65536").End(xlUp).Row + 1) = Sheets_
("DécomptePU").Cells(X, 3)

End If
End If
Next

End Sub
----
Merci d'avance pour votre aide
Françoise

.



Publicité
Poster une réponse
Anonyme