Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro recherche

  • Initiateur de la discussion Initiateur de la discussion darkfire
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

darkfire

Guest
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
 
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
 

Pièces jointes

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
Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
454
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…