Quel fonction choisir?

Bonjour,

Je vais essayer de fair simple!
Je suis éleveur ovin, et possede 350 brebis. Je souhaiterai faire une fiche par brebis et pouvoir la trouver facilement.
Pour cette raison, je voudrai, quand je marque le numéro d'une brebis dans une cellule que ca me renvoi directement sur sa fiche. avez vous compris?
Je vous laisse le soin de me faire des proposition pour résoudre mon problème!!!
(Je posséde excel 2003)
Merci

Bonjour Tooney et bienvenue à toi.

Une petite question : lorsque tu tape le numéro de la brebis, tu veux aller sur la feuille la concernant ou bien récupérer des données de cette feuille ?

edit : question subsidiaire : une fiche = une feuille ?

Merci pour ta rapidité!

Quand je marque son numéro je souhaite allé sur sa fiche. Je ne pense pas faire une feuille par fiche car ca en ferai beaucoup trop. Je souhaite donc en faire plusieur par feuille voir toutes sur une feuille. Merci

Dommage ça aurait été plus simple pour nous deux qu'il y ait une feuille par brebis.

Voilà ce que je propose :

D'abord on va nommer la cellule dans laquelle tu tape le numéro de brebis : clique dessus puis regarde au dessus de la colonne A il y a son adresse. Clique sur cette adresse et tape NumBrebis

Ensuite on va faire pareil avec chaque fiche. Sélectionne soit entièrement la première fiche soit une cellule de celle-ci sur laquelle tu souhaite arriver. Tu clique au dessus de la colonne A et tu tape Brebis1

Idem avec la seconde fiche : Brebis2 etc pour toute les fiches.

J'espère que tu créé tes fiches une par une sinon ça risque d'être un peu long mais c'est nécessaire pour savoir où se trouvent les fiches.

Une fois ceci fait, tape Alt+F11 pour ouvrir l'éditeur de macros puis double clique sur le nom de la feuille où tu tape le numéro de la brebis, il se trouve en haut à gauche. Dans la zone de droite, copie ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Range("Testa").Select Then
If IsNumeric(ActiveSheet.Range("Testa").Value) Then
Dim Cible As String
Cible = "Brebis" & ActiveSheet.Range("Testa").Value
ActiveSheet.Range(Cible).Select
End If
End If
End Sub

Si tu préfère une autre méthode, dis le moi mais il faudra ds ce cas que je vois ton fichier et je te donnerai mon adresse e-mail pour que tu puisse me l'envoyer.

Je n'est pas reussi à appliquer ta solution car ca m'indique une erreur. Je te propose, si tu veux, que tu me donne ton mail pour que je t'envoi mon projet afin que tu le voit concretement. Merci quand même

Je viens de te l'envoyer par MP