XL 2016 procédure pour calculer des multiplications et remplir plage de cellules

[beginner35]

Hello
J'aimerais créer une procédure me permettant de calculer des produits de multiplications via zone de cellules
bien à vous

 

[Victor21]

Bonjour, beginners35.

J'aurai sélectionné B2:F6, entré dans la zone de formule :
=B$1*$A2
Et validé par Ctrl+Entrée.

 

[beginner35]

Bonjour Victor,
le but est de le faire par module VBA, je sais que par Excel ça se fait en deux secondes ^^, c'est dans une logique didactique tout ça 🙂

aurais tu une solution?

 

[Victor21]

Re,

Bonjour Victor,
le but est de le faire par module VBA, je sais que par Excel ça se fait en deux secondes ^^, c'est dans une logique didactique tout ça 🙂

aurais tu une solution?

Rien de plus simple. Mais je ne suis pas un spécialiste du VBA.
J'aurais cependant inscrit "option explicit" en début de module pour rendre obligatoire la déclaration des variables i et j

 

[beginner35]

Merci 🙂

En attente d'une aide héroique ^^

 

[Modeste geedee]

😡
Bonsour®
une logique didactique concernant Excel voudrait que l'on se familiarise d'abord avec le tableur et l'utilisation de formules et fonctions intégrées !!

L'utilisation de VBA découle en fait d'une autre approche (analyse, logique et algorithmie) indépendante d'EXCEL,
VBA n'étant qu'une sous-couche Visual Basic réduite aux applications et objets Microsoft et compatibles

l'utilisation exclusive de VBA au détriment de l'usage des fonctionnalités de feuille de calculs est une hérésie !!!

 

[Victor21]

Bonjour à toi aussi, Modeste geedee.

Hérésie avec une grande hache ? Vraiment ?
🙂

 

[Modeste geedee]

Bonjour à toi aussi, Modeste geedee.

Hérésie avec une grande hache ? Vraiment ?
🙂

surtout fonctions alitées sans HEsse...
ROTFL

 

[Staple1600]

Bonjour le fil,

Ca me rappelle ma maitresse Mme GARNIER, cette histoire de multiplication 😉

Sub Jamais_Sans_Mes_Tables()
[A1:J10] = "=ROW()*COLUMN()": [A1:J10].Borders.Weight = 2
With Range("A1:J1,A1:A10"): .Font.Bold = True: .Interior.Color = vbYellow: End With
[A1].CurrentRegion.Columns.AutoFit
End Sub

 

[beginner35]

un grand merci!

 

[Victor21]

surtout fonctions alitées sans HEsse...
ROTFL

Un signe qu'il était peut-être temps que vous allassiez vous coucher...
PS : Bonsoir, JM, et mes respects à Mme votre maîtresse. 😉