Un petit souci avec la syntaxe à employer pour les dates.
Dans l'exemple suivant, je veux récupérer le n° de ligne
correspondant au 1er mai.
--------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim Cell, TableauDates As Range
Set TableauDates = Range("Dates")
For Each Cell In TableauDates
If ActiveCell.Value = 1 / 5 / 2005 Then
LignePremierMai = ActiveCell.Row
End If
Next Cell
End Sub
----------------------------------------------------------------
Merci à vous
DéGé
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour DéGé,
'------------------------------------ Private Sub CommandButton1_Click()
Dim MaDate As Long Dim Cell, TableauDates As Range
Set TableauDates = Range("Dates")
'pour une date = 12 avril 2005 MaDate = CLng(DateSerial(2005, 5, 12))
For Each Cell In TableauDates If ActiveCell.Value2 = madate Then LignePremierMai = ActiveCell.Row End If Next Cell End Sub '------------------------------------
Salutations!
"DéGé" a écrit dans le message de news: 425bc2b2$0$1242$ Bonjour à tous.
Un petit souci avec la syntaxe à employer pour les dates. Dans l'exemple suivant, je veux récupérer le n° de ligne correspondant au 1er mai. -------------------------------------------------------------- Private Sub CommandButton1_Click()
Dim Cell, TableauDates As Range
Set TableauDates = Range("Dates")
For Each Cell In TableauDates If ActiveCell.Value = 1 / 5 / 2005 Then LignePremierMai = ActiveCell.Row End If Next Cell End Sub ---------------------------------------------------------------- Merci à vous DéGé
Bonjour DéGé,
'------------------------------------
Private Sub CommandButton1_Click()
Dim MaDate As Long
Dim Cell, TableauDates As Range
Set TableauDates = Range("Dates")
'pour une date = 12 avril 2005
MaDate = CLng(DateSerial(2005, 5, 12))
For Each Cell In TableauDates
If ActiveCell.Value2 = madate Then
LignePremierMai = ActiveCell.Row
End If
Next Cell
End Sub
'------------------------------------
Salutations!
"DéGé" <papa@wanadoo.fr> a écrit dans le message de news: 425bc2b2$0$1242$8fcfb975@news.wanadoo.fr...
Bonjour à tous.
Un petit souci avec la syntaxe à employer pour les dates.
Dans l'exemple suivant, je veux récupérer le n° de ligne
correspondant au 1er mai.
--------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim Cell, TableauDates As Range
Set TableauDates = Range("Dates")
For Each Cell In TableauDates
If ActiveCell.Value = 1 / 5 / 2005 Then
LignePremierMai = ActiveCell.Row
End If
Next Cell
End Sub
----------------------------------------------------------------
Merci à vous
DéGé
'------------------------------------ Private Sub CommandButton1_Click()
Dim MaDate As Long Dim Cell, TableauDates As Range
Set TableauDates = Range("Dates")
'pour une date = 12 avril 2005 MaDate = CLng(DateSerial(2005, 5, 12))
For Each Cell In TableauDates If ActiveCell.Value2 = madate Then LignePremierMai = ActiveCell.Row End If Next Cell End Sub '------------------------------------
Salutations!
"DéGé" a écrit dans le message de news: 425bc2b2$0$1242$ Bonjour à tous.
Un petit souci avec la syntaxe à employer pour les dates. Dans l'exemple suivant, je veux récupérer le n° de ligne correspondant au 1er mai. -------------------------------------------------------------- Private Sub CommandButton1_Click()
Dim Cell, TableauDates As Range
Set TableauDates = Range("Dates")
For Each Cell In TableauDates If ActiveCell.Value = 1 / 5 / 2005 Then LignePremierMai = ActiveCell.Row End If Next Cell End Sub ---------------------------------------------------------------- Merci à vous DéGé
Daniel.M
Bonjour,
If ActiveCell.Value2 = madate Then LignePremierMai = ActiveCell.Row
Pour permettre l'itération à l'intérieur de la boucle For,
If Cell.Value2 = madate Then LignePremierMai = Cell.Row
Salutations,
Daniel M.
Bonjour,
If ActiveCell.Value2 = madate Then
LignePremierMai = ActiveCell.Row
Pour permettre l'itération à l'intérieur de la boucle For,
If Cell.Value2 = madate Then
LignePremierMai = Cell.Row
