Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mais ferme-la !

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Charly88
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Charly88

XLDnaute Occasionnel
Bonjour, à tous, et oui c'est lundi matin, ça babille de partout et parfois on aurait bien envie de silence tant la machine est difficile à mettre en route.
Dans mon cas c'est une USF que je n'arrive pas à fermer :
Code: 
For i = 1 To Sheets.Count 'vérification de la non-existence de la feuille
    If Sheets(i).Name = feuillesource Then y = 1
Next i

If y = 0 Then
    MsgBox "La feuille de base indiquée en paramètre n'existe pas."
    Sheets("Paramétrage").Select
    Range("B6").Select
    Unload Carma '<<<=== c'est là que se pose le problème
    Exit Sub  '<<<===
End If

Mon code est dans la youseurforme, tel qu'il est écrit, j'ai une erreur 91, Object variable or With block variable not set... Ce qui n'est pas totalement illogique, je viens de fermer le réceptacle de la macro.

Si j'intervertis l'unload et le exit, j'ai cette grosse patate de yourseurforme vide qui reste plantée en plein milieu du chemin.

Enfin si j'enlève le exit, le code continue... ce qui du coup me laisse sceptique sur le non-fonctionnement de la première formulation.
... Des suggestions ?
 
Trier par date Trier par votes
Re : Mais ferme-la !

Bonjour

essaies peut-être du style

Code: 
If y = 0 Then
    MsgBox "La feuille de base indiquée en paramètre n'existe pas."
    Sheets("Paramétrage").Select
    Range("B6").Select
    Unload Carma '<<<=== c'est là que se pose le problème
Else
    La suite de ton code
End If
 
Vote positif 0 Vote négatif
Re : Mais ferme-la !

Vraiment je ne vois pas ce qui peut clocher, à moins que ce soit le fait que ce soit en initialize ?


Code: 
Private Sub UserForm_Initialize()

Dim RemiseZ
If Sheets("Paramétrage").Cells(2, 6).Value = "D" Then
    RemiseZ = MsgBox("Le compteur de graphes est à " & Sheets("Paramétrage").Range("F1").Value & ", voulez-vous le réinitialiser ?", vbYesNo)
    If RemiseZ = vbYes Then Sheets("Paramétrage").Range("F1").Value = 1
    Sheets("Paramétrage").Cells(2, 6).Value = "F"
End If

Dim Feuillesource As String
Dim BasE As String
Dim PrimLigne As Integer
Dim PrimCol As Integer
Dim EcartVTabs As Integer
Dim EcartHTabs As Integer


Label5.Caption = Sheets("Paramétrage").Range("B8").Value
Label1.Caption = Sheets("Paramétrage").Range("B9").Value
Label6.Caption = Sheets("Paramétrage").Range("B10").Value
Label4.Caption = Sheets("Paramétrage").Range("B12").Value
Label3.Caption = Sheets("Paramétrage").Range("B13").Value
Label2.Caption = Sheets("Paramétrage").Range("B14").Value

Feuillesource = Sheets("Paramétrage").Range("B6").Value


For i = 1 To Sheets.Count 'vérification de la non-existence de la feuille
    If Sheets(i).Name = Feuillesource Then y = 1
Next i

If y = 0 Then
    MsgBox "La feuille de base indiquée en paramètre n'existe pas."
    Sheets("Paramétrage").Select
    Range("B6").Select
    Unload Carma    
Else


    PrimLigne = Sheets("Paramétrage").Range("F6").Value
    PrimCol = Sheets("Paramétrage").Range("F7").Value
    EcartVTabs = Sheets("Paramétrage").Range("F8").Value
    EcartHTabs = Sheets("Paramétrage").Range("F9").Value
    
    
    
    'Base et base de compa
    i = Sheets("Paramétrage").Range("A20").End(xlDown).Row
    BaseDepList.RowSource = "Paramétrage!A20:A" & i
    BasesCompaList.RowSource = "Paramétrage!A20:A" & i
    
    'Cycle de base
    i = Sheets("Paramétrage").Range("B20").End(xlDown).Row
    CycleDepList.RowSource = "Paramétrage!B20:B" & i
    
    'Cycle de compa
    i = Sheets("Paramétrage").Range("B20").End(xlDown).Row
    CycleCompaList.RowSource = "Paramétrage!B20:B" & i
    
    'Perio
    i = Sheets("Paramétrage").Range("C20").End(xlDown).Row
    Perio.RowSource = "Paramétrage!C20:C" & i
    
    'Légende
    i = Sheets("Paramétrage").Range("D20").End(xlDown).Row
    LégendeList.RowSource = "Paramétrage!D20:D" & i
    
       
    'Sujet
    i = Sheets(Feuillesource).Cells(PrimLigne, PrimCol).End(xlDown).Row
    For j = PrimLigne + 1 To i
    Sujets.AddItem Sheets(Feuillesource).Cells(j, PrimCol).Value
    Next j
    
    Sheets(Feuillesource).Select
    Cells(j, PrimCol).Select
    
    'Caté
    i = Sheets(Feuillesource).Cells(PrimLigne, PrimCol).End(xlToRight).Column
    For j = PrimCol + 1 To i
    Catés.AddItem Sheets(Feuillesource).Cells(PrimLigne, j).Value
    Next j
    
    
    
    BaseDepList.ListIndex = -1
    CycleDepList.ListIndex = -1
    Perio.ListIndex = -1
    Sujets.ListIndex = -1
    Catés.ListIndex = -1
    

End If

End Sub
 
Vote positif 0 Vote négatif
Re : Mais ferme-la !

Bonjour,
Peut-être comme ceci
Code: 
....'Ton code
    Dim Ws As Worksheet
    On Error Resume Next
    Set Ws = ThisWorkbook.Sheets(feuillesource)
    If Ws Is Nothing Then
    MsgBox "La feuille de base indiquée en paramètre n'existe pas."
    Sheets("Paramétrage").Range("B6").Select
    Else
    ....'ton code
    End If
    Unload Carma
    
End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Re : Mais ferme-la !

Re
C'est parce que ton code est dans l'initialisation de ton USF
Tu ne peux pas unload ton USF car il n'est pas encore fini d'être initialisé donc pas encore en "fonctionnement"
 
Vote positif 0 Vote négatif
Re : Mais ferme-la !

Re

Donc en réflechissant il faudrait plus tôt faire un truc du genre dans un module

Code: 
For i = 1 To Sheets.Count 'vérification de la non-existence de la feuille
    If Sheets(i).Name = Feuillesource Then y = 1
Next i

If y = 1 Then Carma.show
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
629
un internaute
U
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
378
patricktoulon
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
330
patricktoulon
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
519
sylvanu
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
661
patricktoulon
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
523
Lu76Fer
G
  • Résolu(e)
XL 2010 Obliger la validation d'un bouton d'option.
Réponses
8
Affichages
517
gillesda
G
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
19 20 21
Réponses
303
Affichages
71 K
NONO14
N
M
  • Question Question
XL 2010 Demande de quantité d'un produit dans un magasin spécifique selon la date la plus ancienne
2
Réponses
21
Affichages
2 K
Mody200
M
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
703
Gégé-45550
F
  • Résolu(e)
Microsoft 365 Recherche à partir d'une TextBox
Réponses
4
Affichages
576
Francky79
F
  • Question Question
Microsoft 365 Trouver et attribuer une plage de cellule en fonction de la cellule active
Réponses
6
Affichages
588
Jojo973
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
932
crocrocro
C
U
  • Question Question
Autres [RÉSOLU] Problème macro mais lequel?
Réponses
4
Affichages
713
un internaute
U
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
600
ZiM
Z
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
799
escudo
E
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
890
Mody200
M
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
886
Liner77
L
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
727
loreak
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…