multiplication vba

abd.gh · 21 Juin 2011

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 · 21 Juin 2011

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 · 21 Juin 2011

Re : multiplication vba

Bonjour Pierrot93,

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

Grand Chaman Excel · 21 Juin 2011

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 :

Code:

=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 · 21 Juin 2011

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 · 21 Juin 2011

Re : multiplication vba

Bonjour abd.gh, Pierrot, Grand Chaman,

abd.gh à dit:
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 :

Code:

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

A+

abd.gh · 21 Juin 2011

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 · 21 Juin 2011

Re : multiplication vba

Re,

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

Code:

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 :

Code:

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+

multiplication vba

abd.gh

XLDnaute Nouveau

Pièces jointes

Pierrot93

XLDnaute Barbatruc

abd.gh

XLDnaute Nouveau

Grand Chaman Excel

XLDnaute Impliqué

abd.gh

XLDnaute Nouveau

job75

XLDnaute Barbatruc

abd.gh

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires