macro recherche

[darkfire]

Bonjour,

Depuis plusieurs jours je fais des recherches pour trouver comment faire cette macro sans rien trouver (ou sans rien comprendre car je n'y connais pas grand chose).
Voila:

Dans toute la colonne C de ma feuille excel, je souhaite rechercher par exemple une date et aller directement sur la première cellule ou la date saisie apparait . L'objectif final étant d'avoir une cellule sur une autre feuille ou la date recherchée sera saisie (par exemple en A1 de la feuille 1) qui m'ammène directement sur la cellule recherchée en validant la date saisie,
Merci d'avance de votre aide.
Je viens de trouver cette macro sur un forum,


Public Sub aller_mot(mot_a_trouver As String)
Application.ScreenUpdating = False ' pour aller plus vite
Set ma_feuille = ThisWorkbook.Sheets("Feuil1" )
col_no = 1 ' pour la colonne A (A = 1)
lg_no = 1 ' à partir de la première ligne
flag_trouve = False
Do While Not IsEmpty(ma_feuille.Cells(lg_no, col_no))
If (ma_feuille.Cells(lg_no, col_no).Value = mot_a_trouver) Then
ma_feuille.Cells(lg_no, col_no).Select
flag_trouve = True
Exit Do
End If
lg_no = lg_no + 1
Loop
If (flag_trouve = False) Then
MsgBox ("Mot " & mot_a_trouver & " non trouvé !" )
End If
Application.ScreenUpdating = True ' Remet le comportement initial
End Sub

cependant, je ne comprends pas comment faire pour la mettre en place, je suis novice en VBA
aucun avatar darkfire71 Nouveau venu
Nouveau venu Messages: 4Inscription: 23 Oct 2011, 22:30Version Excel: 2010FR

 

[phlaurent55]

Re : macro recherche

Bonjour darkfire,

L'objectif final étant d'avoir une cellule sur une autre feuille ou la date recherchée sera saisie (par exemple en A1 de la feuille 1) qui m'ammène directement sur la cellule recherchée en validant la date saisie,

voir fichier joint

à+
Philippe

 

[darkfire]

Re : macro recherche

merci beaucoup

mais comment faire pour que ma cellule de recherche ne soit pas forcément an A1 ?

 

[phlaurent55]

Re : macro recherche

Re,

merci beaucoup

mais comment faire pour que ma cellule de recherche ne soit pas forcément an A1 ?

dans l'exemple joint, je ne teste pas la position de la cellule qui reçoit la date à chercher
ça marche pour toute saisie de date dans n'importe quelle cellule

à+
Philippe

 

[darkfire]

Re : macro recherche

Merci beaucoup

comment spécifié cela à une seule cellule ?

 

[phlaurent55]

Re : macro recherche

Re,

voir ajout de la seconde ligne (If Not Intertsect..............)
et de l'avant-dernière ligne (End If)

le code se déclenchera uniquement à partir d'un changement dans la cellule D5

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D5")) Is Nothing Then
Dim cellule As Range
For Each cellule In Sheets(1).Range("A1:A365")
If cellule = Target Then
Sheets(1).Select
Sheets(1).Cells(cellule.Row, cellule.Column).Select
Exit Sub
End If
Next cellule
MsgBox ("La date recherchée est inexistante")
End If
End Sub

à+
Philippe