Discussion :

[Sclarck1]

Bonsoir,

J'ai fait une petite macro pour effectuer le total d'une colonne dont la taille est variable.
Je n'ai pas de souçi pour trouver la 1ère case libre de la colonne pour et y effectuer le total.
Le problème c'est que la case prend la valeur du total mais sans que la formule y soit enregistrée (pourtant j'utilise l'attribut .formula).

Du coup si je change une valeur dans la colonne le résultat ne s'actualise pas et si je réexécute la macro en question elle me refait,en dessous, la somme de l'ancien total qui avait été effectué (puisqu'il se trouve lui aussi dans la colonne à présent) et du nouveau total

Voici le bout de code concerné avec en gras la ligne ou j'essaye d'affecter la formule de somme à la cellule du total:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sheets("Feuil1").Select
Range("F2").Select
While ActiveCell.Text <> ""
    ActiveCell.Offset(1, 0).Activate
Wend

ActiveSheet.Unprotect

With WorksheetFunction
    ActiveCell.Formula = .Sum(Range(Cells(2, 6), Cells(ActiveCell.Row - 1, 6)))
End With

Comment faire pour bien affecter la formule à la cellule et pas seulement le résultat pour que le total s'actualise ?

Merci d'avance

[pgz]

Bonjour.

Il faut définir la formule, pas écrire son résultat. Essaie

Code :

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

1
2
3
ActiveSheet.Unprotect
 
ActiveCell.Formula = "=Sum(" & Range(Cells(2, 6), Cells(ActiveCell.Row - 1, 6))).Address & ")"

A mettre au point.

PGZ

[Sclarck1]

Parfait ! La mise au point n'a pas été longue il y avait juste une paranthèse en trop

Pourrais-tu aussi m'expliquer pourquoi tu utilise des & pour encadrer l'argument de Sum ?

Merci !

[JackOuYA]

Bonjour,

La propriété Formula de l'objet cellule est de type chaine de caractére, cette formule est calculé par concaténation de chaine, & c'est l'opérateur de concaténation de chaine en VB.

il permet de concaténer la plage d'addresse renvoyé par :

Code :

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

Range(Cells(2, 6), Cells(ActiveCell.Row - 1, 6))).Address

avec le reste de la formule.

[Sclarck1]

La propriété Formula de l'objet cellule est de type chaine de caractére, cette formule est calculé par concaténation de chaine, & c'est l'opérateur de concaténation de chaine en VB.

Ok je crois que j'ai compris...aurait-il été possible d'utiliser CStr() bien que que la plage d'adresses contienne des nombres ? (Désolé de poser des questions de newbie mais je préfère bien comprendre)


Merci

[AlainTech]

La propriété Address renvoie une String.
Inutile, donc, de la convertir.