Fonction somme en VBA

Bonjour,

en faite j'ai un tableau qui comporte des centaines des lignes et 3 colonnes dont je voulais faire une fonction qui fait la somme de 2 valeurs des premiers colonnes et mettre le resultat dans la 3em colonne sur chaque ligne .

et le probleme aussi j'arrive pas à trouver l'emplacement de code .

voila le code existant :

DefinirNumeroColonnes

R = ActiveCell.Row

BUDGET1 = Cells(R, 0_BUDGET)

BUDGET2 = Cells(R, 1_BUDGET)

TotalBUDGET = Cells(R, TotalBUDGET)

help please .

Visual Basic dans l'onglet Developpeur, si c'est ça ta question. Je comprends pas trop.

je pense que ma question est claire ,je re explique : une fonction qui permet de faire la somme de 2 valeurs et mettre le résultat sur la 3eme colonne dont chaque ligne à part .

merci de me répondre ,

C2 =SOMME(A2:B2) et tu le fais glisser

C'est ça?

mais ça, c'est sur excel

j'ai esssayé avec ce code la mais ça marche pas :

Dim rg As Range

R = ActiveCell.Row

Set rg = ActiveSheet.Range(Cells(R, 46), Cells(R, 47))

ActiveSheet.Cells(R, 48).Formula = "=SUM(" & rg.AddressLocal & " )"

Essayes ça.

Dim n As Integer
        Set f = Worksheets("Feuil1")
    R = ActiveCell.Row
    n = R    
    While f.Cells(R, 1).Value <> ""
        n = n + 1
        R = R + 1
    Wend
    For R= 2 To n
        f.Cells(R, 48) = f.Cells(R, 46) + f.Cells(R, 47)
    Next R
End Sub

j'ai esssayé mais pas de résultat

Sub calcul()
    Dim n,i  As Integer
    Set f = Worksheets("Feuil1")   'n'oublies pas de mettre le nom de ta feuille
    i=2    'ligne de la premiere donnée du tableau
    n = i    
    While f.Cells(i, 46).Value <> ""
        n = n + 1
        i = i + 1
    Wend
    For i= 2 To n
        f.Cells(i, 48) = f.Cells(i, 46) + f.Cells(i, 47)
    Next i
End Sub

malheureusement tjrs pas de résultat mais moi je veux bien integrer la fonction somme dans ce code existant qui permet de charger le tableau :

DefinirNumeroColonnes ' apel de la macro qui definie les colonnes

R = ActiveCell.Row

BUDGET1 = Cells(R, 0_BUDGET)

BUDGET2 = Cells(R, 1_BUDGET)

TotalBUDGET = Cells(R, TotalBUDGET

Quoi pas de résultat? ça te met quoi? ça marche normalement.

ça marche pas

ça marche pas

Bonjour,

je voulais faire une fonction qui fait la somme de 2 valeurs

Pourquoi ne pas faire une simple addition ?

TotalBUDGET = Cells(R, 0_BUDGET) + Cells(R, 1_BUDGET)

Si tu tiens à utiliser la fonction SOMME en VBA :

TotalBUDGET = WorksheetFunction.Sum(Cells(R, 0_BUDGET), Cells(R, 1_BUDGET))

Cordialement,

Bonjour

le prbm persiste tjrs , peut etre à cause de la variable R, car le tableau comporte des colonnes et à chaque definition du colonne ya le R ,

par exemple :

OrdreDir = Cells(R, YPCOrdreDir)

CodePole = Cells(R, YPCCodePole)

PIA2009_BUDGET = Cells(R, 0_BUDGET)

PIA2010_BUDGET = Cells(R, 1_BUDGET)

merci de me répondre ,

Tu n'es pas le seul sur ce forum à avoir besoin d'aide, merci d'attendre au moins 24h avant de relancer un sujet

Bonjour

Je viens mettre mon grain de sel

Bonjour,

Une façon de faire :

Sub total()
    Dim derlig As Long
    derlig = Cells(Rows.Count, 1).End(xlUp).Row
    [C2].FormulaLocal = "=SOMME(A2:B2)"
    [C2].AutoFill Destination:=[C2].Resize(derlig - 1)
    ' et si tu ne veux que les valeurs sans les formules :
    [C2].Resize(derlig - 1).Copy
    [C2].PasteSpecial Paste:=xlPasteValues
End Sub

merci erric pour ta réponse , mais j'ai essayé avec ce code :

For i = 10 To ActiveSheet.UsedRange.Rows.Count

Range("AV" & i).Value = Range("AT" & i) + Range("AU" & i)

Next

ça marche sauf qu'il m'affiche des resultats mème dans les cellules de la plage non concernée , donc il m'affiche des 0 sur toutes les lignes de la feuille .

bon si t'as une réponse pour ça n'hésite pas à me repondre . merci

Bonjour,

A quoi ça sert de poser des questions si tu n'essaies pas ce qu'on te propose ?

Aucun retour sur ma proposition, abandon du sujet.

Bye

eric

Bonjour

erric j'ai essayé ton code mais ça m' a affiché des messages d'erreur , donc j'ai essayé mon code et ça marche sauf il y avait le pbm que je t'ai expliqué ,

En plus c'est pas une façon de parler au gens comme ça , essaye d'abord de comprendre . et si tu veux plus me répondre y a pas que toi sur le forum à mon avis .

be cool,