Erreur dans un code VBA Excel

**NEC14** · 05/07/2013, 15h02

Bonjour,

J'ai mis en place ce code qui permet d'activer un UF et d'afficher une feuille de calcul en même temps.
Hors je rencontre un problème au niveau "Load Ufact". Le message est <<Variable objet ou variable de bloc with non défini>>.
Je n'arrive pas à trouver, pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance

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
 
Private Sub CmbFact_Click()
Dim Ash As Worksheet
'On active l'UserForm
Load UFact 'ERREUR ICI
UFact.T1.SetFocus
'la feuille "Factures" est visible
Sheets("Factures").Visible = True
    For Each Ash In ThisWorkbook.Sheets
    'masque les feuilles si nom différent de "Factures"
        If Ash.name <> "Factures" Then Ash.Visible = xlSheetVeryHidden
    Next Ash
    Sheets("Factures").Activate
        UFact.Show
End Sub

**BlueMonkey** · 05/07/2013, 15h26

Bonjour,

Comme ça je ne vois pas de problème dans le code posté.

Vérifie ce qui se passe dans la routine Sub UserForm_Initialize() pour l'USF UFact (appelé automatiquement par le Load UFact) ).
C'est probablement plus là que se situe le problème.

Et personnellement je déplacerais aussi le UFact.T1.SetFocus dans la routine UserForm_Activate() de USF.
(dans le principe c'est bizarre de donner le focus à un contrôle qui n'est pas encore visible).

**Ben_L** · 05/07/2013, 15h33

Bonjour,

Avez-vous défini la Sub UserForm_Initialize ?
Si oui, lorsque vous obtenez l'erreur, cliquez sur "débugger". Puis appuyez sur F8 jusqu'à ce que l'erreur se reproduise.

Cela vous permettra de localiser votre erreur.

Cdt

**NEC14** · 08/07/2013, 11h21

Bonjour,

Je n'arrive toujours pas à trouver l'erreur malgré vos recommandations.

Voici les deux codes

On appelle l'UF par le click sur un bouton (CmbFact)

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 CmbFact_Click()
Dim Ash As Worksheet
'On active l'UserForm
Load UFact
'la feuille "Factures" est visible
Sheets("Factures").Visible = True
    For Each Ash In ThisWorkbook.Sheets
'masque les feuilles si nom différent de "Factures"
        If Ash.name <> "Factures" Then Ash.Visible = xlSheetVeryHidden
    Next Ash
    Sheets("Factures").Activate
UFact.Show
End Sub

A l'initialize de l'UF

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
 
Private Sub UserForm_Initialize()
Unload UFConsult
Unload UFEngt
Unload UFsign
 
 
Dim vCellule As Object
Load UFact
With Me
UFact.T1.SetFocus
End With
 
    For Each vCellule In Sheets("Tiers").Range("NumT")
        If vCellule.Value <> "" Then UFact.T10.AddItem vCellule.Value
    Next
 
    For Each vCellule In Sheets("Tiers").Range("NomTier")
        If vCellule.Value <> "" Then UFact.T13.AddItem vCellule.Value
    Next
 
    For Each vCellule In Sheets("Bât").Range("NomBat")
        If vCellule.Value <> "" Then UFact.T11.AddItem vCellule.Value
    Next
 
    For Each vCellule In Sheets("Nom").Range("Noms")
        If vCellule.Value <> "" Then UFact.T9.AddItem vCellule.Value
    Next
    UFact.T10.ListIndex = -1
    UFact.T11.ListIndex = -1
    UFact.T9.ListIndex = -1
 
    UFact.T1 = ""
    UFact.T2 = ""
    UFact.T3 = ""
    UFact.T4 = ""
    UFact.T5 = ""
    UFact.T6 = ""
    UFact.T7 = ""
    UFact.T8 = ""
    UFact.T9 = ""
    UFact.T10 = ""
    UFact.T11 = ""
    UFact.T13.ListIndex = -1
UFact.Show
End Sub

**EngueEngue** · 08/07/2013, 11h29

Déja tu loads Ufact alors qu'il est déjà loadé. Après les autres trucs que tu unloads sont bien loadés?

**Marc-L** · 08/07/2013, 11h33

Bonjour,

pas besoin de charger par .Load un UserForm car .Show s'en charge automatiquement …

Qui plus est pourquoi appeler l'UserForm dans son propre code alors qu'il est déjà chargé et donc actif ?‼

A supprimer :

dans le premier code, ligne n°5

dans le second, lignes n°9 & 45 …

__________________________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

**NEC14** · 08/07/2013, 14h29

Je suis d'accord pour les lignes 9 & 45 du 2ème code. Pour le 1er je le suis moins car il faut bien que j'appelle l'UF à l'ouverture de la feuille "Factures".

Cet UF me sert à saisir les données dans la feuille.

J'ai essayé et de toute façon j'ai toujours le même soucis "Erreur 424".

**Theze** · 08/07/2013, 14h35

Bonjour,

Le bouton "CmbFact" se trouve sur quel formulaire ou quelle feuille ?

Hervé.

**NEC14** · 08/07/2013, 14h45

J'ai trouvé la solution. En fait, lorsque j'appelais l'ouverture de l'UF, je demandais la fermeture d'un autre UF qui n'existait pas, d'où le problème.

Merci beaucoup pour votre aide