creation d'une table de mutiplication avec VB Résolu

Question

Bonjour,
 avec le programme suivant j'effectue une mutiplication progressive c'est-àdire qu'il me fait 1*14 puis 2*14.... Mais je veux qui m'affiche 
1*14
puis
 1*14
2*14
puis
1*14
2*14
3*14
.......
et à la fin j'ai toute la table de multiplication

est-ce quelqu'un  peut m'aider s'il vous plait ?
voici mon programme de base

Sub textForNext()
Dim ChoixNombre As Integer
ChoixNombre = Range("A9").Value
For i = 1 To 10
MsgBox i & "x" & ChoixNombre & "=" & i * ChoixNombre, vbInformation, "Table de multiplication par" _
& ChoixNombre
Next i
End Sub

lermite222 · Answer

Bonjour,
Tu colle le code ci-dessous dans le module de la feuille
ensuite tu tape la valeur que tu veux multiplier dans E1
Dim Memo As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Memo <> Cells(1, 5).Value Then
            Multiplication Cells(1, 5).Value
            Memo = Cells(1, 5).Value
        End If
End Sub

Sub Multiplication(Mult As Integer)
Dim i As Integer
    For i = 1 To 10
        Cells(i, 1).Value = i & " x " & Mult & "="
        Cells(i, 2).Value = i * Mult
    Next i
End Sub

A+

Creation d'une table de mutiplication avec VB

1 réponse

Discussions similaires

Newsletters