Selectionner une colonne sur la date du jour actuelle

hassan.zer

XLDnaute Occasionnel
Bonjour à tous,

J'ai un calendrier horizontal avec la date, je voudrai une macro pour selectionner la colonne contenat la date du jour, j'ai deja ce fichier mais cela ne fonctionne pas, cela ne tient pas compte du mois !

Merci
 

Pièces jointes

  • Ouverture sur Date Jour.xls
    37.5 KB · Affichages: 111
  • Ouverture sur Date Jour.xls
    37.5 KB · Affichages: 126
  • Ouverture sur Date Jour.xls
    37.5 KB · Affichages: 118

Papou-net

XLDnaute Barbatruc
Re : Selectionner une colonne sur la date du jour actuelle

Bonsoir hassan.zer,

En modifiant ta macro comme suit, ça fonctionne (et ce quelle que soit l'année) :

Code:
Sub azerty()
For Each cel In Feuil10.Range("3:3").SpecialCells(xlCellTypeConstants)
  If Day(cel.Value) = Day(Date) And Month(cel.Value) = Month(Date) Then
    cel.Select
    Exit Sub
  End If
Next
End Sub

Espérant avoir répondu.

Cordialement.
 

orphelion

XLDnaute Occasionnel
Re : Selectionner une colonne sur la date du jour actuelle

Bonjour le forum, le fil

Papou-net c'est super cette petite macro.
Je me permet de rajouter la precision de l'annee si besoin etait.

Code:
Sub azerty()
For Each cel In Feuil10.Range("3:3").SpecialCells(xlCellTypeConstants)
  If Day(cel.Value) = Day(Date) And Month(cel.Value) = Month(Date) And Year(cel.Value) = Year(Date) Then
    cel.Select
    Exit Sub
  End If
Next
End Sub

A+
 

Discussions similaires

Réponses
8
Affichages
214
Réponses
5
Affichages
180

Statistiques des forums

Discussions
312 194
Messages
2 086 071
Membres
103 110
dernier inscrit
Privé