Tableau de pascal

Bonjour à tous,

J'ai réalisé une macro qui affiche un table de pascal en fonction du nombre qu'on tape au clavier.

Tout est bon mais sauf que ça n'affiche pas le titre "Tableau de Pascal" quand je lance la macro. Est-ce qu'il y'a moyen de m'aider sur le sujet.

Et aussi J'aimerai que dans le tableau de pascal tout les nombres impaires soit afficher en noir et les paires en blancs.

Bien à vous !

Voici le excel :

Bonjour,

Un essai ...

Mais pourquoi effacer les lignes de 1 à 7, puisque tu ne fais écrire qu'à partir de la ligne 8 ?

Je suggère de commencer à effacer à partir de "A8".

J'ai enlevé les "Select".

Sub Macro()
'
' Macro Macro
'
' Touche de raccourci du clavier: Ctrl+l
'
    Range("A1:CC5000").ClearContents

    Dim x As Integer, y As Integer, z As Integer

    y = InputBox("nombre de ligne?")

    Range("C4").Value = "Tableau de Pascal"

    Cells(8, 3).Value = 1
    Cells(8, 4).Value = 1

    For x = 2 To y
        For z = 1 To x + 1
            Cells(7 + x, 2 + z).Value = Cells(6 + x, 1 + z).Value + Cells(6 + x, 2 + z).Value
        Next z
    Next x
End Sub

ric

Ah c'était tout bête merci.

Bonjour,

ric