[VB] Arrondir une date et MsgBox Fermé

Question

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...

Alphonse · Answer

Le problème est toujours d'actualité :(

michel_m · Answer

Désolé, mais les bénévoles dorment la nuit...

Alphonse · Answer

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 ?

alphonse · Answer

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 ?

[VB] Arrondir une date et MsgBox

4 réponses

Discussions similaires