Bonjour, je suis débutante en VBA sur Excel, j'ai un problème avec une petite procédure: je n'ai pas de message d'erreur, mais en même temps la procédure ne s'exécute pas concrètement sur mon fichier.
Quelqu'un pourrait m'expliquer pourquoi? Merci,

Voici la procédure en question:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub indicateur()
 
Dim DerniereLigne As Long
Dim C As Object
Dim Instance As Long
 
If Range("C3") <> "" Then
 
    If Sheets("tableau corrigé").Cells(2, 1) = "" Then
        DerniereLigne = 1
    Else
        DerniereLigne = Sheets("tableau corrigé").Cells(1, 1).End(xlDown).Row
        Set C = Sheets("tableau corrigé").Range("L2:L" & DerniereLigne).Find(Range("C3").Value, _
                  LookIn:=xlValues, LookAt:=xlWhole)
 
         If Not C Is Nothing Then
 
                If Cells(C.Row, 12).Value <= "0" Then
                    Cells(C.Row, 13).Value = Range("A6")
 
 
                ElseIf Cells(C.Row, 12) = "" Then
                    Cells(C.Row, 13) = Range("A8")
                Else
                    Cells(C.Row, 13).Value = Range("A7")
                End If
 
        End If
MsgBox "Mise a jour effectuée", vbInformation + vbOKOnly, "Application Test"
    End If
 
End If
 
 
End Sub