Impression d'une feuille Excel avec 2 cases indexées suivant une liste

Bonjour à tous,

Pour une maison de repos, je cherche à pouvoir imprimer les menus hebdomadaires de façon automatique avec le nom et le numéro de chambre de chaque résident.

Exemple fichier joint:

Donc

• j'encode le menu sur Feuil1
• sur la Feuil2, dans la case B1 je voudrais lors de l'impression faire afficher le numéro de chambre reprise sur la Feuil3
• sur la Feuil2, dans la case C1 je voudrais toujours lors de l'impression faire afficher le nom du résident en fonction de sa chambre de la liste sur la Feuil3.

J'espère avoir été clair!

Merci d'avance pour votre aide

Bonjour,

un essai macro:

Sub ImprimMenu()

Dim i As Integer, T, W2 As Worksheet, W3 As Worksheet

Set W2 = Worksheets("feuil2")
Set W3 = Worksheets("Feuil3")
T = W3.Range("A2:B" & W3.Range("A" & Rows.Count).End(xlUp).Row)

For i = LBound(T, 1) To UBound(T, 1)
    If T(i, 2) <> 0 Then
        W2.Range("B1") = T(i, 1)
        W2.Range("C1") = T(i, 2)
        W2.PageSetup.PrintArea = "A1:I30"
        W2.Range("A1:I30").PrintPreview 'pour prévisualiser
    End If
Next

W2.Range("B1:C1").ClearContents
End Sub

remplacer la ligne W2.Range("A1:I30").PrintPreview 'pour prévisualiser par W2.Range("A1:I30").PrintOut ' pour imprimer

A+

Merci AlgoPlus, ça fonctionne pas mal dutout.

Par contre comment fait on pour ne pas avoir l'aperçu avant l'impression?

Merci encore

Gerogest

SORRY

je viens de voir le petit mot complémentaire pour l'impression direct!!

merci encore