Afficher plurieures cellules

Bonjour,

je dois réaliser un programme Vba qui permet grace un numero ou le nom de la machine, afficher l'année de construction et le fabricant. merci à l'avance de votre aide

Sub trouvernum()
    x = InputBox("Numéro de la machine ou nom de la machine")
    With Sheets("Feuil1")
        On Error Resume Next
        lig = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Find(x).Row
        lig2 = .Range("B2:B" & .Range("A" & .Rows.Count).End(xlUp).Row).Find(x).Row
        If lig <> "" Then
            annee = .Range("E" & lig)
            fabric = .Range("C" & lig)
        End If

        If lig2 <> "" Then
            annee = .Range("E" & lig2)
            fabric = .Range("C" & lig2)
        End If
    End With
    MsgBox ("Fabriquant : " & fabric & " , Année de construction : " & annee)
End Sub

Bonjour,

Malheureusement ... ta demande n'est pas trés claire ...

Peux-tu donner un exemple concret ...???

merci pour ta réponse rapide

par exemple l'utilisateur doit cliquer sur le bouton pour rentrer le nom de la machine ou son numero, puis une fenetre doit s'afficher avec l'année et le fabricant correspondant au numéro ou nom de la machine rentrer au départ.

Re,

Personnellement, je n'avais pas compris ...

Mais entre-temps, EngueEngue t'a écrit une macro parfaite ... pourquoi ne pas l'utiliser ...???

parce qu'il n'affiche juste la valeur d'une seule cellule (par exemple cells(1.2) et moi j'aimerai qu'il affiche aussi en même temps la valeur des autres cellules de la même lignes : cells(1.2), cells(1.3), cells(1.4) etc.

ah bon?

Quand on demande du lapin au restaurant il ne faut pas tirer une grimace quand on nous ramène du lapin.

Donc ce n'est pas possible!

comment faire alors lier 2 colonnes d'une feuille?

Je pense que tu peux le faire avec un tracteur.

Alors là ... comme par enchantement ... nous venons de quitter la galaxie ...