Creation d'une table de mutiplication avec VB

Résolu/Fermé

clara95 Messages postés 9 Date d'inscription mercredi 14 mai 2008 Statut Membre Dernière intervention 18 mai 2008 - 18 mai 2008 à 17:18
clara95 Messages postés 9 Date d'inscription mercredi 14 mai 2008 Statut Membre Dernière intervention 18 mai 2008 - 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 compte gmail - Guide
Création organigramme - Guide
Media creation tool - Télécharger - Systèmes d'exploitation

1 réponse

Réponse 1 / 1

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
18 mai 2008 à 19:07

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 mercredi 14 mai 2008 Statut Membre Dernière intervention 18 mai 2008
18 mai 2008 à 22:45

encor merci pour le soutien
bonne continuation

Discussions similaires

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

Discussions similaires

Newsletters