Discussion :

[thauvinl]

bonjour a tous,

mon probleme est le suivant:
j'extrais d'une base des chiffres sur 4 colonnes B, C, D et E

peut on m'expliquer comment faire une macro qui fait la somme des 4 cellules de chaque ligne dont le resultat serait en colonne F, le nombre de ligne etant aléatoire.

merci de votre aide

[mercatog]

encore pas de réponse, ça étonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim i as long
for i=2 to cells(rows.count,2).end(xlup).row
range("F"&i).value=application.worksheetfunction.sum(range("B"& i &":E" &i))
next i

[rvtoulon]

Slt,
voici le code qui fait le calcul souhaité.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Somme()
'Déclaration des variables
Dim i As Long, plage As Range, résultat As Integer
 
'avec la feuil 1
 With Sheets("Feuil1")
'Je recherche de la première ligne de la colonne B jusque la dernière ligne pleine  
For i = 1 To .Range("B65356").End(xlUp).Row
  'j'indique qu'elle est la plage à calculer
    Set plage = .Range("B" & i & ":E" & i)
  'j'indique que pour cette plage j'utilise la fonction somme
    résultat = Application.WorksheetFunction.Sum(plage)
  'j'affiche le résultat dans la colonne F à la ligne qui correspond 
   .Range("F" & i) = résultat
  Next i
 End With
 
End Sub

A+

EDIT: Slt Mercatoq, j'ai posté pratiquement en même temps.

[thauvinl]

Merci beaucoup