[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...
4 réponses
-
Désolé, mais les bénévoles dorment la nuit...
-
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 ? -
Lol oui je comprends, c'est humain ^^ je ne m'attendais pas a une réponse hier soir. En fait, j'ai resolu le soucis des magbox et je cherche maintenant juste a arrondir une date maintenant... Tu n'aurais pas un indice ?
-
