ERREUR DE COMPILATION : Projet ou bibliotheque introuvable code VBA

Question

Bonjour chers excelliens. svp sujet d'une extreme urgence. cloture comptable mensuel en suspens....

Merci d'avance pour votre aide

Sub consoBank()
'consolidation Macro
'
MsgBox ("Cette operation peut durer quelques minutes compte tenu du volume des données à analyser. ")
Feuil15.Select
Sheets("0120").Select
Range("A2:J839").Select
Selection.Copy
Sheets("CONSO").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=831
Range("A839").Select
Sheets("0220").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CONSO").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=840
Range("A1676").Select
Sheets("0320").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CONSO").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=828
Range("A2513").Select
Sheets("0420").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CONSO").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=837
Range("A3350").Select
Sheets("0520").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CONSO").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=840
Range("A4187").Select
Sheets("0620").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CONSO").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=837
Range("A5024").Select
Sheets("0720").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CONSO").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=840
Range("A5861").Select
Sheets("0820").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CONSO").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=843
Range("A6698").Select
Sheets("0920").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CONSO").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=834
Range("A7535").Select
Sheets("1020").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CONSO").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=831
Range("A8372").Select
Sheets("1120").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CONSO").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=837
Range("A9209").Select
Sheets("1220").Select
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CONSO").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1:J10045").Select
Selection.Borders.Value = 1
Columns("I:I").EntireColumn.AutoFit
Columns("J:J").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Columns("E:F").Select
Range("F1").Activate
Selection.EntireColumn.Hidden = True
Cells.Select
ActiveWorkbook.Worksheets("CONSO").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("CONSO").Sort.SortFields.Add ey:=Range("B2:B10045") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("CONSO").Sort.SortFields.Add(Range("D2:D10045"), xlSortOnFontColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(0, 0, 0)
With ActiveWorkbook.Worksheets("CONSO").Sort
.SetRange Range("A1:J10045")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Dim Dern_Ligne As Integer
Dern_Ligne = Range("A" & Rows.Count).End(xlUp).Row
i = 1
boucle:
While Cells(i, 1) <> ""
If Cells(i, 10).Value = 0 Then
Cells(i, 10).EntireRow.Delete
i = i - 1
Else
i = i + 1
End If
Wend
If Cells(i + 1, 1) <> "" Then
i = i + 1
GoTo boucle
Else: Exit Sub
End If
MsgBox ("CONSOLIDATION TERMINEE. ")

JExceL2fr · Answer

Commencez déjà par éditer votre post et mettez votre code entre balises SVP Vous avez un bouton pour çà...

JExceL2fr · Answer

Re,

Merci pour tous, il manque le "End Sub" mais à priori rien de bloquant

Vérifiez si dans les références VBAProject qu'il n'y en est pas une d'indiquée [MANQUANTE]

Si oui, décochez là

A+