Discussion :

[Chewi]

Bonjour le forum,

Je rencontre de nouveau un problème dans la création de mon fichier:
Je n'avais pas d'erreur auparavant, avant cela fonctionnait correctement.
J'ai essayé en fermant et en réouvrant excel mais toujours le même.

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
Option Explicit

'Placer le bouton dans la barre d'outil
Sub TEST()

Dim Macellule As Range
Dim Mafeuille As Worksheet
Dim Monclasseur As Workbook

Set Macellule = ActiveCell    
Set Mafeuille = ActiveSheet
Set Monclasseur = ActiveWorkbook

With Workbooks("Progr.xls").Worksheets("MemoiresUFS")
.Range("H1") = Macellule.Address
.Range("H2") = Mafeuille.Name
.Range("H3") = Monclasseur.Name
End With

If Macellule.Value <> "" Then Exit Sub

Dim reponse As Integer

If Macellule.Row = "14" Then
reponse = MsgBox("Confirmez-vous l'emplacement sur " & Mafeuille.Name & " ?", vbYesNo)
If reponse = 7 Then     'No
    Exit Sub
End If
    Load UfRouleauAV
    UfRouleauAV.Show

ElseIf Macellule.Row = "21" Then
reponse = MsgBox("Confirmez-vous l'emplacement sur " & Mafeuille.Name & " ?", vbYesNo)
If reponse = 7 Then     'No
    Exit Sub
End If
    Load UfRouleauAP
    UfRouleauAP.Show
End If

End Sub

Voici l'erreur:

Run-time error '91':
Object variable or With Block variable not set

Et pourtant mon object UserForm UfRouleauAv existe bel et bien!

"Object variable Not set"
Il s'agit d'un UserForm !!!

Merci d'avance pour ceux qui me viendront en aide.

[Chewi]

C'est apparement du à ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
With Workbooks("Progr.xls").Sheets("MemoiresUFS")
 
    If Mafeuille.Range("R3") = "Utilisateur: Dupont" Then
        If .Range("C5").Value <> "" Then
            UfRouleauAV.SpinButton1 = Range("C5").Value
        End If
    ElseIf Mafeuille.Range("R3") = "Utilisateur: Barre" Then
        If .Range("E5").Value <> "" Then
            UfRouleauAV.SpinButton1 = Range("E5").Value
        End If
    End If
End With
End Sub

Car lorsque je retire ceci, je n'ai plus d'erreur.
Je peux éventuellement me passer de ceci si il y a une autre solution pour mettre une valeur entière mémorisée au spinButton.

(Je ne suis pas sûr que ce code (SpinButton) fonctionne vu qu'avant j'ai l'erreur avec le code du dessus.)

[AlainTech]

Mafeuille n'est défini (et accessible) que dans ta Sub TEST!

Soit, tu la redéfinis (et recrées l'instance) dans ton Userform, soit tu la crées en variable publique au niveau d'un module standard.

[Chewi]

Mon erreur pointait sur la ligne:
Load UfRouleauAV
j'aurais du le souligné, chose faite (edit).

Et je ne crois pas que Mafeuille soit le problème. Si?

J'ai changé ma façon de faire et je n'ai plus d'erreur.

Mais par contre, je tique toujours sur le moyen de redonner une valeur à un SpinButton, valeur qui correspond au min et au max ainsi qu'au pas et entière d'une cellule. (La valeur que j'ai mémorisé lors de la précédente fermeture.)

Cordialement,

Merci

[Chewi]

Bonjour,

En fait, si! C'est pas plus compliqué qu'une autre mise en mémoire. j'avais juste un conflit car je donnait aussi une valeur à une TextBox qui, elle même, dépend de la valeur de mon SpinButton.

Donc ma manière de procéder:
Lorsque l'on quitte l'UF:

Code :

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

.Range("C2").Value = UfRouleauAV.SpinButton1.Value

Lorsque l'UF est activé:

Code :

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

1
2
UfRouleauAV.SpinButton1.Value = .Range("C2").Value
UfRouleauAV.TextBox2.Value = UfRouleauAV.SpinButton1.Value / 10

Il est temps que j' mes yeux!