encore besoin de vous
j'ai la macro suivante qui me dit "block with non d=E9fini"
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 <> "D=E9compteD" And f.Name <> "D=E9comptePU" Then
f.Select
D =3D Evaluate("IF(ISERROR(VLOOKUP(" & f.Name & "!
_A2,D=E9compteD!A:D,3,FALSE)),"""",VLOOKUP(" & f.Name & "!
_A2,D=E9compteD!A:D,3,FALSE))")
X =3D Sheets("D=E9compteD").Range("C:C").Find_
(f.Name,LookAt:=3DxlWhole).Row
X =3D Sheets("D=E9compteD").Range("D:D").Find(f.Name,_=20
LookAt:=3DxlWhole).Row
If D <> "" Then
Range("C" & Range("C65536").End(xlUp).Row + 1) =3D Sheets_
("D=E9compteD").Cells(X, 3)
Range("D" & Range("D65536").End(xlUp).Row + 1) =3D_
[D=E9compteD!4.l]
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
debugger
bonjour Françoise,
à vue de nez :
Dim D As String Dim PU As Variant
For Each f In Sheets with f If .Name <> "DécompteD" And .Name <> "DécomptePU" Then 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 <> "DécompteD" And f.Name <> "DécomptePU" Then 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))")
End Sub ---- Merci d'avance pour votre aide Françoise
.
bonjour Françoise,
à vue de nez :
Dim D As String
Dim PU As Variant
For Each f In Sheets
with f
If .Name <> "DécompteD" And .Name <> "DécomptePU" Then
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 <> "DécompteD" And f.Name <> "DécomptePU" Then
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))")
For Each f In Sheets with f If .Name <> "DécompteD" And .Name <> "DécomptePU" Then 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 <> "DécompteD" And f.Name <> "DécomptePU" Then 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))")