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
A voir également:
- Code UserForm vers Feuil Excel
- Liste déroulante excel - Guide
- Code asci - Guide
- Code puk bloqué - 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