[Excel] - UserForm (Object variable not set)

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:

---

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:

Citation:

---

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.

C'est apparement du à ceci:

Code:

---

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.)

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.

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

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:

---

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

---

Lorsque l'UF est activé:

Code:

---

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

---

Il est temps que j' 8O mes yeux!