[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
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Airpods 3 date de sortie - Guide
- Jm date désabonnement - Forum Gmail
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. ✓ - Forum Graphisme
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 ?
