Avoir un MsBox qui dépend de la cellule sélectionnée

salam à tous,

Je suis nouveau dans le forum bien que j'y ai déjà copié beaucoup de programmes.

je travaille sur un petit programme sur VBA en entreprise et je suis coincé quelque part (je suis débutant).

En effet, je voudrais avoir un MsgBox qui dépend de la cellule que j'ai sélectionné.

si par exemple, je sélectionne la cellule E10 ayant pour valeur niveleuse, et que je clique sur mon bouton recherche, je dois obtenir le message suivant: "choisissez le numéro de série et le modèle correspondant aux niveleuses".

si je sélectionne la cellule E11 ayant pour valeur compacteur et je clique sur mon bouton recherche, j'obtiens le message suivant:"choisissez le numéro de série et le modèle correspondant aux compacteurs"

j'ai essayé d'écrire un programme mais ca ne marche pas normalement

vous avez le fichier en pièces jointes pour plus d'éclaircissement.

Merci d'avance

Bonjour et bienvenue sur le forum

Remplace ton code par celui-ci :

Sub Message()
'If Workbooks("excel").Sheets("rechercher").Range("E8").Select Then
    'MsgBox ("choisissez le numéro de série et le modèle correspondant aux pelles hydrauliques")
'If Workbooks("excel").Sheets("rechercher").Range("E9").Select Then
    'MsgBox ("choisissez le numéro de série et le modèle correspondant aux chargeuses")
'End If
'If Workbooks("excel").Sheets("rechercher").Range("E10").Select Then
    'MsgBox ("choisissez le numéro de série et le modèle correspondant aux niveleuses")
'End If
'If Workbooks("excel").Sheets("rechercher").Range("E11").Select Then
    'MsgBox ("choisissez le numéro de série et le modèle correspondant aux compacteurs")
'End If

    If ActiveCell.Address = "$E$8" Then
        MsgBox "Choisissez le numéro de série et le modèle correspondant aux pelles hydrauliques."
        End
    ElseIf ActiveCell.Address = "$E$9" Then
        MsgBox ("Choisissez le numéro de série et le modèle correspondant aux chargeuses.")
        End
    ElseIf ActiveCell.Address = "$E$10" Then
        MsgBox ("Choisissez le numéro de série et le modèle correspondant aux niveleuses.")
        End
    ElseIf ActiveCell.Address = "$E$11" Then
        MsgBox ("Choisissez le numéro de série et le modèle correspondant aux compacteurs.")
        End
    End If

End Sub

Bye !

Merci beaucoup gmb

j'ai essayé et ca marche très bien. c'est vraiment gentil de ta part.

En effet, cette instruction que tu m'as donnée me permettra de faire l’essentiel de mon programme en entreprise. j'avais vraiment besoin de cette instruction.

bonne journée.