date et n° de série

[ong alain]

Bonjour à toutes et à tous


Je n 'arrives pas à trouver l' equivalent de dateval en vba.

A partir d' une cellule contenant une date je voudrais avoir son numéro de série dans ma macro.


merci d' avance
Ong alain :woohoo:

 

[PascalXLD]

Bonjour

ne serait-ce pas CDate() ou DateValue()

Bon courage

Message édité par: Pascal76, à: 27/05/2005 11:33

 

[ong alain]

Merci pascal pour la rapidité

Malheureusement c' est pas ça

une autre idée ???

merci
@plus Ong alain

 

[PascalXLD]

Bonjour

Je ne comprends pas trop si ta cellule comprend une date si tu attribues à une variable ta cellule et que ta variable soit du type integer tu auras son numéro

A moins que quelque chose m'echappe

 

[ong alain]

merci pascal pour ton attention voici la macro
qui me permets de donner le nom du jour de la cellule active
comme mon tableau posséde d'autre valeur que des dates je voulais que cette macro ne s 'execute que sur les cellules date.
Si tu as une idée je suis preneur....

Sub NotificationJour()

' notification du jour

Dim jour As Integer
On Error GoTo fin
(Range('a20') = DateValue(ActiveCell)) gestion erreur essai en cours

jour = Format(Weekday(ActiveCell), 'dddd')

If ActiveCell = Range('a1') Then
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = 'C' est '
.ErrorTitle = ''
.InputMessage = jour
.ErrorMessage = ''
.ShowInput = True
.ShowError = True
End With


ElseIf ActiveCell < Range('a1').Value Then
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = 'C' était un '
.ErrorTitle = ''
.InputMessage = jour
.ErrorMessage = ''
.ShowInput = True
.ShowError = True
End With




ElseIf ActiveCell > Range('a1').Value Then
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = 'Ce sera un '
.ErrorTitle = ''
.InputMessage = jour
.ErrorMessage = ''
.ShowInput = True
.ShowError = True
End With

Else

End If
fin:
End Sub

 

[PascalXLD]

Re

J'ai l'impression que tu veux tester ton format de cellule

Dans ce cas

If ActiveCell.NumberFormat = 'mm/dd/yyyy'
then

 

[ong alain]

bonsoir à toutes et à tous

J ai trouvé une solution pour controler ma cellule active

If ActiveCell.Value2 > 36526 Then Else GoTo fin

merci encore pour ton aide
Ong alain

 

[ong alain]

Ps


j 'ai oublié il faut mettre la variable en variant pas en integer
sinon ça marche pas ????


@plus Ong alain