Discussion :

[silencer93]

Bonjour à tous !

Je vais faire concret, je n'y connais rien au Visual Basic ! Je sais bien utilisé EXCEL, mais quand j'ai une erreur VBA je suis perdu, mais il y a un autre problème. Je dois rendre mon dossier au travail lundi sans faute. Et le problème c'est que je ne peux pas finir mon dossier avec cette erreur !

C'est pourquoi je m'en remet à vous. Voici la ligne de code concernée affichée par EXCEL lorsque je clique sur "débogage". Je vous met la ligne concernée en rouge.

Le message d'erreur complet est "Variable objet ou variable de bloc with non définie".

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
' Mise en couleur des cellules des feuilles de risques en aval
Public Sub setSeverity(CodeNameFeuilleActive As String, theColor As Long)
    Dim Start As Boolean, i As Integer, CodeNameFeuilleRef As String, lastColorIndex As Long, FeuilleRef As Worksheet, Ref As Range, IntitSynthese As String, lastPattern As Long
    ' Par sécurité :
        With ActiveCell
            gRow = .Row
            gCol = .Column
        End With
    Application.ScreenUpdating = False
    Start = False
        For i = 1 To 4
            CodeNameFeuilleRef = "risk_" & i
            If CodeNameFeuilleRef = CodeNameFeuilleActive Then Start = True
            Set FeuilleRef = Conversion(ThisWorkbook, CodeNameFeuilleRef)
            Set Ref = FeuilleRef.Cells(gRow, gCol)
            If Not Start Then
                lastColorIndex = Ref.Interior.ColorIndex
                lastPattern = Ref.Interior.Pattern
            End If
            If Start Then
                FeuilleRef.Unprotect
                Ref.Interior.ColorIndex = Range(CodeNameFeuilleActive).Cells(theColor, 1).Interior.ColorIndex
                Ref.Interior.Pattern = Range(CodeNameFeuilleActive).Cells(theColor, 1).Interior.Pattern
                    If DRisques.CBRisqueImportant Then
                        Ref.Interior.Pattern = Notice.Range("RisqueNonRenseigné").Offset(DRisques.LNiveau.ListIndex, 1).Interior.Pattern
                    End If
                Protection FeuilleRef
            End If
        Next

Merci beaucoup à vous ! N'hésitez pas à demander si vous avez besoin d'autres informations.

[unparia]

Bonjour
Je n'ai pas Excel 2016 et ignore ce que fait cette ligne de code avec cette version :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set FeuilleRef = Conversion(ThisWorkbook, CodeNameFeuilleRef)

Que fait-elle ?

A moins que tu n'appelles là une procédure de ton cru. Si oui : montre son code

[joe.levrai]

Bonjour,

Peut-on voir la procédure "conversion" également ? Ainsi que l'appel de ta procédure setSeverity (pour visualiser les paramètres que tu as fournis)

On dirait que FeuilleRef est Nothing .... mais sans éléments complémentaires on ne peut pas être plus fiable et précis.

Tu peux déjà tester ce que contient la variable FeuilleRef pour écarter cette hypothèse

[Marc-L]

Bonjour,

en mode débogage regarder la valeur de chacune des trois variables de la ligne dans la fenêtre Variables locales,
ayant un doute sur la méthode d'affectation de FeuilleRef …


_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

[silencer93]

Merci de vos réponses rapides.

Quand vous dites que vous voulez la procédure de conversion, comment puis-je vous la délivrer ?

Quand vous dites "tester" voir ce que contient la variable, comment faire ?

Voulez-vous que je vous donne l'entièreté du code du fichier ?

En vous remerciant ?

[joe.levrai]

tu as dans ton fichier une fonction qui s'appelle "conversion"

on voudrait que tu la copie intégralement sur le forum
ceci, pour vérifier si tu gères correctement tous les cas possibles, y compris le fait qu'il puisse renvoyer (ou non) un objet Nothing

+

la ligne de code de la procédure principale qui appelle la sous-procédure setSeverity()
un truc du genre setSeverity(MonPremierArgument, MonSecondArgument,etc...)
ceci afin qu'on puisse vérifier que tu fournis les paramètres adéquats à ta procédure

[silencer93]

La fonction conversion est dans le ruban des fonctions/outils d'EXCEL ou de VBA ? Car je ne la trouve pas pour l'instant. Je continue de chercher je vous tiens au courant.

[silencer93]

ah j'ai trouvé ! c'est dans une liste déroulante a côté du code et on choisi soit "setseverity" ou "conversion"

pour conversion il me renvoit à cette partie du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
' MG 13/3/2014 - Pour remplacer la fonction getSheetByCodeName
Public Function Conversion(wb As Workbook, f As String) As Object
' Permet à partir du CodeName, de passer à la feuille de classeur correspondante (l'objet).
End Function

et pour setseverity :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
' Mise en couleur des cellules des feuilles de risques en aval
Public Sub setSeverity(CodeNameFeuilleActive As String, theColor As Long)
    Dim Start As Boolean, i As Integer, CodeNameFeuilleRef As String, lastColorIndex As Long, FeuilleRef As Worksheet, Ref As Range, IntitSynthese As String, lastPattern As Long
    ' Par sécurité :
        With ActiveCell
            gRow = .Row
            gCol = .Column
        End With
    Application.ScreenUpdating = False
    Start = False
        For i = 1 To 4
            CodeNameFeuilleRef = "risk_" & i
            If CodeNameFeuilleRef = CodeNameFeuilleActive Then Start = True
            Set FeuilleRef = Conversion(ThisWorkbook, CodeNameFeuilleRef)
            Set Ref = FeuilleRef.Cells(gRow, gCol)
            If Not Start Then
                lastColorIndex = Ref.Interior.ColorIndex
                lastPattern = Ref.Interior.Pattern
            End If
            If Start Then
                FeuilleRef.Unprotect
                Ref.Interior.ColorIndex = Range(CodeNameFeuilleActive).Cells(theColor, 1).Interior.ColorIndex
                Ref.Interior.Pattern = Range(CodeNameFeuilleActive).Cells(theColor, 1).Interior.Pattern
                    If DRisques.CBRisqueImportant Then
                        Ref.Interior.Pattern = Notice.Range("RisqueNonRenseigné").Offset(DRisques.LNiveau.ListIndex, 1).Interior.Pattern
                    End If
                Protection FeuilleRef
            End If
        Next
    ' Report couleur dans la synthèse
    Set FeuilleRef = Conversion(ThisWorkbook, "synthese")
    Set Ref = FeuilleRef.Cells(gRow, gCol)
    FeuilleRef.Unprotect
    Ref.Interior.ColorIndex = Range(CodeNameFeuilleActive).Cells(theColor, 1).Interior.ColorIndex
    Ref.Interior.Pattern = Range(CodeNameFeuilleActive).Cells(theColor, 1).Interior.Pattern
        If DRisques.CBRisqueImportant Then
            Ref.Interior.Pattern = Notice.Range("RisqueNonRenseigné").Offset(DRisques.LNiveau.ListIndex, 1).Interior.Pattern
        End If
        If lastColorIndex <> FeuilleRef.Cells(gRow, gCol).Interior.ColorIndex Or lastPattern <> FeuilleRef.Cells(gRow, gCol).Interior.Pattern Then
                If CodeNameFeuilleActive = "risk_2" Then
                    IntitSynthese = "CI"
                ElseIf CodeNameFeuilleActive = "risk_3" Then
                    IntitSynthese = "EC"
                Else
                    IntitSynthese = ""
                End If
            FeuilleRef.Cells(gRow, gCol) = IntitSynthese
        End If
    Protection FeuilleRef
    Application.ScreenUpdating = True
End Sub

[Marc-L]

J'espère que ce n'est pas encore un bête Copier / Coller de code …

_________________________________________________________________________________________________________

Copier / Coller n'est pas coder !

[unparia]

Tu dois quand-même savoir, puisque tu as écrit cette ligne de code, au moins ce qu'elle est supposée faire, non ? (voir mon message plus haut).
Ben voilà (messages croisés) --->> Elle ne fait rigoureusement rien et retourne donc Nothing.