Erreur dans un code VBA Excel

Version imprimable

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:

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

05/07/2013, 15h26
BlueMonkey

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). ;)
05/07/2013, 15h33
Ben_L

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

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:

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:

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

08/07/2013, 11h29
EngueEngue

Déja tu loads Ufact alors qu'il est déjà loadé. Après les autres trucs que tu unloads sont bien loadés?
08/07/2013, 11h33
Marc-L
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 ?‼ 8O

A supprimer :
- dans le premier code, ligne n°5
- dans le second, lignes n°9 & 45 …
__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
08/07/2013, 14h29
NEC14

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".
08/07/2013, 14h35
Theze

Bonjour,

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

Hervé.
08/07/2013, 14h45
NEC14

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 :ccool:
08/07/2013, 14h49
EngueEngue

Citation:

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

;)
09/07/2013, 07h50
NEC14

Citation:

Envoyé par EngueEngue

;)

Eh oui, tu avais cerné le problème dès le début ;)