Code UserForm vers Feuil Excel
Fermé
fthem
Messages postés
26
Date d'inscription
mercredi 28 septembre 2005
Statut
Membre
Dernière intervention
28 août 2012
-
28 juil. 2011 à 14:51
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 28 juil. 2011 à 15:34
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 28 juil. 2011 à 15:34
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
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
A voir également:
- Code UserForm vers Feuil Excel
- Liste déroulante excel - Guide
- Code puk bloqué - Guide
- Code asci - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 757
28 juil. 2011 à 15:34
28 juil. 2011 à 15:34
Bonjour,
Un code possible :
2 textbox appelés respectivement DateDebut et DateFin
Une plage contenant les dates à tester : Feuil1!A1:A447
Un exemple basé sur l'Userform d'Eric Renaud
https://www.cjoint.com/?AGCpGs20zZ3
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