XL 2013 Table multiplication VBA

Anr1 · 28 Mai 2019

Bonjour tt le monde !

svp comment crée une table multiplication VBA sous cette forme !

1 2 3 4
10
12
14
16
20

ce code ne fonctionne pas !!!

Sub table_multiplication()
Cells(1, 1).Select

For a = 10 To 20
For b = 1 To 4

For i = 2 To 2

ActiveCell.Offset(b + 4, a - 6).Value = (a) * (b + i)

Next i

Next b
Next a

End Sub

job75 · 28 Mai 2019

Bonjour anouarlachiri,

Quand on est pressé on se dépêche de fournir des explications que tout le monde peut comprendre.

Moi je ne comprends rien à ce que vous voulez faire alors bêtement j'ai fait cette macro :

VB:

Sub table_multiplication()
Dim i&, j%
For i = 1 To 20
    For j = 1 To 20
        Cells(i, j) = i * j
Next j, i
End Sub

A+

Staple1600 · 28 Mai 2019

Bonsoir le fil, l'homme pressé, job75

Une macro pour une formule
(parce que c'est urgent)

VB:

Sub Macro1()
Dim chiffres
chiffres = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
[B1:K1] = chiffres
[A2:A11] = Application.Transpose(chiffres)
[B2:K11] = "=(ROW()-1)*(COLUMN()-1)"
With Range("A2:A11,B1:K1")
.Font.Bold = True
.Interior.ColorIndex = 6
End With
[A1].CurrentRegion.Borders.LineStyle = 1
[A1].CurrentRegion.Columns.AutoFit
End Sub

mapomme · 28 Mai 2019

Bonsoir à tous,

Voir fichier (formule en B2)

Salut

job75 · 28 Mai 2019

Bonsoir JM, mapomme,

A quoi on joue là ? Voir le fichier joint qui donne le même résultat que mon poste #2 mais par formule.

Bonne nuit.

David Aubert · 29 Mai 2019

Bonjour à tous,
J’ai supprimé le « Urgent » dans le titre.
Voir la charte...
Bonne journée

Anr1 · 29 Mai 2019

job75 à dit:
Bonjour anouarlachiri,

Quand on est pressé on se dépêche de fournir des explications que tout le monde peut comprendre.

Moi je ne comprends rien à ce que vous voulez faire alors bêtement j'ai fait cette macro :

VB:

Sub table_multiplication() Dim i&, j% For i = 1 To 20 For j = 1 To 20 Cells(i, j) = i * j Next j, i End Sub

A+

merci bien @job75 , @Staple1600 , @mapomme ;

j'avais un test VBA hier c'est pour cela j'ai écrit urgent
par contre les programmes que vous m'avais envoyé marche si on a de ligne : 1 2 3 ..... 10 , et colonne : 1 2 3 .....10

par contre ma table est :

colonne : 1 2 3 4
ligne: 10 12 14 16 18 20

vois le fichier joint montre ma table ..

Merci d'avance

XL 2013 Table multiplication VBA

Anr1

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

David Aubert

XLDnaute Barbatruc

Anr1

XLDnaute Occasionnel

Pièces jointes

Discussions similaires