Discussion :

[gaston64]

bonjour,

je souhaite selectionner dans une ligne, la cellule contenant la date d'aujourd'hui.

Ceci pour en exploiter les coordonnées (ligne,colonne)

comment faire

merci

[casefayere]

Bonjour,
admettons que ta date est en ligne 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub cherche_date()
Dim ladate As Range
Set ladate = Rows(1).Find(Date)
MsgBox ladate.Address
End Sub

[Philippe Tulliez]

Bonjour,
En supposant que la date se trouve n'importe où dans la feuille active.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub FindDate()
  Dim myCell As Range
  Set myCell = ActiveSheet.Cells.Find(CDate("19/04/2011"))
  MsgBox myCell.Address
End Sub

[gaston64]

merci pour vos réponses

toutefois comment faire pour ensuite manipuler le numero de la ligne et le numero de la colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MsgBox myCell.Address.Rows       ???
MsgBox myCell.Address.Columns   ???

merci

[casefayere]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MsgBox myCell.Row
MsgBox myCell.Column

[gaston64]

desolé du dérangement j'avais pas enlevés les "s"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MsgBox ladate.row
MsgBox ladate.column

[patricktoulon]

bonjour

MsgBox ladate.row
MsgBox ladate.column

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
MsgBox ladate.row            ' la ligne de la celule
MsgBox ladate.column       ' la colonne de la celule

au plaisir