Prob MsgBox VBA

[mig_59]

Bonjour forum

Je rencontre un souci sur une MsgBox
J'ai ajouté un calendrier en VBA afin de ne plus saisir manuellement la date dans la cellule E1
Jusque là tout est OK

Le souci est que lorsque le champ date et vide en cellule E1, j'aimerais afficher une MsgBox me prevenant que le champ date et vide exemple "Le champ date ne peut pas être vide"
valider la MsgBox par un bouton OK
puis insérer ma date via le calendrier et sauvegarder ou pas mes données avec la MsgBox déjà existante.

J'ai essayé de mon coté mais le VBA, n'est pas ma tasse de thé
Je joint le fichier, si quelqu'un peut m'aider

Merci d'avance

 

[Compte Supprimé 979]

Re : Prob MsgBox VBA

Bonsoir Mig_59

Il faut utiliser se code

Sub sauvegarder()
  Dim Col As Integer, Lgn As Integer
  If Not IsDate(Range("E1")) Then
    MsgBox "Le champ date ne peut pas être vide!", vbOKOnly + vbExclamation, "Champ date vide"
    Exit Sub
  End If
  With Sheets("Feuil2")
    Col = .Range("A4").End(xlToRight).Column + 1
    Set Dte = .Range("1:1").Find(Range("E1").Value)
    If Not Dte Is Nothing Then
      rep = MsgBox("Cette date est déjà dans le tableau!" & vbCrLf & "Voulez-vous l'écraser?", vbYesNo + vbQuestion, "Date existante")
      If rep = vbNo Then Exit Sub Else Col = Dte.Column
    End If
    .Cells(1, Col) = Cells(1, 5)
    For Lgn = 3 To 13
      .Cells(Lgn, Col) = Cells(Lgn + 1, 3)
    Next
  End With
End Sub

PS : si je puis me permettre, pas terrible ton système de calendrier

 

[mig_59]

Re : Prob MsgBox VBA

Bonjour,

Merci BrunoM45 pour le code en VB

C'est vrai tu as raison vraiment pas terrible, mais j'ai pas trouvé plus facile a mettre en place, j'en ai vu de trés jolie mais pas évident a installer

Aurais-tu par hazard quelques liens interressants et bien sur pas trop compliqué a mettre en oeuvre ?

Cdt

 

[mig_59]

Re : Prob MsgBox VBA

Bonjour

J'ai trouver un calendrier "mDF_XLcalendar" facile a mettre en place et bien plus jolie

Cdt