Erreur EXCEL VBA 91.

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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.

14/10/2016, 18h07
unparia

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

Code:

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
14/10/2016, 18h09
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
14/10/2016, 18h11
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, …
14/10/2016, 18h13
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 ?
14/10/2016, 18h16
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
14/10/2016, 18h20
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.

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:

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:

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

14/10/2016, 18h23
Marc-L

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

_________________________________________________________________________________________________________
Copier / Coller n'est pas coder !

C'est aussi ce que j'ai pensé Marc-L

ta fonction conversion est très concise ... puisqu'elle ne fait rien !
Code:

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
forcément, elle retourne "rien"
et forcément, ton objet FeuilleRef est "rien" (Nothing)

d'où l'erreur sur l'objet "non défini"

14/10/2016, 18h25
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.
14/10/2016, 18h25
silencer93

Citation:

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

C'est à dire que je ne dois pas copier/coller dans la citation du message le code donné ? Ou vous faites référence au code du fichier qui aurait pu être mal monté ? (je ne suis pas le concepteur)
14/10/2016, 18h26
Marc-L

Le code de la procédure Conversion est vide, encore un bête Copier / Coller de code ?!

_________________________________________________________________________________________________________
Copier / Coller n'est pas programmer !
14/10/2016, 18h27
silencer93

Ah ! vous avez donc trouvé d'ou venait le problème ?

Pourriez-vous m'expliquer pourquoi ce message d'erreur et comment y remédier ? Que dois-je modifier dans le code ?

En vous remerciant
14/10/2016, 18h28
Marc-L

Afin de ne pas être saignant vu que tout a déjà été expliqué :roll:, j'abandonne …
14/10/2016, 18h30
joe.levrai
cette fonction est censée utiliser le CodeName d'une feuille (son "nom caché" qu'on voit uniquement dans l'éditeur VBA) pour renvoyer un objet "Feuille Excel" basé sur son nom d'usage (le nom visible dans excel)

le plus simple, vu ton niveau de compréhension du code .... serait de te fournir une adaptation de la fonction

MAIS ! Il est préférable de faire simplifier tes procédures pour mieux les maitriser

1) supprimer cette fonction
2) travailler avec les noms des feuilles au lieu des CodeName OU travailler sur les objets Feuille via leur Codename
3) suivant le choix retenu pour le points 2 : modifier tes appels à cette procédure ET/OU l'utilisation de l'objet feuille dans cette procédure

Voici ce que je te propose de mettre en application :

ta procédure est maintenant comme ça

Code:

Public Sub setSeverity(LaFeuille as WorkSheet, theColor As Long)

On va directement "appeler" l'objet feuille lors de l'appel de la procédure

au sein de cette procédure, tu utilises la variable "LaFeuille" quand tu fais référence à la feuille

dans toutes les procédures qui appellent la procédure setSeverity, il va falloir modifier l'appel comme ceci
Code:

1 2 3 4 5 'Avant ça ressemblait à ça setSeverity("Feuil1", 25541) 'Maintenant ça devient setSeverity(Feuil1, 25541)
14/10/2016, 18h32
silencer93

Marc, je suis désolé mais je ne suis pas un professionnel, tout à été expliqué je suppose vu que vous le dites mais je ne suis pas du tout un proche de ce langage, quand vous parlez de "conversion" de "setseverity" et autres je ne sais pas directement à ce que cela renvois à part bien sur des lignes dans le code.

Je vous remercie d'avoir participer à mon sujet, vraiment, mais il vous faut comprendre que je ne comprend pas la logique du VBA.

Vous dites donc que tout a déja été expliqué, je dois donc modifier mon code dans la partie conversion ?

Citation:

cette fonction est censée utiliser le CodeName d'une feuille (son "nom caché" qu'on voit uniquement dans l'éditeur VBA) pour renvoyer un objet "Feuille Excel" basé sur son nom d'usage (le nom visible dans excel)

le plus simple, vu ton niveau de compréhension du code .... serait de te fournir une adaptation de la fonction

MAIS ! Il est préférable de faire simplifier tes procédures pour mieux les maitriser

1) supprimer cette fonction
2) travailler avec les noms des feuilles au lieu des CodeName OU travailler sur les objets Feuille via leur Codename
3) suivant le choix retenu pour le points 2 : modifier tes appels à cette procédure ET/OU l'utilisation de l'objet feuille dans cette procédure

merci de votre réponse,

je dois donc supprimer seulement cette partie du code ?
Code:

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
Vous dites que je dois modifier dans l'intégralité du code toutes les mentions relatives aux feuilles EXCEL par leur nom de feuille "caché" ?

14/10/2016, 18h36
joe.levrai

j'ai édité mon message pour te donner des exemples adaptables

info pratique : comme dans Excel, tu peux faire des recherches (Ctrl+f) au sein de tout ton code VBA
pratique pour rechercher tes appels de procédures etc...
14/10/2016, 18h40
silencer93
Je vous remercie tous pour votre aide, je vais essayer de me débrouiller avec ça.

Par contre dans ton dernier code tu mets :
Code:

1 2 3 4 5 'Avant ça ressemblait à ça setSeverity("Feuil1", 25541) 'Maintenant ça devient setSeverity(Feuil1, 25541)
Il est normal que dans les 2 exemples Feuil1 ai le même nom ?

Voir 40 message(s) de cette discussion en une page