Macro pour une simple addition

Bonsoir Forum

Dans le fichier joint, je cherche simplement à additionner le nombre des colonnes + au nombre de la colonne immédiatement à sa droite.

Une fois les données saisies dans toutes les colonnes +, je clique sur le bouton "validation", je total s'effectue et les colonnes + sont vidées.

Avec possibilité d'ajouter des articles et des clients.

Merci des conseils et orientations voire des critiques.

Adrien

Salut Adrien,

A défaut de mieux, voici une macro créée à l'aide de l'enregistreur de macros.

Bonnes salutations.

Salut le forum

Un peu plus court et facilement adaptable

Sub Addition()
Dim Colonne As Byte
For Colonne = 2 To 20 Step 2
With Range(Cells(2, Colonne), Cells(12, Colonne))
    .Copy
    .Cells(1).Offset(0, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
    .ClearContents
End With
Next Colonne
End Sub

Mytå

Bonsoir Forum, Bonsoir Myta

Ta macro me va très bien et en plus ça fonctionne. Parfait merci beaucoup.

A+

Adrien

Salut Adrien,

Pendant deux jours tu n'as pas eu de réponse à ta question.

Je me suis alors donné la peine - et j'en ai, je sais, même si ma macro fonctionne parfaitement - afin que tu aies quand même une solution à ton problème au cas où personne d'autre te répondait.

Tes remerciements sincères pour mon travail me vont alors droit au cœur.

Merci à toi également et à la prochaine.

Bonjour Forum, Bonjour Yvouille

Viens de m'apercevoir que je ne t'avais pas cité dans m'a précédante réponse. J'ai toujours été très satisfait des réponses que j'ai obtenu et trouve ce Forum excellent et convivial.

Je remercie très sincèrement tout ceux qui ce sont donné la peine de résoudre mes pb.

A+

Adrien