XL pour MAC affichage multiple en vba

Delorme · 12 Décembre 2022

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 · 12 Décembre 2022

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.

Delorme · 12 Décembre 2022

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 · 13 Décembre 2022

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

sylvanu · 13 Décembre 2022

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 · 13 Décembre 2022

sylvanu à dit:
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

XL pour MAC affichage multiple en vba

Delorme

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Delorme

XLDnaute Occasionnel

Delorme

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Delorme

XLDnaute Occasionnel

Discussions similaires