Discussion :

[Daniel MOREAU]

Bonjour à tous,

J'importe des données de ma bdd vers excel à partir d'une requête créée avec MsQuery. Jusque là tout fonctionne bien.

Je souhaiterai faire le total de certaines colonnes après avoir effectué la mise à jour via une Macro.

Pour info le nombre de lignes est aléatoire et j'aimerai que le total s'affiche en fin de colonne.

Pouvez-vous m'aider à trouver la syntaxe.

Merci pour votre aide.

Daniel

[xmarabout]

Je me méfie des totaux en fin de colonne... Ne pourrais-tu envisager de faire tes totaux en haut de colonne: tu t'évites pas mal d'ennuis et de tests de longueur de colonne et tu sais très vite créer une petite macro qui ajoute cela

[argyronet]

Bonjour

Tout dépend en fait si la feuille de calcul recevant les données est une nouvelle feuille ou une feuille déjà utilisée où les données ont été effacées.
Il y a alors plusieurs solutions...
En voici une pour le cas d'une nouvelle feuille:

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
Sub TotalColonne()
Dim lngDernCellule As Long
Dim lngPremCellule As Long
Dim strFormula As String
Dim intColonne As Integer
  'On suppose que c'est la colonne D1 avec un titre

  Cells(1, 4).Select
  intColonne = ActiveCell.Column
  lngPremCellule = ActiveCell.Row + 1
  lngDernCellule = ActiveCell.End(xlDown).Row
  strFormula = "=SUM(R" & lngPremCellule & "C" & intColonne & ":R" _
& lngDernCellule & "C" & intColonne & ")"
  Cells(lngDernCellule + 1, 4).Select
  Cells(lngDernCellule + 1, 4).FormulaR1C1 = strFormula
  
End Sub

Argy

[Daniel MOREAU]

C'est avec beaucoup de retard que je réponds, et je m'en excuse.

En tout cas merci beaucoup Argyronnet, ça fonctionne à merveille.

Merci et merci pour ton aide.

A bientôt.

Daniel