VBA : Totaliser toutes les colonnes dans colonne A

jeanpierre

Nous a quitté

Repose en paix

• 20 Septembre 2009

• #2

Re : VBA : Totaliser toutes les colonnes dans colonne A

Bonjour,

A quoi correspond ton i ?

Il n'a aucune valeur.

Bonne soirée.

Jean-Pierre

 

Vote positif 0 Vote négatif

B

bertrand1202

XLDnaute Occasionnel

• 20 Septembre 2009

• #3

Re : VBA : Totaliser toutes les colonnes dans colonne A

Bonjour Jean pierre

Mon i doit servir a determiner le Numéro de ligne .

Cordialement

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Septembre 2009

• #4

Re : VBA : Totaliser toutes les colonnes dans colonne A

Salut bertrand1202
Bonsoir le fil
Bonsoir le Forum

une interprétation ,on colle la somme en colonne 6

Code:

Sub Totalisationtest()
Dim Lgn As Long
Dim c As Byte
Dim Vsom As Long

With Worksheets("Feuil1")
    For Lgn = 1 To .Rows.Count
     If .Cells(Lgn, 1) <> "" Then
         For c = 1 To 5
            
            Vsom = Vsom + .Cells(Lgn, c)
            
         Next c
               .Cells(Lgn, 6) = Vsom
     End If
     
      Vsom = 0
    Next Lgn
End With
End Sub

Bonne fin de Journée

 

Vote positif 0 Vote négatif

B

bertrand1202

XLDnaute Occasionnel

• 20 Septembre 2009

• #5

Re : VBA : Totaliser toutes les colonnes dans colonne A

Bonsoir Chti 160


Merci pour cette aide , je n'ai pas encore tous les réflexes pour VBA .



Merci de cette procédure beaucoup plus simple en passant par Row.count

J'avais essayé en reprenant des bouts de code ; je n'arrive pas toujours à comprendre ce qui bloquait;

Merci encore et bonne soirée.
@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Septembre 2009

• #6

Re : VBA : Totaliser toutes les colonnes dans colonne A

bonjour a tous

Avec le minimum de modif par rapport a ta macro

Code:

Option Explicit
Sub Totalisationtest()
Dim Vcellule As Range
Dim c As Byte
'Dim i As Integer
Dim Vsom As Long
For Each Vcellule In Range("A10:A" & Range("A65536").End(xlUp).Row)
For c = 1 To 5
 'If Vcellule <> "" Then
   Vsom = Vsom + Vcellule.Offset(0, c - 1)
 'End If
Next c
Vcellule.Offset(0, 6) = Vsom
Vsom = 0
Next Vcellule
End Sub

 

Vote positif 0 Vote négatif

B

bertrand1202

XLDnaute Occasionnel

• 20 Septembre 2009

• #7

Re : VBA : Totaliser toutes les colonnes dans colonne A

Bonsoir

Merci beaucoup Pierrejean , super , en plus cela m'aide à comprendre mes erreurs donc à progresser . Merci encore .

Si je veux totaliser une colonne sur deux ou sur trois ,faut il prendre step 2 to right et comment l'indiquer , à quel endroit De la procédure?

Merci encore du temps consacré
Bonne soirée.
@+

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 20 Septembre 2009

• #8

Re : VBA : Totaliser toutes les colonnes dans colonne A

Bonjour le fil,

Comme pierrejean et Jean Marie, que je salue 🙂, ne sont pas connectés, je me permet:
Tu as presque trouvé tout seul Bertrand:

Code:

For c = 1 To 5 [B]Step 2[/B]

pour toutes les 2 colonnes

Code:

For c = 1 To 5 [B]Step 3[/B]

pour toutes les 3 colonnes

etc...

Edit: j'oubliai jeanpierre 🙂, qui lui est présent, toujours fidèle au poste 😉

 

Dernière édition: 20 Septembre 2009

Vote positif 0 Vote négatif

B

bertrand1202

XLDnaute Occasionnel

• 20 Septembre 2009

• #9

Re : VBA : Totaliser toutes les colonnes dans colonne A

Merci Skoobi


Merci à tous pour l'aide que vous m'avez apporté , il est agréable de se sentir aidé lorsqu'on cherche à progresser .

Je pense demander de l'aide bientôt si je n'arrive pas à résoudre un autre souci sur autre tableau . Enfin j'espère bien vaincre ls difficultés avant de venir en dernier recours demander de l'aide.

Merci encore à tous

Amicalement

Bertrand

 

Vote positif 0 Vote négatif