Réinitialisation code procédure

[lynyrd]

Bonjour le forum
Peut t'on réinitialiser automatiquement le code de la procédure d'un userform à l'ouverture du fichier ?
Merci.

 

[Victor21]

Re : Réinitialisation code procédure

Bonjour, lynyrd.

Dans le module thisworkbook, tu peux appeler une procédure :

Private Sub Workbook_Open()
call LaProcédureDinitialisationDeMonUserform
End Sub

 

[lynyrd]

Re : Réinitialisation code procédure

Bonjour victor 21
Je comprends pas trop.
Je vais essayer d'expliquer mon souci.
Quand je veux utiliser la combobox de mon userform pour faire des recherches,excel me lance un message d'erreur
" erreur d'automation,une exception s'est produite " et me ferme excel.
j'ai remarqué que si avant de me servir de l'userform,je fais " exécution ----> réinitialiser " ca fonctionne normalement,donc je voudrais savoir si c'était possible à l'ouverture du fichier que cette manip se fasse automatiquement.
Merci.

 

[Victor21]

Re : Réinitialisation code procédure

Re,

Je comprends pas trop.

Sans fichier ni code, moi non plus !

 

[lynyrd]

Re : Réinitialisation code procédure

Voici le fichier réduit au maximum
Merci de me venir en aide.

 

[laetitia90]

Re : Réinitialisation code procédure

bonjour lynyrd,victor
j'ai teste ton fichier pas error ???
essai quand meme de mettre tous dans activate & rien dans initialise

Private Sub UserForm_Activate()
Set user = Me: es
Label1.Caption = "mode : Recherche"
initialisecombo
End Sub

 

[Staple1600]

Re : Réinitialisation code procédure

Bonjour


Ton fichier vient du futur ?
Macro réalisée en 2012 😉

[mon intuition]
Ce genre de message apparait quand un contrôle a été supprimé sur un userform mais qu'il reste un code VBA relatif à celui-ci.
[/mon intuition]

EDITION: Bonjour leti

 

[lynyrd]

Re : Réinitialisation code procédure

Ca bug toujours autant.
Laetitia,le code que tu m'avais fourni pour le module et le module de classe fonctionne très bien sur mon autre fichier ou il y a 2 userform (sous excel 2003 ).
j'ai adapté les mêmes codes sur le fichier joint (excel 2007)ou il n'y a qu'un userform et la ca bug.

 

[laetitia90]

Re : Réinitialisation code procédure

re,bonjour Jean Marie🙂🙂
quand pb automation cela peut etre aussi un pb de controles pas present renommees ect..

tout a fait d'accord avec jean marie🙂🙂 vu le nombres de controles sur ton user ca va pas etre simple
sans voir ton fichier en entier cela difficile
il faut proceder par ordre rajouter ton code a fur a mesure jusqu ' au blocage une solution!!
en 1 deja vider le code dans la class

Private Sub txt_Change()
 'rien
 End Sub

voir si la class pose pb dans 1 premier temps

 

[lynyrd]

Re : Réinitialisation code procédure

Non le problème ne viens pas de la.
Par contre pour l'ouverture des userforms dans le fichier précedent tu m'avais mis des commandbutton (4 et 5),je les ai supprimés pour les remplacer par une forme rectangulaire.
Dans le fichier joint plus haut le code pour ces 2 boutons était toujours dans la macro,je viens de supprimer le code mais le problème persiste
A+

 

[laetitia90]

Re : Réinitialisation code procédure

re,essai de crée un new fichier et de copier ton code dedans user ect... pour voir
autrement sans le fichier complet peut pas faire plus

 

[laetitia90]

Re : Réinitialisation code procédure

re , avant que je partes "squatter" la salle de bain dans tous les cas il faudrat arranger ton code on demande beaucoup a excel en une seule fois !!
ce que je dire... click sur combo on charge d'abord les données puis ensuite on active la class cela impose de rajouter une variable public
mais bon autre sujet!!!

 

[lynyrd]

Re : Réinitialisation code procédure

J'ai refait en totalité le fichier,même problème
Voici le fichier dans sa totalité
A+
Download Planning 2012-excel 2007.xlsm from Sendspace.com - send big files the easy way

 

[laetitia90]

Re : Réinitialisation code procédure

rebonjour tous 🙂🙂
je viens de regarder pas simple comme dit plus j'ai l'impression qu'on demande beaucoup a excel en une seule fois
je pense que le fichier sous excel2003 doit etre construit de cette maniere
premier user de janvier a juin & juillet a decembre vu que excel 2003 seulement 255 colonnes?? peut etre le fichier 2007 doit poser le meme PB sous 2003 a mon avis a tu teste ??
en 1 vu que tu as un user unique
la declaration classe dans user on supprime le module1
on essai de fractionner le chargement de la combo en 2
apres on verra😕

code user

Dim txt(3 To 368) As New Classe1, i As Long
Sub UserForm_Initialize()
For i = 3 To 368: Set txt(i).txt = Controls("Textbox" & i): Next i
Label1.Caption = "mode : Recherche"
initialisecombo
End Sub
Private Sub ComboBox1_Click()
CommandButton3.Visible = True
Label1.Caption = "mode : Modification"
With ComboBox1
For i = 1 To 221
Controls("TextBox" & i) = Sheets("feuil2").Cells(.List(.ListIndex, 1), i)
Next i
For i = 222 To 442
Controls("TextBox" & i) = Sheets("feuil2").Cells(.List(.ListIndex, 1), i)
Next i
End With
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
With ComboBox1
For i = 1 To 369
     Sheets("feuil2").Cells(.List(.ListIndex, 1), i) = Controls("TextBox" & i)
     Controls("TextBox" & i) = ""
Next i
    .ListIndex = -1
End With
CommandButton3.Visible = False
CommandButton2.Visible = False
End Sub
Public Sub initialisecombo()
Dim i As Variant
With ComboBox1
    .ColumnCount = 2
    .ColumnWidths = "50;0"
End With
With Sheets("feuil2")
    For i = 2 To .Range("a65536").End(xlUp).Row
        ComboBox1.AddItem
        ComboBox1.List(ComboBox1.ListCount - 1, 0) = .Cells(i, 1) & " " & .Cells(i, 2)
        ComboBox1.List(ComboBox1.ListCount - 1, 1) = i
    Next i
End With
End Sub

la class change pas

Public WithEvents txt As MSForms.TextBox
 Private Sub txt_Change()
 txt = UCase(txt)
 With txt
     If .Value = "M" Then .BackColor = &HFF00&
     If .Value = "S" Then .BackColor = &HFFFF&
     If .Value = "GS" Then .BackColor = &HFFFF00
     If .Value = "J" Then .BackColor = &H80FF&
     If .Value = "RP" Then .BackColor = &HFF&
     If .Value = "RU" Then .BackColor = &HFF&
     If .Value = "VT" Then .BackColor = &H8080FF
     If .Value = "C" Then .BackColor = &HFFFFFF
     If .Value = "MA" Then .BackColor = &H808080
     If .Value = "GR" Then .BackColor = &H404080
     If .Value = "VM" Then .BackColor = &HFFC0C0
     If .Value = "FO" Then .BackColor = &H800080
     If .Value = "F" Then .BackColor = &HFF00FF
     If .Value = "D" Then .BackColor = &HC0C0C0
 End With
 End Sub

je declare i au debut du module

ps dit une betise on peut pas le tester sous 2003 255 colonnes 🙁🙁🙁

 

[lynyrd]

Re : Réinitialisation code procédure

Bonjour Laetitia
Je viens de mettre le nouveau code,ca bug toujours
A+