Multiplication de plusieurs cellules au clic sur un bouton

Fahim3u -  
 gyrus -
Bonjour,


Salut les gars j'ai un petit problème sur excel . Je voudrais appliquer une formule a des cellules dans mon classeur. Le principe c'est de multiplier toutes les valeurs des cellules *24 une fois que je clique sur un bouton. Pouvez vous maider Merci d'avance Merci .
Je vous joins mon fichier https://s.amsu.ng/Y4xtcVi16aCN
A voir également:

3 réponses

M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
Bonjour,

A tester ce code sur le bouton de commande
Private Sub CommandButton1_Click()
'Déclaration des variables
Dim i As Integer
Dim j As Integer
'Vidage des dernière données
Sheets("Feuil1").Range("J7:I9").Clear

'Boucle
    For i = 7 To 9
        For j = 1 To 3
            Cells(i, j + 6).Value = Cells(i, j).Value * 24
        Next j
    Next i
End Sub
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,
un peu different, sans boucle

Sub Macro1()
    Range("E6").Copy        'cellule avec 24
    'plage de cellules a multiplier
    Range("A7:C9").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
0
gyrus
 
Bonjour,

Un exemple ...
https://www.cjoint.com/c/IGBlXKZkE5j

Cordialement.
0