[VB] Arrondir une date et MsgBox
alphonse
-
alphonse -
alphonse -
Bonjour,
J'ai 2 problèmes différents... Tout d'abord Arrondir une date au mois...
J'ai 11/01/2011 ou 12 -13- 14 etc .../01/2011 je veux qu'elle devienne dans tous les cas 01/01/2011. Et je ne sais pas du tout comment faire cela !
Ensuite Deuxième problème J'obtiens l'erreur : " type défini par l'utilisateur non défini." avec les codes suivant sur Excel 2003.
"Private Sub CommandButton2_Click()
Public Function MsgBox( _
ByVal Prompt As Object, _
Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OKOnly, _
Optional ByVal Title As Object = Nothing _
) As MsgBoxResult
End Function"
Merci pour votre aide...
J'ai 2 problèmes différents... Tout d'abord Arrondir une date au mois...
J'ai 11/01/2011 ou 12 -13- 14 etc .../01/2011 je veux qu'elle devienne dans tous les cas 01/01/2011. Et je ne sais pas du tout comment faire cela !
Ensuite Deuxième problème J'obtiens l'erreur : " type défini par l'utilisateur non défini." avec les codes suivant sur Excel 2003.
"Private Sub CommandButton2_Click()
Public Function MsgBox( _
ByVal Prompt As Object, _
Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OKOnly, _
Optional ByVal Title As Object = Nothing _
) As MsgBoxResult
End Function"
Merci pour votre aide...
A voir également:
- [VB] Arrondir une date et MsgBox
- Jm date désabonnement ✓ - Forum Consommation & Internet
- Trouver une date de naissance gratuit - Forum Webmastering
- Comment prolonger la date de validité d'une smartbox ✓ - Forum Consommation & Internet
- Convertisseur date chiffre romain - Forum Loisirs / Divertissements
- Whatsapp date incorrecte ✓ - Forum Windows Phone
4 réponses
Mes deux problèmes sont résolus. Pour le soucis des Msgbox il faut aller voir dans l'aide d'Excel et pour les dates ils faut enlever des mois et des jours manuellement.
Par contre j'ai l'erreur :
Erreur 1004
Erreur définie par l'application ou par l'objet
While (Format(fichierOuvrir.Sheets("calendrier").Cells(1, comptMois).Value, "Mmm-yy") <> dateactu)
comptMois = comptMois + 1
Wend
Pourquoi cette erreur ?
Par contre j'ai l'erreur :
Erreur 1004
Erreur définie par l'application ou par l'objet
While (Format(fichierOuvrir.Sheets("calendrier").Cells(1, comptMois).Value, "Mmm-yy") <> dateactu)
comptMois = comptMois + 1
Wend
Pourquoi cette erreur ?
