Voir la Lettre d'une Colonne avec une Formule

Bonjour,

EXEMPLE:

Dans la ligne ($F9:$XFD9) j'ai plusieurs "?" en H9 ; Y9 ; BX9

Ma DEMANDE:

Dans la cellule B9 je souhaiterai faire apparaitre à l'aide d'une formule "PROBLEME en H ; Y ; BX"

J'espère que vous me trouverez cette formule

Merci par avance de votre aide

ALBAN

pour l'instant j'en suis là ...

=SI(NB.SI($F7:$XFD7;"?")>0;"PROBLEME ";"")

Bonjour,

Un premier exemple à méditer.

Il va falloir être plus précis dans ta demande.

Bonsoir,

Oui, c'est possible...

Cependant, dans le fichier joint, au lieu de mettre la lettre de colonne, j'ai mis la matière où le gars (ou la fille) a des problèmes....

Bonne soirée

Merci mais cela je sais le faire et ce n'est pas ce qu'il me faut ....

En l'occurance j'ai créé ce tableau sur un style de prof spécialement pour vous.

Dans mon "vrai" tableau je n'ai pas de titre de colonne et je ne peux ni ne veux en mettre.

Il me faut absolument cette lettre pour un gain de temps et de place

Mais encore une fois merci quand même

Alban

de mon côté je n'avance pas ... et du votre ?

Bonjour,

Avec cette fonction, tu retrouves la lettre de la colonne d'une cellule :

Dim LetCol As String
Dim Cel As Range
Set Cel = Range("AAA1") 'par exemple
LetCol = Split(Columns(Cel.Column).Address(ColumnAbsolute:=False), ":")(1)

Bonne soirée

Bonjour,

As-tu regardé ma proposition?

Jean-Eric a écrit :

Bonjour,

As-tu regardé ma proposition?

bonsoir, oui et je n'arrive pas à voir ta macro

mais je ne souhaite pas utiliser de macro si j'en ai la possibilité sur ce fichier ...

Bonjour,

Pour visualiser les codes, il faut faire 'ALT+F11'.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, msg As String

    If Not Application.Intersect(Target, Range("D7:J7")) Is Nothing Then

        If Application.CountIf(Range("D7:J7"), "=?") = 0 Then
            [B7] = ""
            Exit Sub
        End If

        On Error GoTo err_handler
        Application.EnableEvents = False
        For i = 4 To 10
            If Cells(7, i) = "?" Then msg = msg & Lettre_Colonne(Cells(7, i)) & ", "
        Next

        msg = Left(msg, Len(msg) - 2)
        [B7] = "Problème en : " & msg
        Application.EnableEvents = True

    End If

    Exit Sub

err_handler:
    Application.EnableEvents = True

End Sub

Public Function Lettre_Colonne(Cellule As Range) As String
Dim Col As Integer
    Col = Cellule.Column
    If Col > 1 Then
        Lettre_Colonne = Left(Cellule.Address(False, False), _
            Int(Log(Col - 1) / Log(26)) + 1)
    Else
        Lettre_Colonne = "A"
    End If
End Function