Bonjour à tous,
Dans mon fichier je créer plusieurs userform et je dois passer de l'un à l'autre. (Pour l'instant j'en ai que 2 mais ça ne fonctionne pas)
Donc à l'ouverture du fichier excel j'ai un Userform qui s'ouvre avec 4 bouttons de command qui vont pointer sur 4 userform différent
Donc dans le code d'ouvertur de mon classeur j'ai la commande suivante :
Private Sub Workbook_Open()
ufmIntroduction.Show (False)
End Sub
quand je clique sur le premier boutton (pour passer à mon userform2) j'ai le code suivant :
Private Sub Entrer_km_Click()
'Fermer le userform d'intorduction
Unload ufmIntroduction
' Afficher le userform kilométrage pour une nouvelle entrée
Userform2.show
End Sub
Or j'ai une erreur d'exécution avec un code 424 objet requis
Voici le code d'initialisation du userform2
Sub Userform_initialize()
Dim intJour, intMois, intAnnee As Integer
' Définition des variables
Dim wsDonnees As Worksheet
' Placer valeur d'origine dans les variables
Set wsDonnees = Sheets("Données")
datedujour = Date
intJour = Day(datedujour)
intMois = Month(datedujour)
intAnnee = Year(datedujour)
' Initialisation de la liste déroulante des jours à l'ouverture du fichier
With Jour
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
.AddItem "8"
.AddItem "9"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "13"
.AddItem "14"
.AddItem "15"
.AddItem "16"
.AddItem "17"
.AddItem "18"
.AddItem "19"
.AddItem "20"
.AddItem "21"
.AddItem "22"
.AddItem "23"
.AddItem "24"
.AddItem "25"
.AddItem "26"
.AddItem "27"
.AddItem "28"
.AddItem "29"
.AddItem "30"
.AddItem "31"
.ListIndex = intJour - 1
End With
' Initialisation de la liste déroulante des Années à l'ouverture du fichier
With Annee
.AddItem "2012"
.AddItem "2013"
.AddItem "2014"
.AddItem "2015"
.AddItem "2016"
.AddItem "2017"
.AddItem "2018"
.AddItem "2019"
.AddItem "2020"
.ListIndex = intAnnee - 2012
End With
' Initialisation de la liste déroulante des Mois à l'ouverture du fichier
With Mois
.AddItem " Janvier "
.AddItem " Février "
.AddItem " Mars "
.AddItem " Avril "
.AddItem " Mai "
.AddItem " Juin "
.AddItem " Juillet "
.AddItem " Août "
.AddItem " Septembre "
.AddItem " Octobre "
.AddItem " Novembre "
.AddItem " Décembre "
.ListIndex = intMois - 1
End With
end sub
Pouvez-vous m'aider ?
Mes ressources sont limité en VBA et je ne comprends pas le problème.
Merci
Dans mon fichier je créer plusieurs userform et je dois passer de l'un à l'autre. (Pour l'instant j'en ai que 2 mais ça ne fonctionne pas)
Donc à l'ouverture du fichier excel j'ai un Userform qui s'ouvre avec 4 bouttons de command qui vont pointer sur 4 userform différent
Donc dans le code d'ouvertur de mon classeur j'ai la commande suivante :
Private Sub Workbook_Open()
ufmIntroduction.Show (False)
End Sub
quand je clique sur le premier boutton (pour passer à mon userform2) j'ai le code suivant :
Private Sub Entrer_km_Click()
'Fermer le userform d'intorduction
Unload ufmIntroduction
' Afficher le userform kilométrage pour une nouvelle entrée
Userform2.show
End Sub
Or j'ai une erreur d'exécution avec un code 424 objet requis
Voici le code d'initialisation du userform2
Sub Userform_initialize()
Dim intJour, intMois, intAnnee As Integer
' Définition des variables
Dim wsDonnees As Worksheet
' Placer valeur d'origine dans les variables
Set wsDonnees = Sheets("Données")
datedujour = Date
intJour = Day(datedujour)
intMois = Month(datedujour)
intAnnee = Year(datedujour)
' Initialisation de la liste déroulante des jours à l'ouverture du fichier
With Jour
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
.AddItem "8"
.AddItem "9"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "13"
.AddItem "14"
.AddItem "15"
.AddItem "16"
.AddItem "17"
.AddItem "18"
.AddItem "19"
.AddItem "20"
.AddItem "21"
.AddItem "22"
.AddItem "23"
.AddItem "24"
.AddItem "25"
.AddItem "26"
.AddItem "27"
.AddItem "28"
.AddItem "29"
.AddItem "30"
.AddItem "31"
.ListIndex = intJour - 1
End With
' Initialisation de la liste déroulante des Années à l'ouverture du fichier
With Annee
.AddItem "2012"
.AddItem "2013"
.AddItem "2014"
.AddItem "2015"
.AddItem "2016"
.AddItem "2017"
.AddItem "2018"
.AddItem "2019"
.AddItem "2020"
.ListIndex = intAnnee - 2012
End With
' Initialisation de la liste déroulante des Mois à l'ouverture du fichier
With Mois
.AddItem " Janvier "
.AddItem " Février "
.AddItem " Mars "
.AddItem " Avril "
.AddItem " Mai "
.AddItem " Juin "
.AddItem " Juillet "
.AddItem " Août "
.AddItem " Septembre "
.AddItem " Octobre "
.AddItem " Novembre "
.AddItem " Décembre "
.ListIndex = intMois - 1
End With
end sub
Pouvez-vous m'aider ?
Mes ressources sont limité en VBA et je ne comprends pas le problème.
Merci