exécution d'une commande VBA

Version imprimable

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:

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

14/06/2011, 18h43
pgz

Bonjour.

Exécute la procédure en pas à pas (F8) pour voir où tu passes. Suivant ton code, il y a pas mal de cas où on ne change rien...

Attention, quand tu écris

Code:

If Range("C3") <> "" Then

tu oublies de préciser le classeur et la feuille.

Il vaudrait mieux

Code:

If ThisWorkbook.Worksheets("NomFeuille").Range("C3") <> "" Then

Même chose pour la collection Sheets

Code:

If Sheets("tableau corrigé").Cells(2, 1) = "" Then

pourrait être écrit

Code:

If ThisWorkbook.WorkSheets("tableau corrigé").Cells(2, 1) = "" Then

Cordialement,

PGZ
15/06/2011, 14h19
Gorfael
Salut nidhalkefi et le forum
Pour dépanner un fonctionnement imparfait, il faut au minimum savoir ce qu'on attend comme résultat. Ce n'est pas le fonctionnement du code qui est en cause, mais le résultat du fonctionnement...

Juste une remarque en passant : le seul endroit où est mentionné le nom d'une feuille, c'est là :
Code:

1 2 DerniereLigne = Sheets("tableau corrigé").Cells(1, 1).End(xlDown).Row Set C = Sheets("tableau corrigé").Range("L2:L" & DerniereLigne).Find(Range("C3"), LookIn:=xlValues, LookAt:=xlWhole))
Donc partout ailleurs, on traite sur la feuille active : par exemple, le paramètre de recherche peut se lire ActiveSheet.Range("C3").
Code:

1 2 If ActiveSheet.Cells(C.Row, 12).Value <= "0" Then ActiveSheet.Cells(C.Row, 13).Value = ActiveSheet.Range("A6")
Ton problème ne viendrait pas de ça ?
A+
15/06/2011, 14h20
nidhalkefi

exécution d'une procédure VBA

Bonjour
merci pour votre réponse, en effet quand j'exécute en pas à pas, j'ai des lignes marquées en jaunes,mais sans aucun message d'erreur qui puisse m'indiquer où est le problème, par exemple me signaler que la toute première ligne "Sub indicateur ()" ou la première ligne de "If" avec la mention dans l'espion
Watch : : a : <Expression non définie dans le contexte> : Empty : TabMaint.indicateur1

Auriez vous des recommandations pour apprendre rapidement VBA? La formation que j'ai reçue me semble être très sommaire.

Merci,
Nidhal