Code UserForm vers Feuil Excel

fthem Messages postés 27 Statut Membre -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,
Voila mon prblm:
je saisie un intervalle de dates dans un userform, je clique sur un bouton et je voudrais que cela ai pour effet de colorer toutes les cellules des jours de mon calendrier de la feuille excel situées dans l'intervalle des 2 dates saisies.
Quel serait le code Vba
Merci pour votre aide

1 réponse

  1.
    pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,
    Un code possible :
    2 textbox appelés respectivement DateDebut et DateFin
    Une plage contenant les dates à tester : Feuil1!A1:A447 

    Dim MaPlage As Range, Cel As Range
Set MaPlage = Sheets("Feuil1").Range("A1:A447")
For Each Cel In MaPlage
    If CDate(Cel.Value) > CDate(DateDebut.Value) And CDate(Cel.Value) < CDate(DateFin.Value) Then
        Cel.Interior.ColorIndex = 3
    Else
        Cel.Interior.ColorIndex = xlNone
    End If
Next

    Un exemple basé sur l'Userform d'Eric Renaud
    https://www.cjoint.com/?AGCpGs20zZ3
    0