Bonjour a tous, le forum!
Alors voila:
J ai deux feuilles (sheet 1 et sheet 2), dans l une j ai une liste de nom avec une date associee a ces noms.
Dans l autre feuille j aimerais qu lorsque je tape un nom qui est dans la liste de l autre feuille, une macro m amene automatiquement la date correspondante.
Je sais, vous allez me dire qu il suffit de faire un fonction recherche, mais le probleme c est que mon fichier complet est assez complex et que j ai deja des formules dans pratiquement toute les cases.
Et pour une question de securite, il serait mieu d avoir une macro et un bouton pour l appliquer.
En fichier joint un petit exemple pour illustrer tout ca.
Et voila la macro que j ai essaye de faire, mais qui ne fonctionne pas. Je pense que le pb vient du "lookup", mais je ne sais pas quoi mettre a la place.
Sub come_back()
Dim der_lig%
der_lig = Sheets("Sheet 2").Range("B65536").End(xlUp).Row + 1
If Sheets("Sheet 1").Range("A2").Value = Sheets("sheet 2").Range("A" & der_lig).Value Then
Sheets("Sheet 1").Range("A2").Value = Lookup(Sheets("Sheet 1").Range("A2").Value, Sheets("Sheet 2").Range("A" & der_lig).Value, Sheets("Sheet 2").Range("C" & der_lig))
End If
End Sub
J espere que j ai ete claire..
J attend avec bcp d impatience vos reponses, et MERCI
Alors voila:
J ai deux feuilles (sheet 1 et sheet 2), dans l une j ai une liste de nom avec une date associee a ces noms.
Dans l autre feuille j aimerais qu lorsque je tape un nom qui est dans la liste de l autre feuille, une macro m amene automatiquement la date correspondante.
Je sais, vous allez me dire qu il suffit de faire un fonction recherche, mais le probleme c est que mon fichier complet est assez complex et que j ai deja des formules dans pratiquement toute les cases.
Et pour une question de securite, il serait mieu d avoir une macro et un bouton pour l appliquer.
En fichier joint un petit exemple pour illustrer tout ca.
Et voila la macro que j ai essaye de faire, mais qui ne fonctionne pas. Je pense que le pb vient du "lookup", mais je ne sais pas quoi mettre a la place.
Sub come_back()
Dim der_lig%
der_lig = Sheets("Sheet 2").Range("B65536").End(xlUp).Row + 1
If Sheets("Sheet 1").Range("A2").Value = Sheets("sheet 2").Range("A" & der_lig).Value Then
Sheets("Sheet 1").Range("A2").Value = Lookup(Sheets("Sheet 1").Range("A2").Value, Sheets("Sheet 2").Range("A" & der_lig).Value, Sheets("Sheet 2").Range("C" & der_lig))
End If
End Sub
J espere que j ai ete claire..
J attend avec bcp d impatience vos reponses, et MERCI