Creation d'une table de mutiplication avec VB

Résolu

clara95 Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
clara95 Messages postés 9 Date d'inscription Statut Membre Dernière intervention - 18 mai 2008 à 22:45

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

A voir également:

Creation d'une table de mutiplication avec VB
Table ascii - Guide
Table des matières word - Guide
Creation de compte google - Guide
Creation de site web - Guide
Creation compte gmail - Guide

1 réponse

Réponse 1 / 1

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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+

clara95 Messages postés 9 Date d'inscription Statut Membre Dernière intervention

encor merci pour le soutien
bonne continuation

Discussions similaires

Table des matières dont les titres n'apparaissent pas..

Intégrer une table des annexes et des matières sur word

Votre réponse

Discussions similaires