Discussion :

[m@tix]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[MarcelG]

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.

[m@tix]

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 !

[delphine35]

Essaye quelque chose comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

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) ?

[m@tix]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[delphine35]

Cela pourra ressembler a quelque chose comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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