Probleme tableau

Le 08/05/2015 à 09:57

Bonjour à tous,

J'ai créé un bouton permettant de de trouver une cellule dans un tableau selon certaines conditions. Cette cellule s'affiche alors en rouge. J'aimerais maintenant pouvoir prendre les valeurs de b et h corespondant à cette cellule. Je vous joint le fichier excel pour plus de facilité.

Merci d'avance

7info-exercice-2-1.xlsm (35.43 Ko)

Le 08/05/2015 à 10:17

Quelqu'un?

Merci

Le 08/05/2015 à 10:40

Private Sub CommandButton1_Click()

    Dim Imin As Long
    Dim smin As Long

    smin = 1000000000#
    lmin = Cells(9, 13).Value   ' <-  ligne 9 colonne 13

    For i = 5 To 13
        For j = 18 To 26
            If (lmin < Cells(i, j)) Then
                If Cells(i, j) < smin Then smin = Cells(i, j): mini = i: minj = j
            End If
        Next j
    Next i
    Cells(mini, minj).Font.Color = RGB(255, 0, 0)
    Range("V41") = smin
    Range("V42") = Cells(mini, "Q")
    Range("V43") = Cells(4, minj)
End Sub

Le 08/05/2015 à 10:46

Oui j'ai trouvé par moi-même du coup mais encore merci à toi h2so4!