XL pour MAC affichage multiple en vba

Delorme

XLDnaute Occasionnel
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
 

Pièces jointes

  • Inputmulti.xlsm
    16.8 KB · Affichages: 6

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Delorme,
Peut être tout simplment avec :
VB:
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.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
VB:
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

XLDnaute Occasionnel
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.
VB:
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
 

Discussions similaires

Réponses
4
Affichages
543

Statistiques des forums

Discussions
314 450
Messages
2 109 727
Membres
110 552
dernier inscrit
jasson