Recherche de date suivant l'année

porcinet82

XLDnaute Barbatruc

• 15 Novembre 2006

• #2

Re : Recherche de date suivant l'année

Salut,

Vite fais, mais ca a l'air de fonctionner. Je te propose une macro evenementielle a placer dans la feuille concernée.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%
If Not Intersect(Target, Range("E2")) Is Nothing Then
    Range("E3:E" & Range("E65536").End(xlUp).Row).ClearContents
    For i = 1 To Range("A65536").End(xlUp).Row
        If Year(Cells(i, 1).Value) = Target.Value Then
            Range("E65536").End(xlUp)(2).Value = Cells(i, 1).Value
        End If
    Next i
End If
End Sub

@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Novembre 2006

• #3

Re : Recherche de date suivant l'année

bonjour abc

vois si cela te convient

 

Pièces jointes

• cherchedateannée.xls

  28.5 KB · Affichages: 50
• cherchedateannée.xls

  28.5 KB · Affichages: 54
• cherchedateannée.xls

  28.5 KB · Affichages: 50

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 15 Novembre 2006

• #4

Re : Recherche de date suivant l'année

Bonjour,
Merci à tout les deux,cela fonctionne bien
A +

 

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 15 Novembre 2006

• #5

Re : Recherche de date suivant l'année + rechV

Bonsoir,
j'ai ajouter une recherche V a cotè des dates.
J'aurai aimer l'ajouter avec le code en VBA.
Pourriez vous m'aider.
Merci
A +

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Novembre 2006

• #6

Re : Recherche de date suivant l'année + rechV

bonsoir

vois si j'ai bien compris

sinon poste un fichier

 

Pièces jointes

• cherchedateannée.xls

  28.5 KB · Affichages: 34
• cherchedateannée.xls

  28.5 KB · Affichages: 38
• cherchedateannée.xls

  28.5 KB · Affichages: 36

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 15 Novembre 2006

• #7

Re : Recherche de date suivant l'année

Bonsoir,
merci pierrejean, cela fonctionne ,mais j'essaye de l'adapter a mon tableau,pourrais-tu me donner des explications en français du code
je patine un peu
A+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Novembre 2006

• #8

Re : Recherche de date suivant l'année

bonsoir

voila la version commentée

 

Pièces jointes

• cherchedateannée.xls

  29.5 KB · Affichages: 63
• cherchedateannée.xls

  29.5 KB · Affichages: 62
• cherchedateannée.xls

  29.5 KB · Affichages: 63

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 15 Novembre 2006

• #9

Re : Recherche de date suivant l'année

Bonsoir,
extra et merci,je vais l'adapter,si problème je resonne
A +

 

Vote positif 0 Vote négatif