Mes macros ne s'exécutent pas (consoBank et traitemementbanquemars)

Le 11/10/2021 à 20:10

Bonjour

le message d'erreur qui s'affiche est : erreur de compilation ("projet ou bibliotheque introuvable")

SVP AIDEZ MOI

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. ")
Sub traitementbanquemars()
Range("A5:J839").Select
ActiveWorkbook.Worksheets("0320").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("0320").Sort.SortFields.Add Key:=Range("B6:B839"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("0320").Sort.SortFields.Add(Range("D6:D839"), _
xlSortOnFontColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(0, 0, 0)
With ActiveWorkbook.Worksheets("0320").Sort
.SetRange Range("A5:J839")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("L6").Select
Range("A1:J1").Select
Dim Dern_Ligne As Integer
Dern_Ligne = Range("A" & Rows.Count).End(xlUp).Row
i = 3
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 + 3, 1) <> "" Then
i = i + 3
GoTo boucle
Else: Exit Sub
End If

Edit modo : On commence par dire bonjour, pas de majuscule dans le titre et le code entre balise avec le bouton </>

Le 11/10/2021 à 23:35

Bonsoir,

merci de mettre ton fichier anonymisé et si tu mets ton code sur le forum merci également d'utiliser les balises codes (bouton </> ci-dessus)

Rechercher des sujets similaires à "mes macros executent pas consobank traitemementbanquemars"