Sélection colonne et ligne avec nom précisé

Bonjour,

D'ordinaire, j'utilise l'instruction suivante pour aller chercher la valeur d'une cellule et la mettre dans une autre:

Code:

---

Sheets(CStr(xxx)).Cells(yyy, rech.Column).Value = Workbooks(fic).Sheets(feu).Range("A1").Value

---

Cette fois-ci, je cherche à récupérer la valeur d'une cellule, connaissant la colonne (C), mais ne connaissant pas le numéro de ligne, seulement un "nom" situé dans la colonne A (en face de la valeur à récupérer), mais qui peut selon le cas changer de ligne. Mais dans tous les cas, le nom dans la colonne A correspondant à la valeur de la colonne C sera situé sur la même ligne.

Comment feriez-vous ?

Et, de façon plus générale, si je ne connaissais pas la lettre de la colonne concernée non plus, mais seulement des coordonnées "nominatives" pour la cellule, du type "Mesure1" sur une ligne et "janvier" sur une colonne, au lieu de H8, par exemple, quelle est la syntaxe pour aller récupérer la valeur ?

Merci d'avance.

Bonjour m@tix, Bonjour le Forum,

J'avoue me perdre un peu dans tous ces détails.

Un extrait de ton classeur illustré par des flèches et 2 ou 3 lignes de commentaires du type "Je connais ceci (ou le nom de ceci)", et Je recherche cela" en précisant les noms de cellules éventuels, serait le bienvenu.

A plus donc.

Ok, j'admets que ce n'est pas des plus clairs.. Voici ci-joint un fichier exemple basique, avec un commentaire. Si ce n'est toujours pas clair, n'hésitez pas à m'en faire part !

Essaye quelque chose comme ca :

Code:

---

1 2 3 4 5 6 7 8 9

Lig = Sheets(1).Range("A65536").End(xlUp).Row Col = Sheets(1).Range("IV1").End(xlToLeft).Column   Set cell_trouve = Sheets(1).Range(Cells(1, 1), Cells(Lig, Col)).Find("Texte Rechercher")   If Not cell_trouve Is Nothing Then Lig_Cell_trouve = cell_trouve.Row Col_Cell_trouve = cell_trouve.Column End If

---

Salut m@tix,

C'est un peu plus clair.

Une précision supplémentaire.

Comment savoir le nom du classeur à ouvrir qui renverrait la valeur souhaitée (ici 45) ?

Citation:

---

Envoyé par MarcelG

Comment savoir le nom du classeur à ouvrir qui renverrait la valeur souhaitée (ici 45) ?

---

Ceci n'est pas important, en effet, si j'utilise une instruction de ce type:

Code:

---

Sheets(CStr(xxx)).Cells(yyy, rech.Column).Value = Workbooks(fic).Sheets(feu).Range("A1").Value

---

Le classeur est déjà sélectionné auparavant car j'ai pris le soin d'ouvrir le fichier en question.

Merci Delphine35, mais je crois qu'il va manquer une instruction pour aller placer la valeur trouvée dans la cellule que je veux, à l'image de celle que j'ai citée dans mon premier message.. non ?

Cela pourra ressembler a quelque chose comme ca :

Code:

---

1 2 3 4 5 6

If Not cell_trouve Is Nothing Then Lig_Cell_trouve = cell_trouve.Row Col_Cell_trouve = cell_trouve.Column Sheets(1).Cells(lig_cell_trouve, col_cell_trouve + 2).Value = Workbooks(fic).Sheets(feu).Range("A1").Value End If

---

Tous dépend de où tu veux mettre la valeur. :cfou:

Ici, si je trouve le texte "Texte Rechercher" en cellule C8, il va changer la valeur de la cellule E8 (colonne +2)

Dans mon cas, je souhaiterais mettre la valeur dans

Code:

---

Sheets(CStr(xxx)).Cells(yyy, rech.Column)

---

Sinon, dit encore plus simplement, par rapport à mon fichier exemple: je voudrais récupérer la valeur de la mesure2, sachant uniquement que mesure2 se situe dans la colonne A, et que valeur correspond à la colonne E.

Mieux ? :roll:

... du coup je ne suis pas sûr que le code que tu me proposes corresponde à mon attente si ?

Le "A1" devrait en fait correspondre à la cellule où la valeur recherchée se trouve..

Si j'ai bien compris (je ne peux pas ouvrir le doc joint, pas le droit :cry:)

Code:

---

1 2 3 4 5 6 7 8 9 10

Lig = Sheets(1).Range("A65536").End(xlUp).Row   ' tu cherche le "Texte Rechercher" dans la colonne A de ta feuille 1 Set cell_trouve = Sheets(1).Range(Cells(1, 1), Cells(Lig,1)).Find("Texte Rechercher")   ' Si tu trouves If Not cell_trouve Is Nothing Then ' La cellule yyyy,rech.column = contenu de la cellule situé sur la meme ligne que la cellule "texte Rechercher" et en colonne E (5) Sheets(CStr(xxx)).Cells(yyy, rech.Column).Value = Sheets(1).Cells(lig_cell_trouve, 5).Value End If

---

Salut m@atix, Salut Delphine,

Pour renvoyer une valeur, mieux vaut utiliser une fonction.

A adapter (nom du classeur où se trouvent les données en amont, références...)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Sub essai() Debug.Print marecherche(Range("E4")) End Sub   Public Function marecherche(maréf As Range) With ThisWorkbook.Sheets("Résultats") nom_col = .Cells(2, maréf.Column).Value nom_lign = .Cells(maréf.Row, 1).Value End With With Workbooks("recherche_m@tix_amont.xls").Sheets("Base") macol = .Range("B2:F2").Find(nom_col, LookIn:=xlValues).Column malign = .Range("A3:A20").Find(nom_lign, LookIn:=xlValues).Row marecherche = .Cells(malign, macol).Value End With End Function

---

Merci à tous les deux ! ;)

J'ai voulu commencer par tester ton code Delphine, mais après exécution, je tombe sur une erreur "définie par l'application ou par l'objet" pour la ligne (j'ai changé un peu vu que je considère la colonne B en fait):

Code:

---

Set cell_trouve = Workbooks(fic).Sheets(feu).Range(Cells(1, 2), Cells(Lig, 2)).Find("mon_texte")

---

Une idée d'où cela peut venir ? 8O

met plutot :

Code:

---

1 2 3 4 5 6 7

Set F1 = Workbooks(fic).Sheets(feu)   ....   Set cell_trouve = F1.Range(F1.Cells(1, 2), F1.Cells(Lig, 2)).Find("mon_texte")

---

Même erreur, mais à présent sur cette ligne...

Code:

---

Sheets(CStr(xxx)).Cells(yyy, rech.Column).Value = Workbooks(fic).Sheets(feu).Cells(lig_cell_trouve, 5).Value

---

:cry:

Apparemment l'erreur vient de lig_cell_trouve qui prend comme valeur "vide" ..

tu as bien mis :

Code:

---

Lig_Cell_trouve = cell_trouve.Row

---

Post le code de ta fonction si tu veux que je regarde !

Euh... A quel endroit ?

Mon code est un peu lourd... :aie: