retrouver la valeur d'une cellule dans un tableau

désolé voila le fichier

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

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

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

Cliquez pour agrandir...

A+ 😉