Création fonction ( pour sélectionner une cellule bien précise)

Fermé
sikasika Messages postés 71 Date d'inscription vendredi 14 décembre 2012 Statut Membre Dernière intervention 10 juillet 2014 - 21 oct. 2013 à 19:14
sikasika Messages postés 71 Date d'inscription vendredi 14 décembre 2012 Statut Membre Dernière intervention 10 juillet 2014 - 22 oct. 2013 à 17:27
Bonjour,

J'ai besoin d'aide :D
En fait ce que je cherche à faire est de créer une macro qui me permettra de sélectionner ,sur un tableau de deux colonnes et plusieurs lignes, une cellule spécifique.

En fait mon input de la fonction sera un âge X et j'aimerai que la fonction me cherche l'âge X (sur la première colonne) et qu'elle me sélectionne la valeur correspondante à cet âge X sur la deuxième colonne.

Merci d'avance, j 'espère que quelqu'un m'aidra , ( c'est vraiment urgent)
A voir également:

4 réponses

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 411
Modifié par Vaucluse le 21/10/2013 à 19:20
Bonjour
et vous voulez une macro pour ça?
et pourquoi pas la formule
=RECHERCHEV("X",A:B;2;0)
crdlmnt


Errare humanum est, perseverare diabolicum
0
sikasika Messages postés 71 Date d'inscription vendredi 14 décembre 2012 Statut Membre Dernière intervention 10 juillet 2014 3
22 oct. 2013 à 10:06
En fait ça ne sera qu'une partie de mon code, je dois l'utiliser par la suite au niveau de la fonction que j'aimerai créer
0
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
22 oct. 2013 à 10:21
Bonjour à tous les deux,
Sikasika, voici une fonction prenant en input l'âge cherché, et la plage où la chercher. La fonction retourne la valeur de la cellule se trouvant à droite de la cellule contenant l'âge cherché.

Libre à toi d'ajouter des contrôles, si âge non trouvé dans la plage par exemple ;-)

Function trouve_valeur(valeur_cherchée As Integer, Plage As Range)
Dim cellule As Range
Set cellule = Plage.Find(valeur_cherchée)
trouve_valeur = Cells(cellule.Row, cellule.Column + 1)
End Function

Et un exemple dans ce classeur.
A+ !
0
sikasika Messages postés 71 Date d'inscription vendredi 14 décembre 2012 Statut Membre Dernière intervention 10 juillet 2014 3
22 oct. 2013 à 17:27
merci pour la réponse , je vais essayer de l'appliquer et voir ce qui ce passera :D merci beaucoup
0