multiplication vba

[abd.gh]

Bonjour tous le monde,

mon chef n'aime pas les formules!
donc de doit faire des multiplications par macro via vba :


en PJ ex de mon travail

pourrai-je demander votre aide????

meghci

 

[Pierrot93]

Re : multiplication vba

Bonjour,

pas ouvert le fichier, mais utilise l'opérateur * et peut être les fonctions de conversion comme "CDbl"... F1 sur le mot dans l'éditeur vba t'en dira plus...

bon après midi
@+

 

[abd.gh]

Re : multiplication vba

Bonjour Pierrot93,

j'ai commencé avec l'operateur * mais ca bugg souvent avec mon code ...

 

[Grand Chaman Excel]

Re : multiplication vba

Bonjour,

À défaut d'avoir une macro pour faire ça, tu pourrais utiliser une formule matricielle et ce serait déjà plus simple :

1. Sélectionne la plage D25:G31
2. Écris la formule suivante :

=B7:E7*K5:N11

et valide avec CTRL+MAJ+ENTER car c'est une formule matricielle.

Note : la plage sélectionnée en 1, doit avoir le même nombre de colonnes que ta 1re matrice et le même nombre de lignes que ta 2e (dans ce cas-ci, 4 colonnes x 7 lignes)

A+

 

[abd.gh]

Re : multiplication vba

merci GrandChaman;

ça se que j'ai mis au début ,
mais j'aimerai la faire en vba , avec un macro

 

[job75]

Re : multiplication vba

Bonjour abd.gh, Pierrot, Grand Chaman,

mon chef n'aime pas les formules!
donc de doit faire des multiplications par macro via vba(...)
meghci

Sado ou Maso ce chef

Dans les 2 cas on le nique :

Sub Multiplication()
[D25].Formula = "=K5*B$7"
[D25].Copy [D25:G31]
[D25:G31] = [D25:G31].Value 'supprime les formules
End Sub

A+

 

[abd.gh]

Re : multiplication vba

cool ,
merci job
bien jouer pour : [D25:G31] = [D25:G31].Value 'supprime les formules
j l'ai zappé

merci
bonne soirée

 

[job75]

Re : multiplication vba

Re,

En étant très très pervers, on va lui traiter ses bordures

Sub Multiplication()
[D25].Formula = "=K5*B$7"
[D25].Copy [D25:G31]
[D25:G31] = [D25:G31].Value 'supprime les formules
With [D25:G31].Borders
  .LineStyle = xlContinuous
  .Weight = xlMedium
  .ColorIndex = xlAutomatic
End With
[D25:G31].Borders(xlInsideVertical).LineStyle = xlNone
[D25:G31].Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

Edit : et çà c'est pour les accros de la chose :

Sub Multiplication()
[D25].Formula = "=K5*B$7"
With [D25:G31]
  [D25].Copy .Cells
  .Value = .Value 'supprime les formules
  With .Borders
    .LineStyle = xlContinuous
    .Weight = xlMedium
    .ColorIndex = xlAutomatic
  End With
  .Borders(xlInsideVertical).LineStyle = xlNone
  .Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End Sub

A+