Afficher les coordonnées d'une cellule à partir de son contenu (Excel)Résolu

Question

Bonjour ! Je repose ma question de ce matin parce que je crois que personne n'y a pr&#234;t&#233; attention.
Je d&#233;bute en VB. Je travaille actuellement sur un petit programme pour faciliter mes recherches.
Je vous explique mon probl&#232;me : J'affiche une Inputbox dans laquelle je rentre le contenu d'une cellule de mon tableur, et j'aimerais afficher les coordonn&#233;es de la cellule en question dans un Msgbox.
La premi&#232;re ligne de mon programme est : code = InputBox("Code Etablissement ?"). Comment afficher les coordonn&#233;es de la cellule qui contient le Code Etablissement que je saisis ?

Merci de l'attention que vous porterez &#224; mon message.

valtrase · Accepted Answer

Oui, 
Ou si tu veux &#233;viter les select qui prennent de la ressource .....
Dim xlSearch
With ActiveSheet.UsedRange
Set xlSearch = .Find(InputBox("Texte rechercher", "Recherche"))
If Not xlSearch Is Nothing Then
    MsgBox xlSearch.Address
Else
    MsgBox "Coordonn&#233;es non trouv&#233;"
End If
End With

Aide Excel:
Attention pour la m&#233;thode Find Les param&#232;tres des arguments LookIn, LookAt, SearchOrder et MatchByte sont enregistr&#233;s chaque fois que vous utilisez cette m&#233;thode.Si vous ne sp&#233;cifiez aucun param&#232;tre pour ces arguments lors du prochain appel de la m&#233;thode, les param&#232;tres enregistr&#233;s sont utilis&#233;s. 
Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_pasfou · Answer

Bonsoir,

Tu balayes les cellules susceptibles de contenir le code recherche et une fois trouv&#233;, lire l'adresse de la cellule, par exemple si les codes sont en colonne A :

Dim Code as String
Range("A1").select
Code = InputBox("Code Etablissement ?")
Do While Trim(ActiveCell.Value) <> Trim(Code)
   ActiveCell.Offset(1).Select
Loop

Msgbox Activecell.Address

Pascal
Formateur et d&#233;veloppeur VB-Delphi et SQL Server

cs_pasfou · Answer

voil&#224; un d&#233;butant qui a de quoi travailler !

cordialement,
Pascal
Formateur et d&#233;veloppeur VB-Delphi et SQL Server

lenemmasque · Answer

Merci pour vos r&#233;ponses ! Les deux fonctionnent !!!

cs_pasfou · Answer

On en doutait pas !! ;)

Pascal
Formateur et d&#233;veloppeur VB-Delphi et SQL Server

Afficher les coordonnées d'une cellule à partir de son contenu (Excel)

5 réponses

Discussions similaires