fonction aujourd'hui en vba

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : fonction aujourd'hui en vba

Angelo38

bonjour, je souhaiterai savoir comment programmer la fonction aujourd'hui se trouvant dans Insertion/fonction en vba
j'ai voulu faire une macro préenregistré mais il me la fais comme si c'étais du texte (pas tres clair ce que je raconte ; je met le code c'est plus parlant)

[code]
Sub Macro4()

ActiveCell.FormulaR1C1 = "=TODAY()"

End Sub
sauf que moi je souhaite récupérer la date actuelle pour la mettre dans une variable :

date =today() ne marche pas y a t'il une autre fonction ? ou que dois je faire ??

Publicité

ladislas2609

salut,

déjà évite les variables qui portent le nom de fonctions. Date est également un type de données. Bonjour la confusion dans tout ça.

Mais rassure toi, tu y était presque

dim today as date
today = date
et voilà.
tu as aussi now, qui retourne la date et l'heure système et time si tu veux juste l'heure.

++

Angelo38

ha ba d'accord!! je connaissais pas la fonction "date" par contre le type je connaissais mais j'ai mis ca pour me faire comprendre. Dans mon programme je mettrais autre chose ne t'inquiete pas

jokair

Bonjour,

Dans une feuille excel, je cherche à trouver selctionner la cellule contenant la date d'aujourd'hui en cliquant sur une CommandBox:

Voici le code que j'ai mis:

Code :

Private Sub cmd_today_Click()
Dim today As Date
Dim celluletrouvee As Range
Dim ligne As Integer
Dim colonne As Integer
today = Date
Set celluletrouvee = Range("D3:HE3" ).Find(today, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
MsgBox ("pas trouvé " + Chr(13) + Str(Date))
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & colonne)
celluletrouvee.Select
End If
End Sub

Mais, la fonction utilisée ne me trouve aucune cellule (alors que bien sur, il y a une cellule qui contient la date du jour...)
Par contre, cette cellule est une formule (=case de gauche +1)

Merci pour vos contrib'

@+

86vomito33

comme ca ca marche

Code :

Sub test()
For Each cel In Sheets("Feuil1" ).Cells
If cel = Date Then
MsgBox ("trouvée en " & Chr(cel.Column + 64) & cel.Row)
GoTo fin
End If
Next cel
fin:
End Sub

Message édité par 86vomito33 le 26-08-2008 à 19:35:08

jokair

Merci.
Il y a de ça, le problème, c'est qu'il me trouve la date du jour qui est indiquée en cellule B1 alors que je veux qu'il trouve la cellule sur la ligne 3...
On ne peut pas affecter une plage de donnée ???

@+

86vomito33

dans ce cas là, la plage correspond à toute la feuille. si tu veux la plage A3:C5 tu remplace

Code :

For Each cel In Sheets("Feuil1" ).Cells

par

Code :

For Each cel In Sheets("Feuil1" ).range("a3:C5" )

par contre je vois pas trop ton pb

edit:
mets ton fichier sur cjoint

Message édité par 86vomito33 le 26-08-2008 à 20:03:58

jokair

Tu as tout juste 86vomito33 !!!, j'ai fait:

Code :

Sub today()
Dim cel As Object
For Each cel In ActiveSheet.Range("D3:HE3" )
If cel = Date Then
cel.Select
GoTo fin
End If
Next cel
fin:
End Sub

Et une petite dernière requête, vu que rien ne te résiste !!!

Je cherche à sélectionner la même cellule mais sur une autre feuille appelée "toto" ou Feuil4, j'essaie ceci sans succès:

Code :

For Each cel In Worksheets(4).Range("D3:HE3" )
If cel = Date Then
cel.Select
GoTo fin
End If
Next cel
fin:

si tu trouve je serai :bounce:

86vomito33

bizarre

worksheets(4) correspond a la quatrieme feuille du workbook (classeur)
donc ca serait pt worksheets("toto" ).cel.select

jokair

Je vais t'expliquer plus en détail ce que je souhaite faire:

Dans un classeur excel, j'ai 2 feuilles:

- plan de charge
- planning matériel

Chacune dipose des dates jour par jour en colonne et de nom de personnes/liste de matériel en ligne.
Les dates du jour sont sur la ligne 3 des 2 feuilles.

J'ai réussi à faire une CommandBox qui me trouve la cellule contenant la date du jour dans l'ActiveWorkSheet.

Par contre, je cherche à créer une seconde CommandBox qui me permettrait en un clic d'aller sur la cellule de la date de l'ActiveCell de ma feuille.

Exemple: ci je suis sur le 30/09/2008 sur ma feuille "Plan de Charge", je vous cliquer sur le bouton et qu'il m'affiche (me sélectionne) la cellule 30/09/2008 de ma feuille "planning matériel"

J'espère avoir été clair !!!

Voici le code que j'ai mis:

Code :

Private Sub cmd_date_plan_charge_Click()
Dim date_plan As Date
Dim cel As Object
date_plan = Cells(3, ActiveCell.Column).Value
MsgBox (Str(date_plan) + Chr(13) + Str(Date))
For Each cel In Worksheets(4).Range("D3:HE3" )
If cel = Date Then
cel.Select
GoTo fin
End If
Next cel
fin:
End Sub

Il me met une erreur d'exécution sur la ligne cel.Select

Sinon, le fichier est ici:

http://www.cijoint.fr/cjlink.php?f [...] IdXWO3.xls

@+

Message édité par jokair le 26-08-2008 à 22:49:40

Publicité

86vomito33

ahaha

quand je disais worksheets(4) je voulais dire 4ieme onglet et non pas Feuil4.
bref

worksheets(4) n'existe pas tu n'as que 3 feuilles
remplace worksheets(4) par worksheets("Plan de charge" ) ou par worksheets("Planning Matériel" ) en fonction de ce que tu veux

Message édité par 86vomito33 le 26-08-2008 à 23:30:41

jokair

Ok, j'ai compris le coup du Worksheet(4)

Par contre, le VBA n'aime pas qu'on "appelle" une autre feuille...
Peut-être le ActiveCell qui est sur une feuille et la cellule selectionnée qui est sur une autre:

Code :

Private Sub cmd_date_plan_charge_Click()
Dim date_plan As Date
Dim cel As Object
date_plan = Cells(3, ActiveCell.Column).Value
MsgBox (Str(date_plan) + Chr(13) + Str(Date))
For Each cel In Worksheets("Plan de charge" ).Range("D3:HE3" )
If cel = date_plan Then
cel.Select
GoTo fin
End If
Next cel
fin:
End Sub

Si je remplace Worksheets("Plan de charge" ) (ou WorkSheets(2)) par Worksheets("Planning matériel" ), ça fonctionne...
C'est pas loin, mais c'est toujours pas ça.

Merci en tout cas de te soucier de mon cas ! :hello:

86vomito33

dernière solution de la soiree

worksheets ("planning materiel" ).select ou l'autre
cel.select

edit:
chez moi ca a l'air de marcher

Message édité par 86vomito33 le 26-08-2008 à 23:50:01

jokair

tu es un chef !!!

Merci encore et bonne nuit !!!

@ bientôt

FORUM HardWare.fr

Programmation

VB/VBA/VBS

fonction aujourd'hui en vba

Sujets relatifs
fonction remplacement	fonction select count???[resolu-merci!]
comment marche la fonction fade in et fade out ?	[bash] Fonction qui affiche ou execute les commandes
Scanneur de balise html, reitération d'une fonction	Fonction fcntl
Fonction SQLRequest non définie!	[Résolu]Fonction Pos : mon code ne marche pas
Utilser une fonction d'une DLL d'un driver XP dans une autre DLL ?	excel : fonction pour effacer le contenu d'une cellule
Plus de sujets relatifs à : fonction aujourd'hui en vba

Page générée en 0.044 secondes