excel plante au lancement d'une macro protégée

G

geraldvc

XLDnaute Junior
hello,

Voila quand je protège mes usf dans VBAProject Propriétés du projet--> protection je verrouille le projet pour l'affichage je mes mon mot de passe "dudul"
Quand je ferme excel, je rallume mon classeur, j'appelle mon USF, après 2 ou 3 démarrage il plante excel je dois faire ctrl-alt del pour redémarrer ?
voici le code du bouton qui appel userform2 et initialize et actice de l'usf

Sub demarer()

Application.WindowState = xlMaximized

If Date > #8/1/2011# Then Exit Sub ' mois/jour/année




ActiveWindow.DisplayWorkbookTabs = True
Sheets("base").Visible = True
Sheets("listevendeuse").Visible = True
Sheets("fichecommande").Visible = True
Sheets("ordreT").Visible = True
Sheets("livrecaissetout").Visible = True
Sheets("logo").Visible = True
Sheets("listearticle").Visible = True
Sheets("listeclient").Visible = True
Sheets("livrecaisse").Visible = True
Sheets("ficheclient").Visible = True
Sheets("total").Visible = True
Sheets("devis").Visible = True
Sheets("data").Visible = True
Sheets("rdevis").Visible = True


Sheets("base").Select
Range("Aw2").Select
UserForm2.Show



End Sub


Private Sub UserForm_Activate()

With UserForm2
.startUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With


TextBox132.Value = Date
ComboBoxdate.Value = Date
ComboBox15.Value = Sheets("listearticle").Range("y3")
'ComboBox20.Value = Sheets("listearticle").Range("h2")
ComboBox16.Value = Sheets("listearticle").Range("y2")
'ComboBox21.Value = Sheets("listearticle").Range("ap2")
End Sub

Private Sub UserForm_Initialize()


'=======================

Dim Cell As Range
Dim i As Long, X As Long, k As Byte, Total As Variant

With ListView6 '.ColumnHeaders 'parametrage des entetes de colonne( titre et largeur)
With .ColumnHeaders ' Pas la peine de doubler le WITH, un esul suffit dans ton cas
.clear
.Add , , "", 120
.Add , , "", 40
.Add , , "", 40
.Add , , "", 50
.Add , , "", 50
.Add , , "", 50



End With


End With



With ListView5 '.ColumnHeaders 'parametrage des entetes de colonne( titre et largeur)
' Pas la peine de doubler le WITH, un esul suffit dans ton cas
'.CheckBoxes = True
With .ColumnHeaders

.clear
.Add , , "Article", 120
.Add , , "Quantité", 40
.Add , , "Taux TVA", 50
.Add , , "Remise", 50
.Add , , "Prix unit", 50
.Add , , "", 70
.Add , , "", 70
.Add , , "", 70
.Add , , "", 70
.Add , , "", 70
.Add , , "", 70
.Add , , "", 50
.Add , , "", 50
.Add , , "", 60
.Add , , "", 60
.Add , , "", 60
.Add , , "", 60
.Add , , "", 60
.Add , , "", 100
.Add , , "", 100
.Add , , "", 60
.Add , , "", 60
.Add , , "", 40
.Add , , "", 60

End With


End With





End Sub

merci c'est important pour moi Aplus
 
Trier par date Trier par votes
JCGL

JCGL

XLDnaute Barbatruc
Re : excel plante au lancement d'une macro protégée

Bonjour à tous,

Peux-tu joindre ton fichier anonymisé et compressé en *.zip, si besoin ?

A+ à tous

Edition : Le code d'origine mais avec les balises

VB: 
Option Explicit

Sub demarer()
    Application.WindowState = xlMaximized
    If Date > #8/1/2011# Then Exit Sub    ' mois/jour/année
    ActiveWindow.DisplayWorkbookTabs = True
    Sheets("base").Visible = True
    Sheets("listevendeuse").Visible = True
    Sheets("fichecommande").Visible = True
    Sheets("ordreT").Visible = True
    Sheets("livrecaissetout").Visible = True
    Sheets("logo").Visible = True
    Sheets("listearticle").Visible = True
    Sheets("listeclient").Visible = True
    Sheets("livrecaisse").Visible = True
    Sheets("ficheclient").Visible = True
    Sheets("total").Visible = True
    Sheets("devis").Visible = True
    Sheets("data").Visible = True
    Sheets("rdevis").Visible = True

    Sheets("base").Select
    Range("Aw2").Select
    UserForm2.Show
End Sub

Private Sub UserForm_Activate()
    With UserForm2
        .startUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With

    TextBox132.Value = Date
    ComboBoxdate.Value = Date
    ComboBox15.Value = Sheets("listearticle").Range("y3")
    'ComboBox20.Value = Sheets("listearticle").Range("h2")
    ComboBox16.Value = Sheets("listearticle").Range("y2")
    'ComboBox21.Value = Sheets("listearticle").Range("ap2")
End Sub

Private Sub UserForm_Initialize()
'=======================
    Dim Cell As Range
    Dim i As Long, X As Long, k As Byte, Total As Variant

    With ListView6    '.ColumnHeaders 'parametrage des entetes de colonne( titre et largeur)
        With .ColumnHeaders    ' Pas la peine de doubler le WITH, un esul suffit dans ton cas
            .Clear
            .Add , , "", 120
            .Add , , "", 40
            .Add , , "", 40
            .Add , , "", 50
            .Add , , "", 50
            .Add , , "", 50
        End With
    End With
    With ListView5    '.ColumnHeaders 'parametrage des entetes de colonne( titre et largeur)
        ' Pas la peine de doubler le WITH, un esul suffit dans ton cas
        '.CheckBoxes = True
        With .ColumnHeaders
            .Clear
            .Add , , "Article", 120
            .Add , , "Quantité", 40
            .Add , , "Taux TVA", 50
            .Add , , "Remise", 50
            .Add , , "Prix unit", 50
            .Add , , "", 70
            .Add , , "", 70
            .Add , , "", 70
            .Add , , "", 70
            .Add , , "", 70
            .Add , , "", 70
            .Add , , "", 50
            .Add , , "", 50
            .Add , , "", 60
            .Add , , "", 60
            .Add , , "", 60
            .Add , , "", 60
            .Add , , "", 60
            .Add , , "", 100
            .Add , , "", 100
            .Add , , "", 60
            .Add , , "", 60
            .Add , , "", 40
            .Add , , "", 60
        End With
    End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
G

geraldvc

XLDnaute Junior
Re : excel plante au lancement d'une macro protégée

Voici ce que j'ai quand je veux le charger dans pièce joint


* essai plantage.xls - Votre fichier de 261,5 Ko octets dépasse la limite du forum de 48,8 Ko pour ce type de fichier.
 
Vote positif 0 Vote négatif

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
972
pelerin65
P
P
  • Résolu(e)
XL 2010 Réduire la macro
Réponses
2
Affichages
296
Panda79360
P
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
253
Zonmé
Z
D
  • Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
350
dadu35
D
M
  • Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
111
marie3107
M
F
  • Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
197
Francky79
F
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
130
sebastien176
S
R
  • Question
XL 2016 excel 2016 VBA
Réponses
2
Affichages
161
rebatte
R
M
  • 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
431
Mody200
M
D
  • Résolu(e)
Microsoft 365 Création d'une barre personnalisée dans Excel
2 3
Réponses
35
Affichages
1 K
laurent950
laurent950

Membres actuellement en ligne

2 membres et 35 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 321
Messages
2 087 265
Membres
103 501
dernier inscrit
talebafia