Macro de controles

[Save92]

Bonjour je suis actuellement sur une macro ou je dois effectuer differents controles sur plusieurs données. Je suis débutant en VBA mais j'ai déjà trouvé quelques pistes, je vous demande conseil pour ce que je n'ai pas trouver ou que je n'arrive pas à utiliser. Merci.
Tous d'abord j'ai deux colonnes (E et F) avec des dates, la premiere avec les dates de début (obligatoire) et la deuxieme les dates de fin (facultatif). Je dois controler que les dates de debut sont non vide et que le format des dates est respecter (A peu près reussi)

Sub TestDate()
Dim rg As Range
Dim bValid As Boolean

'on commence au début de la liste de date
Set rg = ActiveSheet.Range("E1")

bValid = True          'vrai par défaut, date format  valide
Do Until IsEmpty(rg)    'on suppose qu'il n'y a pas de lignes vides
   
   
    'vérifier si c'est une date valide ou non
    If Not IsDate(rg) Then
        rg.Interior.ColorIndex = 3  'en rouge
        bValid = False  'on met à faux
    End If
   
    'vérifier si la date ne correspond pas au mois
    On Error Resume Next
    If bValid Then  'si format date valide alors
        If Month(rg) <> ActiveSheet.Range("H1") And _
            Year(rg) <> ActiveSheet.Range("J1") Then
            rg.Interior.ColorIndex = 6  'en jaune
End If
    End If

    bValid = True
    Set rg = rg.Offset(1, 0)
Loop
End Sub

Par contre je n'arrive pas à trouver le moyen de dire : Si la date de fin (sur la colonne F donc à droite) est remplie alors la date de début doit etre inférieure ou égale à la date de fin.
Merci

 

[nyko283]

Re : Macro de controles

Non non tu peut supprimer cette ligne sans problème, d'ailleurs je ne sais pas pourquoi elle s'est retrouvé dans le code ?
wbkWs.Range("G:G").ClearContents

Je le savais qu'on y était presque....

 

[Save92]

Re : Macro de controles

Non non tu peut supprimer cette ligne sans problème, d'ailleurs je ne sais pas pourquoi elle s'est retrouvé dans le code ?
wbkWs.Range("G:G").ClearContents

Je le savais qu'on y était presque....

Cela me la supprime quand meme bisare

 

[nyko283]

Re : Macro de controles

as tu penser à le retirer dans le module 1 et dans le code de l'userform1?

 

[Save92]

Re : Macro de controles

Heu nan il y a du code dans userform? Desoler je n'avais jamais vu sa avant

Edit : Effectivement c'est la que venais le probleme!!! Quand tu veux pour boire un verre

 

[nyko283]

Re : Macro de controles

OK mais je monte pas souvent sur paris (pour ne pas dire jamais)
On a plus de chance de se croisé de nouveau sur le forum.

 

[Save92]

Re : Macro de controles

Oui mais c'est difficil de te payer un cout à boire sur le forum , Bah écoute si je descend un jours je penserais à t'envoyer un ptit MP, et merci pour ta patience!