Macro

bonjour

soit 3 colonnes de 7 cases où l'on met des chiffres

comment créer une macro qui met la somme des 3 nombres horizontaux dans la colonne de gauche et efface les 2 autres colonnes ?

je fais ça tous les jours au boulot, et un simple clic serait bien mieux!

merci, et @+, ptkntz

Bonsoir à tous,

Ce serait encore mieux si t'envoyais une feuille, qu'on vois la bête !

avec une petite annotation

Amicalement

Claude.

https://www.excel-pratique.com/~files/doc2/macro_excel.xls

voilà un exemple comment le fichier est avant,et comment il doit être après avoir cliqué sur la macro

merci, et à plus ptkntz

re,

tu parlais de 7 cases, j'en vois 8

le tableau commence bien toujours en B4 ?

Claude.

oui, c'était juste un exemple

le 2eme tableau est le premier une fois qu'on a cliqué

la macro devrait juste servir à additionner horizontalement dans la premiere colonne, et effacer les 2 dernières

merci, et @ +

re,

Sub essai()
Dim Cel As Range
    For Each Cel In Range("b4:b11")
        Cel = Cel + Cel.Offset(0, 1) + Cel.Offset(0, 2)
    Next Cel
    Range("c4:d11").ClearContents
End Sub

Bonsoir,

Une autre solution plus rapide:

Sub essai()
'Macro Dan
Dim i As Byte
Dim mysum As Integer
For i = 4 To 11
mysum = Application.WorksheetFunction.Sum(Union(Range("B" & i), Range("c" & i), Range("d" & i)))
Range("B" & i) = mysum
Next
Range("c4:d11").ClearContents
End Sub

Amicalement

Dan

Bonjour Dan,

Intéressante cette fonction"Union"

connaissais pas

Bonne journée

Claude.

merci ça marche, vous êtes des bêtes !!!

j'ai juste une dernière question : en fait, ça fait partied'un dossier du boulot, une feuille parmi d'autres

or, sur une autre feulle, il y a aussi déjà une macro

et il ne m'active pas un nouveau bouton macro pour mettre en place celle que vous venez de me dicter

il y a ertainement une astuce pour passer outre ce problème

pourriez vous me repondre une dernière fois ?

dans l 'attente, ciao, ptkntz