operation sur les colonnes?

[asticot26]

bonjour,

je possede un fichier qui elabore une synthese de donnees issues de differents tableaux.
je voudrais savoir comment on peut faire la somme des 2 dernieres colonnes d'un tableau sachant que celui-ci est de taille variable (nb de lignes et de colonnes varient)..
par avance merci de votre aide..

 

[Robert]

Re : operation sur les colonnes?

Bonjour Asticot, bonjour le forum,

Si la première ligne de la dernière colonne n'est pas vide, la macro ci-dessous devrait fonctionner (même si elle fasit un peu usine à gaz...). Comme tu n'as pas précisé où tu voulais voir cette somme je l'ai placée dans un message mais il te sera aisé de modifier le code pour la placer ailleurs :

Sub Macro1()
 
Dim adc As Byte 'déclare la variable adc (Avant Dernière Colonne)
Dim dc As Byte 'déclare la variable dc (Dernière Colonne)
Dim adl As Integer 'déclare la variable adl (Avant Dernière Ligne)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim p As Range 'décalre la variable p (Plage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim s As Double 'décalre la variable s (Somme)
 
dc = Range("IV1").End(xlToLeft).Column ' définit la variable dc
adc = dc - 1 ' définit la variable adc
adl = Cells(65536, adc).End(xlUp).Row ' définit la variable adl
dl = Cells(65536, dc).End(xlUp).Row ' définit la variable dl
'définit la variabe p
Set p = Application.Union(Range(Cells(1, adc), Cells(adl, adc)), Range(Cells(1, dc), Cells(dl, dc)))
 
For Each cel In p 'boucle sur toutes lde cellule de la plage p
    On Error Resume Next 'gestion erreur si la cellule ne contient pas de valeur numérique
    s = s + cel.Value 'définit la varable s
    On Error GoTo 0 'fin de gestion erreur
Next cel 'prochaine cellule de la plage p
 
MsgBox s 'message affichant la somme
 
End Sub

Je pense que les formulistes vont te trouver un plan beaucoup plus simple.

 

[Monique]

Re : operation sur les colonnes?

Bonjour,

Par formule.
Formule matricielle, à valider par ctrl, maj et entrée