OVH Cloud OVH Cloud

Pb Macro

21 réponses
Avatar
rs
Jai un souci sur un fichier contenant des macros, j'ai fait un débog et elle
bloque sur le DTPICKER avec msg objet requiq mais je ne comprned pas du tout
Merci pour votre aide, ci joint la macro

Private Sub UserForm_Initialize()

Dim nom_utilisateur As String
Dim start_plage As Variant
Dim i As Integer
Dim j As Integer
Dim jour_en_cours As Date
ActiveSheet.Unprotect Password:=admin_psw
ActiveWorkbook.Unprotect Password:=admin_psw

jour_en_cours = FormatDateTime(Now, vbShortDate)
DTPicker1.Value = jour_en_cours
DTPicker2.Value = jour_en_cours

j = liste_utilsateur
nom_utilsateur = Range(Cells(j, 1), Cells(j, 1)).Address
start_plage = Range("A228").Address
'Cbliste_nom.RowSource = "B2:" & nom_utilsateur
Cbliste_nom.RowSource = start_plage & ":" & nom_utilsateur
'Call mef_fichier
ActiveSheet.Protect Password:=admin_psw, DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Password:=admin_psw, structure:=True, Windows:=True

End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveWorkbook.Protect Password:=admin_psw, structure:=True, Windows:=True
ActiveSheet.Protect Password:=admin_psw, DrawingObjects:=True,
Contents:=True, Scenarios:=True

End Sub

Private Sub UserForm_Activate()
j = liste_utilsateur
nom_utilsateur = Range(Cells(j, 1), Cells(j, 1)).Address
start_plage = Range("A228").Address
'Cbliste_nom.RowSource = "B2:" & nom_utilsateur
UserForm6.Cbliste_nom.RowSource = start_plage & ":" & nom_utilsateur
End Sub

1 réponse

1 2 3
Avatar
JLuc
*Bonjour rs*,
Il me semble avoir vu quelque chose la dessus, mais je ne retrouve pas
!
Essaie, peut etre, avant d'ouvrir ton projet sur un ordinateur, de
verifier la presence du DTPicher dans les controls de la boite a
outils.
Je vais continuer de chercher et si je trouve, je te le fais savoir

Il n'y a pas un moyen pour m'en sortir
Instal???

"JLuc" wrote:

*Bonjour rs*,
Apparement tu va avoir des problemes sur tous les formulaires qui
utilisent un DTPicker, ils ont l'air d'avoir tous disparus 8-o

Le fichier s'exécute bien????
CAr pour moi à l'ouverture j'ai directement l'erreur d'exécution avec objet
requis et impossible de savoir ce quil veut


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



1 2 3