VBA : Totaliser toutes les colonnes dans colonne A

[bertrand1202]

Bonjour


J'ai essayé de faire un test pour totaliser les colonnes d'une feuille dans la colonne A (aColonne A s'additionne avec les autres)et le résultat est en A.

J'aurais besoin d'aide car je ne comprend pas ce qui bloque , la macro ne réagit pas .Si quelqu'un peut m'expliquer d'où vient l'erreur , je serais ravi ;Je cherche à comprendre le pourquoi .
Merci d'avance .

 

[jeanpierre]

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

 

[bertrand1202]

Re : VBA : Totaliser toutes les colonnes dans colonne A

Bonjour Jean pierre

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

Cordialement

 

[ChTi160]

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

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

 

[bertrand1202]

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.
@+

 

[pierrejean]

Re : VBA : Totaliser toutes les colonnes dans colonne A

bonjour a tous

Avec le minimum de modif par rapport a ta macro

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

 

[bertrand1202]

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.
@+

 

[skoobi]

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:

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

pour toutes les 2 colonnes

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 😉

 

[bertrand1202]

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