[Résolu] Problème d'addition

rafspain77 · 22 Novembre 2011

Bonjour à toutes et à tous,

Mon problème est surement super simple pour vous mais moi il me bloque et j'arrive pas à le solutionner.

Alors voila, je veux juste faire une simple addition.

Voici le code que j'ai tenté, il y a deux "solutions" mais aucune ne marche.

Code:

Sub fORMULES()

Dim cell1, cell2 As Range
Dim result As Long
Dim i As Integer

'For Each cell1 In Range("A2:A20")
'For Each cell2 In Range("B2:B20")
    
    'cell1.Offset(0, 2).Value = cell1.Value + cell2.value
       
    'Next
    'Next
    
    For Each cell1 In Range("C2:C20")
    For i = 2 To 20
    cell1.Value = Cells(i, 1).Value + Cells(i, 2).Value
    Next
    Next
    
'
End Sub

Merci par avance pour votre aide.

Pierrot93 · 22 Novembre 2011

Re : Problème d'addition

Bonjour,

comprends pas trop, mais à noter que tu peux également utiliser en vba les fonctions de feuille de calcul, exemple ci-dessous, plage de cellules à adapter :

Code:

Range("A1").Value = WorksheetFunction.Sum(Range("B2:B10").Value)

bonne journée
@+

rafspain77 · 22 Novembre 2011

Re : Problème d'addition

Re,

J'ai solutionner mon problème en utilisant offset aulieu de prendre une deuxième variable.

Mais pour ma culture, et parce que j'en aurais certainement encore besoin, quelqu'un peut il m'expliquer comment on fait pour faire une addition avec deux variables??

Merci par avance.

perpitou · 22 Novembre 2011

Re : Problème d'addition

Worksheets(1).Range("A1").Value = Worksheets(1).Range("A1").Value + Worksheets(1).Range("A2").Value

rafspain77 · 22 Novembre 2011

Re : Problème d'addition

Merci à vous,

merci perpitou, mais moi je veux le faire sur à peu près 13 000 lignes...

C'est pour cela que j'utilise mes variables, mais ce n'est pas concluant sans les "offset"

Merci encore à vous.

[Résolu] Problème d'addition

rafspain77

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

rafspain77

XLDnaute Nouveau

perpitou

XLDnaute Occasionnel

rafspain77

XLDnaute Nouveau

Discussions similaires