XL pour MAC affichage multiple en vba

[Delorme]

Bonjour à tous

vous trouverez en fichier joint le choix et l'affichage d'une table de multiplication par bouton avec inputbox
Je souhaiterais pouvoir avec ce bouton ou un autre une fois le choix indique, afficher sur cette feuille plusieurs choix de table par inputbox
exemple : table de deux puis de trois et quatre ect... cote cote
est ce possible?
Merci de m'aider
Michel

 

[sylvanu]

Bonjour Delorme,
Peut être tout simplment avec :

Sub multiplication(N)
Dim i%, C%, L%
    C = ActiveCell.Column   ' On récupère le N° de colonne de la cellule sélectionnée
    L = ActiveCell.Row - 1  ' On récupère le N° de ligne de la cellule sélectionnée
    For i = 1 To 10
        Cells(L + i, C) = N
        Cells(L + i, C + 1) = i
        Cells(L + i, C + 2) = Cells(i, 1) * Cells(i, 2)
    Next i
End Sub

On clique sur une cellule, puis sur le bouton, et la table s'inscrit à partir de cette cellule.
Facile à bidouiller pour coller à votre besoin.

 

[Delorme]

Merci beaucoup
je pense toujours pouvoir me débrouiller , et j'ai besoin d'une aide
merci à vous " sylvanu" qui répondez souvent à mes problemes
Michel

 

[Delorme]

Bonjour sylvanu
je viens de me rendre compte que la table s'affichaiy mais avec de faux résultats en 3eme colonne
Michel

 

[sylvanu]

Bonjour,
Exact, le bug est évident une fois identifié.
Le résultat de la 3eme colonne doit être le résultat des deux colonnes précédentes et sur la même ligne, donc L,C+2 doit être égal à L,C * L,C+1.

Sub multiplication(N)
Dim i%, C%, L%
    C = ActiveCell.Column   ' On récupère le N° de colonne de la cellule sélectionnée
    L = ActiveCell.Row - 1  ' On récupère le N° de ligne de la cellule sélectionnée
    For i = 1 To 10
        Cells(L + i, C) = N
        Cells(L + i, C + 1) = i
        Cells(L + i, C + 2) = Cells(L + i, C) * Cells(L + i, C + 1)
    Next i
End Sub

Sorry.

 

[Delorme]

Bonjour,
Exact, le bug est évident une fois identifié.
Le résultat de la 3eme colonne doit être le résultat des deux colonnes précédentes et sur la même ligne, donc L,C+2 doit être égal à L,C * L,C+1.

Sub multiplication(N)
Dim i%, C%, L%
    C = ActiveCell.Column   ' On récupère le N° de colonne de la cellule sélectionnée
    L = ActiveCell.Row - 1  ' On récupère le N° de ligne de la cellule sélectionnée
    For i = 1 To 10
        Cells(L + i, C) = N
        Cells(L + i, C + 1) = i
        Cells(L + i, C + 2) = Cells(L + i, C) * Cells(L + i, C + 1)
    Next i
End Sub

Sorry.

Merci une fois de plus
Michel