Sub MacroXL4ToVBA()
' Activer le classeur Trésorerie 2023-2024.xls
Workbooks.Open ("C:\Users\Stef\Desktop\2024 COMPTA\2023-2024\Finances Compta\Compta 2023-2024\Trésorerie 2023-2024.xls")
Sheets("Journal banque CMUT").Activate
' Sélectionner la plage A4:I3500
Range("A4:I3500").Select
Selection.ClearContents
' Activer le relevé CMUT 2023-2024
Workbooks("Trésorerie 2023-2024.xls").Sheets("Relevé CMUT 2023-2024").Activate
' Sélectionner la plage G2:I2
Range("G2:I2").Select
Selection.ClearContents
' Calculer le nombre de valeurs dans la colonne A du relevé CMUT
Dim nbValeurs As Long
nbValeurs = WorksheetFunction.CountA(Workbooks("Trésorerie 2023-2024.xls").Sheets("Relevé CMUT 2023-2024").Range("A6:A1500"))
Range("I2").Formula = nbValeurs
' Calculer la prochaine ligne à écrire dans le relevé CMUT
Dim prochaineLigne As Long
prochaineLigne = Range("H2").Value + 1
Range("H2").Formula = prochaineLigne
' Activer le feuille de calcul calculCMUT
Sheets("calculCMUT").Activate
' Vérifier si la somme de la colonne A est égale à zéro
If Application.WorksheetFunction.Sum(Range("A2:A400")) = 0 Then
Range("A11").Select
Else
Range("A16").Select
End If
' Vérifier si J1 est égal à I1
If Range("J1").Value = Range("I1").Value Then
Range("A18").Select
Else
MsgBox "L'ECRITURE N'EST PAS EQUILIBRÉE DANS LE FEUILLE CALCUL. RECTIFIER ET RELANCER .", vbExclamation
Exit Sub
End If
' Aller à la ligne A31
Range("A31").Select
' Sélectionner la plage A2:J400
Range("A2:J400").Select
' Copier la sélection
Selection.Copy
' Sélectionner la cellule K2
Range("K2").Select
' Coller les valeurs uniquement
Selection.PasteSpecial Paste:=xlPasteValues
' Trier la plage par la colonne L (colonne 11)
Range("L2").Select
Range("L2").Sort Key1:=Range("L2"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
' Sélectionner la plage L2:T400 en fonction des valeurs de la colonne K
Dim derniereLigne As Long
derniereLigne = Application.WorksheetFunction.Match(1, Range("K2:R400"), 0)
Range("L2").Resize(derniereLigne - 1, 8).Select
' Copier la sélection
Selection.Copy
' Activer le journal banque CMUT
Workbooks("Trésorerie 2023-2024.xls").Sheets("Journal banque CMUT").Activate
' Sélectionner la prochaine ligne vide dans la colonne A
Dim prochaineLigneJournal As Long
prochaineLigneJournal = WorksheetFunction.Index(Range("A4:A5000"), Range("A2").Value + 1)
Range("A" & prochaineLigneJournal).Select
' Coller les valeurs uniquement
Selection.PasteSpecial Paste:=xlPasteValues
' Vérifier si H2 est égal à G2
If Range("H2").Value = Range("G2").Value Then
Range("A30").Select
Else
Range("A12").Select
End If
' Émettre un bip sonore
Beep
' Retour au début
Exit Sub
End Sub
