XL 2019 Table de multiplication VBA

[clemendo51]

Bonjour je dois réaliser une table de multiplication en respectant plusieurs critère mais sa me dépasse complètement si vous avez des solutions je suis preneur

• Réaliser le tableau de multiplication de 10×10 en utilisant des boucles (à vous de choisir combien de boucles) « for … next ».
• Ajustez la dimension des cellules 11× 11carrées.
• La couleur des chiffres de la première ligne et la première colonne est rouge.
• La police de tous les chiffres est « Gras ».

Voici à quoi cela devra ressemblé
Merci de votre aide

 

[Staple1600]

Bonjour le fil, clemendo51

•>clemendo51
Tu sais que tu peux le faire avec une formule?
C'est pour un exercice de cours?

 

[Staple1600]

Re

Voici une table de multiplication

Sub Table_Multiplication()
[A2] = 1: [A2:A11].DataSeries: [B1] = 1: [B1:K1].DataSeries: [B2:K11].FormulaArray = "=(ROW()-1)*(COLUMN()-1)"
With Range("A2:A11,B1:K1").Font: .Bold = -1: .Color = vbRed: End With
[A2].CurrentRegion.Columns.AutoFit: [B2:K11].Borders.Weight = 2
End Sub

Mais ne t'en sers pas
Elle est hors sujet.
Pas de boucle For ... Next dedans

Mais au moins tu as de quoi réviser tes tables pendant le confinement

 

[Fred0o]

Bonjour clemendo51, Staple

Essaie ceci :

Sub TableMulti()
    For i = 1 To 10
        For j = 1 To 10
            Cells(i, j) = i * j
            Cells(i, j).Font.Bold = True
            If i = 1 Or j = 1 Then Cells(i, j).Font.Color = -16776961
        Next
    Next
End Sub

 

[Staple1600]

Re, Bonjour Fred0o

A qui on attribue la note alors ?
10/10 pour Fred0o

Quant à moi, pour mon plaisir et en guise d'apéritif.

Sub Ma_Table_Bis()
UneFoisUn
End Sub
Private Sub UneFoisUn(Optional Formule As String = "=(ROW()-1)*(COLUMN()-1)")
With Union([A2:A11], [B1:K1])
    .Areas(1).Cells(1) = 1: .Areas(1).DataSeries: .Areas(2).Cells(1) = 1: .Areas(2).DataSeries
    .Areas(2).Cells(1)(2)(1).Resize(10, 10) = Formule: .Font.Bold = -1: .Font.Color = vbRed
With .CurrentRegion: .Columns.AutoFit: .Borders.Weight = 2: End With
End With
End Sub

 

[jmfmarques]

Bonjour
La réponse à la question posée par Staple (que je salue), à savoir :

C'est pour un exercice de cours?

surtout après avoir relu attentivement :

je dois réaliser une table de multiplication

est tellement évidente que je sors (par respect des notations nécessairement révélatrices d'aptitudes... )

 

[Staple1600]

Bonjour jmarques

M'en fiche
Moi, j'ai pondu du hors-sujet (twice!)
Même si au final, j'ai une jolie table avec du rouge

 

[clemendo51]

Bonjour à tous et oui cela est bien un exercice de cour mai sachant que les cours se font à la maison les professeur balance leurs cours et voila faut se débrouiller avec le peux que l'on a.
C'est pour cela que j'ai sollicité votre aide
je vais regarder a tous ça Merci beaucoup

 

[Patrice33740]

Avant qu'il demande, la seconde question de l'exercice (macro séparée) :
1. Ajustez la dimension des cellules 9×9 carrées.
2. Colorez les deux diagonales des cellules 9×9 avec une couleur en utilisant deux boucles « for … next » et le jugement « if then … end if ».
3. Colorez un quart quelconque des cellules 9×9 non diagonales avec une autre couleur en utilisant deux boucles « for … next » et le jugement « if then … end if ».

 

[Staple1600]

Bonsoir Patrice33740

Trop tard la question est déjà posée
Mais par sa grand Tante par alliance (ou serait-ce son frère?) @losstocam

XL 2019 - VBA EXCEL

Bonjour j'ai cet exercice a faire mais je n'y arrive pas quelqu'un aurait la solution ? Créer une macro nommée « exo2 » affectée à un bouton qui réalisera : Ajustez la dimension des cellules 9×9 carrées. Colorez les deux diagonales des cellules 9×9 avec une couleur en utilisant deux boucles...

www.excel-downloads.com

 

[clemendo51]

Voila le code final
Sub exercice_1()
Macro1
Cells.ColumnWidth = 7
Cells.RowHeight = 35
Range("A1:K11").Borders.Value = 1
Range("A1:K11").Font.Bold = True
Range("A1:K11").HorizontalAlignment = xlCenter
Range("A1:K11").VerticalAlignment = xlCenter
End Sub
Private Sub Macro1(Optional Formule As String = "=(ROW()-1)*(COLUMN()-1)")
With Union([A2:A11], [B1:K1])
.Areas(1).Cells(1) = 1: .Areas(1).DataSeries: .Areas(2).Cells(1) = 1: .Areas(2).DataSeries
.Areas(2).Cells(1)(2)(1).Resize(10, 10) = Formule: .Font.Bold = -1: .Font.Color = vbRed
With .CurrentRegion: .Columns.AutoFit: .Borders.Weight = 2: End With
End With
End Sub


Encore merci Staple1600

 

[clemendo51]

Avant qu'il demande, la seconde question de l'exercice (macro séparée) :
1. Ajustez la dimension des cellules 9×9 carrées.
2. Colorez les deux diagonales des cellules 9×9 avec une couleur en utilisant deux boucles « for … next » et le jugement « if then … end if ».
3. Colorez un quart quelconque des cellules 9×9 non diagonales avec une autre couleur en utilisant deux boucles « for … next » et le jugement « if then … end if ».

L'exercice suivant est bien celui la ^^

 

[jmfmarques]

Sans commentaires ...
Et sans voix ...

 

[Staple1600]

Re

clemendo51 !!!
Malheureux.euse, ne prends pas mon code
Il ne boucle pas.
Si j'étais moi, je me méfierai
C'est un cours sur les boucles, prends en exemple les codes idoines de ce fil.

 

[clemendo51]

Avant qu'il demande, la seconde question de l'exercice (macro séparée) :
1. Ajustez la dimension des cellules 9×9 carrées.
2. Colorez les deux diagonales des cellules 9×9 avec une couleur en utilisant deux boucles « for … next » et le jugement « if then … end if ».
3. Colorez un quart quelconque des cellules 9×9 non diagonales avec une autre couleur en utilisant deux boucles « for … next » et le jugement « if then … end if ».

Pouvez vous me donner un coup main SVP