Bonjour,
Je suis en train de faire une macro qui en double cliquant sur une cellule de la Feuille 1, me donne, selon le nom, une Msg Box avec l'en-tête des tableaux de la Feuille 2 contenant la valeur de la cellule qui lance la macro.
J'ai presque tout qui fonctionne mais je n'arrive pas à reprendre le la valeur de l'en-tête des tableaux de la Feuille 2 dans le msg box. Comme tout ça n'est pas clair du tout, voici un fichier d'exemple joint et le code vba associé.
Merci de votre aide.
Je suis en train de faire une macro qui en double cliquant sur une cellule de la Feuille 1, me donne, selon le nom, une Msg Box avec l'en-tête des tableaux de la Feuille 2 contenant la valeur de la cellule qui lance la macro.
J'ai presque tout qui fonctionne mais je n'arrive pas à reprendre le la valeur de l'en-tête des tableaux de la Feuille 2 dans le msg box. Comme tout ça n'est pas clair du tout, voici un fichier d'exemple joint et le code vba associé.
Code:
Public Sub dispo()
Dim cel As Range 'déclare la variable cel
Dim msg As String 'déclare la variable msg
For Each cel In Feuil2.Range("B1:L70")
If cel.Value <> ActiveCell Then Else
If cel.Value = ActiveCell Then
msg = msg & Feuil2.Cells(ActiveCell.ListObject.Range.Row, ActiveCell.Column).Value
End If 'fin condition
Next cel 'prochaine cellule de la boucle
MsgBox msg, , "Real" 'affiche le message
End Sub
Merci de votre aide.