Voici mon petit souci je suis sous la version 2003 d'Excel
Dans un tableau ainsi organis=E9
A6:A4000 il y a le jour de la date :An=3DBn (format "DDD", de fa=E7on =E0
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 =E0 A1=3DAUJOURDHUI()
en cliquant sur le bouton "RdV=3D0"
j'arrive =E0 trier sur la premi=E8re occurence de la date du jour
Private Sub CommandButton1_Click()
' Rdv du jour (RdV=3DO)
[a6].AutoFilter Field:=3D2, Criteria1:=3D">=3D" & CDbl(Range("A1"))
End Sub
Jusque l=E0 tout va bien
Je souhaiterai savoir s'il est possible de s=E9lectionner la premi=E8re
valeur Noms de la colonne E ?
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
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"))
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
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"))
MichD
------------------------------------------
"JeanYvesGascon" a écrit dans le message de groupe de discussion :
a1e1a5d1-684b-44c5-8f5a-75f54652532a@d28g2000vby.googlegroups.com...
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 ?
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"))
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
On 12 oct, 12:13, "MichD" wrote:
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"))
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
On 12 oct, 12:13, "MichD" <michde...@hotmail.com> wrote:
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"))
MichD
------------------------------------------
"JeanYvesGascon" a écrit dans le message de groupe de discussion :
a1e1a5d1-684b-44c5-8f5a-75f546525...@d28g2000vby.googlegroups.com...
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é"
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"))
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
On 12 oct, 13:38, JeanYvesGascon wrote:
On 12 oct, 12:13, "MichD" wrote:
> 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"))
> 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
On 12 oct, 13:38, JeanYvesGascon <jeanyves.gas...@gmail.com> wrote:
On 12 oct, 12:13, "MichD" <michde...@hotmail.com> wrote:
> 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"))
> MichD
> ------------------------------------------
> "JeanYvesGascon" a écrit dans le message de groupe de discussion :
> a1e1a5d1-684b-44c5-8f5a-75f546525...@d28g2000vby.googlegroups.com...
> 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
> 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"))
> 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
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 ------------------------------------------
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
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
