Mélange de Application.VLookup et Cells.Find

Résolu/Fermé
tiboys - 24 mars 2016 à 09:59
 tiboys - 25 mars 2016 à 09:12
Bonjour à toutes et à tous,

je débute en programmation et je galère à mélanger 2 macos, je m'explique :
je voudrais qu'une macro cherche une valeur dans un tableau suivant 2 valeurs et me mette les coordonnées de la cellule en variable.

Ou plus simple, trouver une valeur dans une colonne et me donner les coordonnées de la cellule 5 colonne à droite sur la même ligne ..

un mélange de Application.VLookup et Cells.Find mais je n'arrive pas à l'écrire ou la trouver :-/

Auriez-vous une idée ?

Merci d'avance

Tiboys



2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 24/03/2016 à 11:23
Bonjour

si "toto"cherché dans colonne A par exemple
xxx = Columns("A").Find("toto", Range("A" & Cells.Rows.Count)).Offset(0, 5)

 Michel
0
Merci Michel, il me mets une erreur d'éxecution 91 ..:-/
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 mars 2016 à 14:00
j'ai donc refait ma maquette qui fonctionnait....

http://www.cjoint.com/c/FCym73nlJlt
0
ta maquette fonctionne très bien mais il me retourne le contenu de la cellule. En fait je recherche les coordonnées de la cellule .. c'est possible ?

Désolé d'insister ..
0
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
24 mars 2016 à 15:25
Bonjour

En attendant que Michel (salut à toi) revienne de sa pause café ;-)
MsgBox Columns("A").Find("toto", Range("A" & Cells.Rows.Count)).Offset(0, 5).Address
devrait aller

Cdlmnt
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 mars 2016 à 15:28
Salut CCM81
j'arrivai à la bourre :o)
merci pour le coup de main
0
Ca fonctionne magnifiquement bien, vous êtes des pros .. merci beaucoup ! *-*
0