Probleme .show VBA sous excelRésolu

Question

Bonjour, j'ai un soucis sur un code. Voila le bout de code qui pause problème :

Stockentrepot = MsgBox("Avez des stocks dans cet entrepôt", vbQuestion + vbYesNo, "Stock")
    If Stockentrepot = vbNo Then
    Ajoutcamion.Show
    ElseIf Stockentrepot = vbYes Then
    StockE.Show
    End If

Y me met en débogage et me souligne StockE.Show

StockE est un userform ou il y a un code sur userform initialize(). Le problème est-il là? Car quand je n'est plus ce code, il m'ouvre le user. 
Voila le code

Private Sub UserForm_Initialize()
Dim i As Integer, DerniereLigne As Integer
    Dim Ws As Worksheet
    Set Ws = Sheets("Produits")
       DerniereLigne = Ws.Range("A65536").End(xlUp).Row + 1
        For i = 2 To DerniereLigne
        If Ws.Range("A" & i).Value <> vbNullString Then
                  s_entrepot.AddItem Sheets("Produit").Range("A" & i).Value
         End If
    Next i
End Sub

s_entrepot est une liste déroulante

Merci d'avance

us_30 · Accepted Answer

Bonjour,

Première piste : Simplement, as-tu vérifié l'orthographe de "StockE" ?
Deuxième piste : Ne pas utiliser une variable avec le même nom...
Troisième piste : Vérifier si l'userform en question porte bien le nom "StockE"

A priori, il ne peut y avoir une erreur plus subtile... qu'un truc tout bête...

Amicalement,
Us.

kartouche04 · Answer

merci beaucoup

Probleme .show VBA sous excel

2 réponses

Votre réponse

Discussions similaires