retrouver la valeur d'une cellule dans un tableau

[ALEX]

Bonjour,
voila j'ai un tableau comme le présente la feuille data du fichier joint

Je voudrais en entrant par exemple la valeur R2D2 dans la textbox récupérer la valeur de la cellule correspondant a R2D & 2 (le premier)


Merci d'avance

 

[ALEX]

désolé voila le fichier

 

[ALEX]

[file name=Classeur2_20060228155559.zip size=11248]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060228155559.zip[/file]

 

[jp14]

Bonsoir

Voici une macro qui doit répondre au problème
Private Sub CommandButton1_Click()
Dim i As Long, ligne As Long, colonne As String

Dim m As String
m = TextBox1.Value
m1 = Mid(m, 1, 3)
m2 = Val(Mid(m, 4, 1))

For i = 1 To 45
'je cherche la valeur de la ligne désirer
If Sheets('Data').Range('A' & i).Value = m1 Then
ligne = i
Exit For
End If
Next
' si colonne B = colonne 1
colonne = Chr$(m2 + 65)




MsgBox (deb)
MsgBox (fi) '



End Sub

 

[Charly2]

Bonsoir ALEX et jp14

Une autre possibilité avec une variable objet grace à laquelle tu trouveras facilement le contenu ; dans l'exemple, il n'y a pas de gestion d'erreur (à ajouter)...

Option Explicit

Private Sub CommandButton1_Click()
'
Dim Cell As Range
'
' Attention : Pas de gestion d'erreur !!!
  Application.ScreenUpdating = False
  Sheets('Data').Select
  With ActiveSheet.Range('A:A')
    Set Cell = Cells(.Find(what:=Left(TextBox1, 3), LookIn:=xlValues, _           lookat:=xlWhole).Row, (Right(TextBox1, 1) - 1) * 3 + 1)
  End With
  Sheets('Feuil1').Select
  MsgBox 'Adresse de la cellule : ' & Cell.Address(0, 0) & _
         ', contenu = ' & IIf(IsEmpty(Cell), 'VIDE', Cell)
End Sub

A+