recherche en VBA

[ThuYeinLin]

Bonjour à tous,

J'ai fait de multiples recherches sur le forum mais je n'arrive pas à m'en sortir.
Je vous explique :

J'ai dans un premier onglet des dates.
Dans un deuxième onglet j'ai également ces dates avec des cours que je voudrais récupérer.

Je voudrais qu'une macro me renvoi ce cours en fonction de la date. Je vous joint un fichier exemple.

Merci d'avance

 

[Cousinhub]

Re : recherche en VBA

Bonjour,

essaie ce code :

Sub Tx_Change()
Dim Cel As Range
For Each Cel In Range("E5:E" & [E65000].End(xlUp).Row)
    With Sheets("Feuil2")
        Set c = .Cells.Find(Cel.Value)
        If Not c Is Nothing Then _
            Cel.Offset(, -1) = c.Offset(3).Value
    End With
Next Cel
End Sub

 

[Guest]

Re : recherche en VBA

Bonsoir,

Pourtant assez VBISTE, je me dis pourquoi ne pas laisser excel faire ce qu'il sait si bien faire par fonction.

A voir.

A+++

[Edit] Hello Bh², j'avions point vu ta réponse!!!!!!

 

[Cousinhub]

Re : recherche en VBA

Re-,

coucou, Hasco 🙂🙂

Ben, justement, ce ne sera pas forcément sur la ligne 4 (regarde le commentaire en L7 de la feuille 2...)

Bonne soirée

 

[ThuYeinLin]

Re : recherche en VBA

Re,

Merci beaucoup ça marche parfaitement les deux solutions.
Vu que j'apprends en même temps bhbh peux tu me rajouter les commentaires sur ton code vba stp ?
Ca marche à la perfection en tout cas merci beaucoup.

Thu Yein Lin

 

[Guest]

Re : recherche en VBA

Hello Bh²,


Ben oui, du haut du phare de .... on voit mieux, c'est sûr😉
Vive les grands écrans ! A bas les flemmards qui ne regardent pas tout😀

A+++ L'ami

 

[Cousinhub]

Re : recherche en VBA

Re-,

@ ThuYeinLin

le code commenté :

Sub Tx_Change()
Dim Cel As Range 'déclaration de la variable Cel (Range)
For Each Cel In Range("E5:E" & [E65000].End(xlUp).Row)
        'pour toutes les cellules de E5 à la dernière cellule de la
        'colonne E
    With Sheets("Feuil2") 'on recherche sur la feuille 2
        Set c = .Cells.Find(Cel.Value)
            'on cherche la date de la cellule
        If Not c Is Nothing Then _
            Cel.Offset(, -1) = c.Offset(3).Value
            'si on a trouvé, la cellule à gauche de la cellule cherchée
            'prend la valeur de la cellule trouvée, décalée de 3
            'lignes vers le bas
    End With
Next Cel 'suivante
End Sub

@ Hasco

Je t'avais dit de changer ton écran 5 pouces.... 😀

 

[ThuYeinLin]

Re : recherche en VBA

merci beaucoup 🙂

 

[FRANCK4400]

Re : recherche en VBA

Bonjour a tous merci de me rediriger

tres novice sur excel j ai realiser un outil tous en recherche v et maintenant je souhaiterais ameliorer l interface graphique la rendre plus esthetique
je pense que visual basic devrait pouvoir m aider ou acces mais la je n y connait rien

est ce que que quelqu un peux m aider
cet outil est professionel et je ne peux le rendre accessible a tous a cause des donnes qu il contient
merci
franck