Macro recherche

bonjour,

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

Bonjour

Plus simple

code de feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Call Atteindre
End If
End Sub

Code Module

Sub Atteindre()
Dim i As Byte
Sheets("Données").Select
'Si la date n'existe pas, pas de cellule sélectionnée
On Error Resume Next
i = Application.WorksheetFunction.Match(Sheets("Feuil1").Range("A1"), Range("C:C"), 0)
    Range("C" & i).Select
End Sub

Cordialement

merci beaucoup

ça marche

cependant, est il possible d'indiquer que la date n'existe pas si on tape une date non listée ?

ou colle t on ces deux listes de codes?

JE SUIS NOVICE EN VBA

Bonjour a tous

je relance ce sujet car j'ai essayé d'adapter cette macro sur mon nouveau tableau mais cela ne marche pas

je souhaite rechercher la données saisie en "F1" dans mon tableau qui est sur la même feuille . cette recherche s'effectue sur la colonne A

quand la donneés est trouvée il faudrait sélectionner la ligne correspondante et si la données n'existe pas, mettre une texte box undiquant "ce matricule n'existe pas"

merci

Bonjour

Voir fichier

Cordialement

Merci beaucoup je vais regarder si ça marche