sélection ligne fonction date

pierrejean

XLDnaute Barbatruc

• 24 Mai 2006

• #2

bonsoir JORDAN

teste:

DATELIGNE=Format(Date,'dd/mm/yyyy')

 

Vote positif 0 Vote négatif

JORDAN

XLDnaute Impliqué

• 24 Mai 2006

• #3

Bonsoir Pierrejean, le Forum,

j'ai fait ceci mais toujours sans succès

Code:

Private Sub worksheet_activate()

Dim DATELIGNE As String
Dim i As Integer

DATELIGNE = Format(Date, 'dd/mm/yyyy')
        
For i = 1 To 400
If Cells(1, 1) = DATELIGNE Then
Cells(1, 1).Select
End If
Next i

End Sub

J'ai également essayé Dim DATELIGNE as Date

Si quelqu'un a une suite à cette idée qui est un bon début, je suis preneur

Encore merci
bonne soirée

 

Vote positif 0 Vote négatif

L

laM

Guest

• 25 Mai 2006

• #4

Bonjour

Je pense qu'il va y avoir de l'arrachage de cheveux lorsque tu vas voir le gag. Un peu de fatigue à mon avis.

Private Sub worksheet_activate()

Dim i As Integer

For i = 1 To 400
If Cells(i, 1) = Date Then
Cells(i, 1).Select
End If
Next i
End Sub

Au revoir, à bientôt

 

Vote positif 0 Vote négatif

JORDAN

XLDnaute Impliqué

• 26 Mai 2006

• #5

Bonjour à tous,

J'ai beau essayé vos solutions dans tous les sens, ça ne marche pas.
Je n'arrive pas à sélectionner la ligne correspondant à la date du jour

Ce qui est étrange, j'ai mis :
Range('c151') = DATELIGNE
Range('c152') = DATEJOUR
pour connaitre le contenu de ces 2 valeurs
en C152 j'ai bien 26/05/2006 alors qu'en C151, j'ai rien, cellule vide
par contre si je suis en débogage, les 2 valeurs ont bien 26/05/2006 en mémoire
??????
Si quelqu'un a une petite idée sur le problème, ça m'intéresse fortement

Merci à vous tous

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Mai 2006

• #6

bonsoir JORDAN

essaie de t'inspirer de ceci [file name=jordan_20060526180557.zip size=9057]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/jordan_20060526180557.zip[/file]

 

Pièces jointes

• jordan_20060526180557.zip

  8.8 KB · Affichages: 17

Vote positif 0 Vote négatif

A

AV

Guest

• 26 Mai 2006

• #7

Ave,

Histoire de..

Il n'y a pas intérêt à boucler sur toutes les cellules pour trouver la date du jour et la sélectionner :

Cells(Application.Match(Date * 1, [A1:A400], 0), 1).Select

AV [aaa]

 

Vote positif 0 Vote négatif

JORDAN

XLDnaute Impliqué

• 26 Mai 2006

• #8

Bonsoir Pierrejean, AV, le Forum

J'ai essayé vos 2 solutions

la solution proposée par AV :

Cells(Application.Match(Date * 1, [A1:A400], 0), 1).Select

Cliquez pour agrandir...

Je n'y comprends pas grand chose, je l'ai quand même insérée dans mon code, sans succès. Sélection d'une autre ligne ou alors il ne se passe rien.

Par contre la solution de Pierrejean fonctionne à merveilles
Un grand merci à vous tous pour vos conseils et en particulier à Pierrejean qui ma très dépanné.

Bonne soirée
A+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 26 Mai 2006

• #9

Bonsoir à Tous,

Code:

Private Sub Workbook_Open()
Dim cel As Range
Dim aujourdhui As Date
aujourdhui = Date
For Each cel In Range('A1:A366')
If cel.Value = aujourdhui Then

cel.Offset(0, 0).Activate
End If
Next cel

End Sub

Quand je vois le code d'AV, qui marche parfaitement chez moi... de même que celui de PierreJean 😉 , il n'ya pas photo...

 

Vote positif 0 Vote négatif

A

AV

Guest

• 27 Mai 2006

• #10

Re,


''..la solution proposée par AV ....je l'ai quand même insérée dans mon code, sans succès...''


Pour être sur que tu n'es pas la victime d'un micro-climat et vérifier la différence de rapidité d'exécution d'une boucle et d'un ''Match''

AV [aaa] [file name=Cherche_Date_Jour.zip size=8648]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Cherche_Date_Jour.zip[/file]

 

Pièces jointes

• Cherche_Date_Jour.zip

  8.4 KB · Affichages: 18

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 27 Mai 2006

• #11

Bonjour le Forum,
Info interessante
Question subsidiaire?
Comment faire la même chose dans une Listbox, j'ai des mises à jour à faire sur un tableau du 1 au 31 décembre et je souhaite que ma listbox en initialisant ce positionne sur la date du jour( tout en pouvant après changer de date).
Escuser moi de m'incrusté sur ce fil, mais comme le principe pourrais me servir.
Bruno

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 27 Mai 2006

• #12

Bonjour le Forum,
Info interessante
Question subsidiaire?
Comment faire la même chose dans une Listbox, j'ai des mises à jour à faire sur un tableau du 1 au 31 décembre et je souhaite que ma listbox en initialisant ce positionne sur la date du jour( tout en pouvant après changer de date).
Escuser moi de m'incrusté sur ce fil, mais comme le principe pourrais me servir.
Bruno

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mai 2006

• #13

bonjour tous

Il est tout a fait exact que la solution de AV est la meilleure
Elle combine merveilleusement les fonctions integrées d'Excel et le Vba
En ce qui me concerne je suis malheureusement imperméable aux fonctions (n'est-ce pas andré !!!)
Je vais tout de même de ce pas titiller F1 a propos de Match

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Mai 2006

• #14

Bonjour AV, PierreJean 😉 , Jordan et le Forum

Merci AV de ta démo

Ici je peux rechercher une date précisée en E1

Code:

Sub Avec_Boucle()
For n = 1 To Range('A65536').End(xlUp).Row
If Cells(n, 1).Value = Range('E1').Value Then Cells(n, 1).Select
Next n
End Sub

Quand n'est-il pour avoir la même possibilité dans le Match proposé par AV ?

Code:

Sub Sans_Boucle()
Cells(Application.Match(Date * 1, [A:A], 0), 1).Select
End Sub

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mai 2006

• #15

bonjour JCGL ,le forum

voila l'adaptation du code d'AV pour la recherche a partir d'une cellule

Cells(Application.Match(Range('C11') * 1, [A:A], 0), 1).Select

edit:
probleme avec le fichier qui prend de l'embonpoint quand on y touche !!!! (surement une des subtilités d'AV)

Message édité par: pierrejean, à: 27/05/2006 09:02

 

Vote positif 0 Vote négatif