AIDE pour un affichage des coordonées d'une cellule

Bonjour,

j'ai besoin d'aide pour faire afficher les coordonnées d'une cellule dans un tableau...

je m'explique :

j'ai un tableau de valeur avec pour les colonnes le nombres de barres et pour les lignes, le diametre des barres.

a l'aide d'un calcul preliminaires, j'ai determiné une section d'acier necessaire

j'ai donc appliqué une formule pour qu'a chaque colonne, il me soit indiqué la section superieur disponible par rapport a la section calculée.

j'ai appliqué des mises en forme conditionelle afin de colorer dans le tableau, toutes les valeurs de sections que je peux choisir.

j'ai appliqué une formule minimum pour obtenir la section minimum applicable parmi toute les valeur colorer precedemment

ce que je voudrais, ce serai de m'afficher pour la valeur minimum, ces coordonnée dans le tableau, soit ecrire dans une ou plusieurs cases, le Nb de barres et le diametre des barres que je devrait utilisé ^^

j'espere avoir donné toutes les infos necessaire a la conprehension

merci d'avance

Bonjour et bienvenue sur le forum

Un essai à tester, si j'ai bien compris.

Te convient-il ?

Bye !

Merci mais j'ai déjà le tableau ...

le probleme et que je veut afficher les cases correspondantes en lignes et colonnes a une valeur du tableau

EX: si on prend la case verte 4.52, je voudrais pouvoir afficher les cases (coordonnées) a savoir 4 en colonnes et 12 en ligne

j'espere etre plus claire

j'ai déjà posté ce probleme sur plusieurs forum et a ce jour tjrs pas de reponses ...

Bonjour,

je ne serai d'aucune aide mais sans UN VRAI FICHIER EXCEL, c'est forcément approximatif au niveau des réponses ...

P.

Bonjour,

Teste cette procédure et dis-nous si cela correspond au résultat attendu

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, j As Integer
Dim Ecart As Double
Dim CelMin As Range
    Ecart = 10000
    If Target.Address = "$H$15" Then
        Range("D21:R33").Interior.Color = xlNone
        For j = 4 To 18
            For i = 21 To 31
                If Cells(i, j).Value >= Target * 10000 Then
                    If Cells(i, j).Value - Target * 10000 < Ecart Then
                        Ecart = Cells(i, j).Value - Target * 10000
                        Set CelMin = Cells(i, j)
                    End If
                End If
            Next i
        Next j
        CelMin.Interior.ColorIndex = 4
        MsgBox "Nb de barres : " & Cells(20, CelMin.Column) & Chr(10) & _
        "Diametre des barres : " & Cells(CelMin.Row, 1) & Chr(10) & _
        "Valeur Minimum : " & Format(CelMin.Value, "0.000")
    End If
End Sub

A+