Microsoft 365 Excel - Problème de macro

vgendron à dit:

Hello
si ton fichier est si gros, c'est sans doute que les images insérées sont dans un format gourmand (genre.. BMP?)
tu peux poster ici ton fichier en ne gardant QUE quelques onglets

j'ai quand meme regardé (ce que je ne fais pourtant jamais d'habitude lorsque le fichier est envoyé via cijoint ou wetransfert

1) tu peux simplifier le code de ton formulaire comme ca

Code:

Private Sub CommandButton2_Click()
    If Me.ComboBox1.ListIndex = -1 Then
      MsgBox "Indiquez le véhicule"
      Me.ComboBox1.SetFocus
      Exit Sub
    End If
    Sheets(ComboBox1.Value).Activate
    Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim Ws As Worksheet
    Me.ComboBox1.Clear
    For Each Ws In ActiveWorkbook.Worksheets
        If Ws.Name <> "GLOBAL" And Ws.Name <> "calculs" Then
            Me.ComboBox1.AddItem Ws.Name
        End If
    Next Ws
End Sub

2) et le code dans le thisworkbook me semble étrange..

VB:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If ActiveSheet.Name = "Stat 2010" Or ActiveSheet.Name = "PrŽsentation" Then Exit Sub
 
    With ActiveSheet
        LastLine = .Range("D" & .Rows.Count).End(xlUp).Row
        For i = LastLine To 14 Step -1
            If .Range("D" & i) = "CT" Then
                .Range("C8") = .Range("A" & i)
                GoTo Révision
            End If
        Next i
        .Range("C8") = .Range("E4")
Révision:
    For i = LastLine To 14 Step -1
        If .Range("D" & i) = "Révision" Then
            .Range("F8") = ((.Range("B" & i) + 30000) \ 30000) * 30000 '==>/3000 et *3000 = *1
            Exit Sub
        End If
    Next i
    .Range("F8") = ((.Range("E5") + 30000) \ 30000) * 30000
     
    End With
End Sub

Cliquez pour agrandir...

Benouze à dit:

[

Cliquez pour agrandir...

Lolote83 à dit:

Bonjour à tous,
Comme le dis @vgendron (que je salue au passage), le fichier est très lourd et cela est certainement dû aux différentes photos.
De plus, dans celui-ci, tu laisse apparaitre des plaques d'immatriculation et photos présentant ces mêmes plaques.
Le fichier est cependant bien ficelé et joliment présenté
Mais la charte du forum interdit tous fichiers présentant des données non anonymisées.
Je te conseille donc de supprimer la publication de ce dit fichier, d'en refaire un avec 3 ou 4 onglets et sans données "sensibles"
Mais peut être que notre ami @vgendron à déjà répondu favorablement à ta demande
@+ Lolote83

Cliquez pour agrandir...

vgendron à dit:

Hello @Lolote83

pour ce qui est de la macro qui s'efface toute seule.. (le formlaire n'existe donc plus non plus...je ne vois qu'une possiblité
le classeur est enregistré au format .xlsx au lieu de .xlsm ==> la macro est donc supprimée..

Cliquez pour agrandir...