Selection après tri sur dates

Le
JeanYvesGascon
Bonjour,

Voici mon petit souci je suis sous la version 2003 d'Excel
Dans un tableau ainsi organisé
A6:A4000 il y a le jour de la date :An=Bn (format "DDD", de façon à
avoir Lun, . ven)
B6:B4000, il y a des dates (format"DD/MM/YY)
C6:C4000, il ya des horaires (format"HH:MM")
/.
E6:E40000 il ya des noms

Grace à A1=AUJOURDHUI()
en cliquant sur le bouton "RdV=0"
j'arrive à trier sur la première occurence de la date du jour

Private Sub CommandButton1_Click()
' Rdv du jour (RdV=O)
[a6].AutoFilter Field:=2, Criteria1:=">=" & CDbl(Range("A1"))
End Sub

Jusque là tout va bien

Je souhaiterai savoir s'il est possible de sélectionner la première
valeur Noms de la colonne E ?

Merci de vos éclairages

JeanYves
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #23856681
Bonjour,

Après l'exécution de ton filtre, tu peux utiliser ceci :

'----------------------------
Private Sub CommandButton1_Click()
Dim X As Long
' Rdv du jour (RdV=O)
[a6].AutoFilter Field:=2, Criteria1:=">=" & CDbl(Range("A1"))

Range("_filterDataBase")
X = .Offset(1).Resize(.Rows.Count - 1). _
SpecialCells(xlCellTypeVisible).Row
Range("E" & X).Select

End Sub
'----------------------------


MichD
------------------------------------------
"JeanYvesGascon" a écrit dans le message de groupe de discussion :


Bonjour,

Voici mon petit souci je suis sous la version 2003 d'Excel
Dans un tableau ainsi organisé
A6:A4000 il y a le jour de la date :An=Bn (format "DDD", de façon à
avoir Lun, .... ven)
B6:B4000, il y a des dates (format"DD/MM/YY)
C6:C4000, il ya des horaires (format"HH:MM")
.../....
E6:E40000 il ya des noms

Grace à A1=AUJOURDHUI()
en cliquant sur le bouton "RdV=0"
j'arrive à trier sur la première occurence de la date du jour

Private Sub CommandButton1_Click()
' Rdv du jour (RdV=O)
[a6].AutoFilter Field:=2, Criteria1:=">=" & CDbl(Range("A1"))
End Sub

Jusque là tout va bien

Je souhaiterai savoir s'il est possible de sélectionner la première
valeur Noms de la colonne E ?

Merci de vos éclairages

JeanYves
JeanYvesGascon
Le #23857141
On 12 oct, 12:13, "MichD"
Bonjour,

Après l'exécution de ton filtre, tu peux utiliser ceci :

'----------------------------
Private Sub CommandButton1_Click()
Dim X As Long
'   Rdv du jour (RdV=O)
[a6].AutoFilter Field:=2, Criteria1:=">=" & CDbl(Range("A1"))

Range("_filterDataBase")
    X = .Offset(1).Resize(.Rows.Count - 1). _
            SpecialCells(xlCellTypeVisible).Row
Range("E" & X).Select

End Sub
'----------------------------

MichD
------------------------------------------
"JeanYvesGascon"  a écrit dans le message de groupe de discussion :


Bonjour,

Voici mon petit souci je suis sous la version 2003 d'Excel
Dans un tableau ainsi organisé
A6:A4000 il y a le jour de la date :An=Bn (format "DDD", de façon à
avoir Lun, .... ven)
B6:B4000, il y a des dates (format"DD/MM/YY)
C6:C4000, il ya des horaires (format"HH:MM")
.../....
E6:E40000  il ya des noms

Grace à A1=AUJOURDHUI()
en cliquant sur le bouton "RdV=0"
j'arrive à trier sur la première occurence de la date du jour

Private Sub CommandButton1_Click()
'   Rdv du jour (RdV=O)
[a6].AutoFilter Field:=2, Criteria1:=">=" & CDbl(Range("A1"))
End Sub

Jusque là tout va bien

Je souhaiterai savoir s'il est possible de sélectionner la première
valeur Noms de la colonne E ?

Merci de vos éclairages

JeanYves



Merci Michel,

Mais lorsque j'execute la routine pas à pas
au niveau de
Range ("_filterDataBase")

"erreur de compilation_ Utilisation incorrecte de la propriété"

Diantre

a bientôt
je vous tiens au courant

Jean-Yves
JeanYvesGascon
Le #23875421
On 12 oct, 13:38, JeanYvesGascon
On 12 oct, 12:13, "MichD"








> Bonjour,

> Après l'exécution de ton filtre, tu peux utiliser ceci :

> '----------------------------
> Private Sub CommandButton1_Click()
> Dim X As Long
> '   Rdv du jour (RdV=O)
> [a6].AutoFilter Field:=2, Criteria1:=">=" & CDbl(Range("A1"))

> Range("_filterDataBase")
>     X = .Offset(1).Resize(.Rows.Count - 1). _
>             SpecialCells(xlCellTypeVisible).Row
> Range("E" & X).Select

> End Sub
> '----------------------------

> MichD
> ------------------------------------------
> "JeanYvesGascon"  a écrit dans le message de groupe de discussion :
>

> Bonjour,

> Voici mon petit souci je suis sous la version 2003 d'Excel
> Dans un tableau ainsi organisé
> A6:A4000 il y a le jour de la date :An=Bn (format "DDD", de façon à
> avoir Lun, .... ven)
> B6:B4000, il y a des dates (format"DD/MM/YY)
> C6:C4000, il ya des horaires (format"HH:MM")
> .../....
> E6:E40000  il ya des noms

> Grace à A1=AUJOURDHUI()
> en cliquant sur le bouton "RdV=0"
> j'arrive à trier sur la première occurence de la date du jour

> Private Sub CommandButton1_Click()
> '   Rdv du jour (RdV=O)
> [a6].AutoFilter Field:=2, Criteria1:=">=" & CDbl(Range("A1"))
> End Sub

> Jusque là tout va bien

> Je souhaiterai savoir s'il est possible de sélectionner la première
> valeur Noms de la colonne E ?

> Merci de vos éclairages

> JeanYves

Merci Michel,

Mais lorsque j'execute la routine pas à pas
au niveau de
Range ("_filterDataBase")

"erreur de compilation_ Utilisation incorrecte de la propriété"

Diantre

a bientôt
je vous tiens au courant

Jean-Yves



Bonjour,

Finalement, avec ça, cela fonctionne :

Private Sub CommandButton1_Click()

Dim Cel As Range 'déclare la variable Cel
' Rdv du jour (RdV=O)
[a6].AutoFilter Field:=2, Criteria1:=">=" & CDbl(Range("A1"))

'boucle sur toutes les cellules éditées Cel de la colonne E en
partant de E6
For Each Cel In Range("E6:E" & Range("E65536").End(xlUp).Row)
'condition : si la ligne de la cellule n'est pas masquée
If Cel.EntireRow.Hidden = False Then
Cel.Select 'sélectionne la cellule
Exit Sub 'sort de la procédure
End If 'fin de la condition
Next Cel 'prochaine cellule éditée Cel de la colonne E

End Sub

Voili voilà

Cordialement

Jean-Yves
MichD
Le #23877121
Désolé, dans la procédure j'ai omis : With .... End With

'-----------------------
Private Sub CommandButton1_Click()
Dim X As Long
' Rdv du jour (RdV=O)
[a6].AutoFilter Field:=2, Criteria1:=">=" & CDbl(Range("A1"))

With Range("_filterDataBase") '<<<================ X = .Offset(1).Resize(.Rows.Count - 1). _
SpecialCells(xlCellTypeVisible).Row
End With '<<<================ Range("E" & X).Select

End Sub
'-----------------------

MichD
------------------------------------------
Publicité
Poster une réponse
Anonyme