Discussion :

[latop]

Bonsoir,

Je suis en difficulté sur un bout de code qui est celui-ci:

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim i As Range
Dim o As Range
Dim formule As Variant
 
ActiveCell.End(xlUp).Activate
Set o = ActiveCell.Offset(2, 0).adress
Set i = ActiveCell.End(xlDown).adress
 
formule = "=SOMME(" & o & ";" & i & ")"
Sheets("sous-ensemble code 4").ActiveCell.FormulaLocal = formule

Est ce qu'il y a qqchose qui vous saute aux yeux??

Ce que je veux faire, c'est:

je fait une somme en D40 des valeurs de D42 à D52

Je sélectionne D42 (ma variable o)
Je descend jusque ma dernière cellule vide (D52 pour l'exemple) ( ma variable i)

Et j'insere ma formule de calcul (a savoir la somme de o à i)

Je dois utiliser des variables car cette somme doit s'effectuer à plusieurs endroits différents de ma feuille.

bonne soirée

Si vous avez une solution je vous en serait très reconnaissant

[Igloobel]

Bonjour,

Ce qui me saute aux yeux c'est que "SOMME" n'existe pas en VBA c'est "SUM"

sinon pourquoi fais tu une formule en *VBA et ne mets tu pas directement le résultat ?

tu dis

A+

[Menhir]

Je suis en difficulté sur un bout de code qui est celui-ci:

Tu peux en dire plus sur tes "difficultés" ou tu comptes jouer aux devinettes ?

Ce qui me saute aux yeux c'est que "SOMME" n'existe pas en VBA c'est "SUM"

Comme il a mis FormulaLocal et que, d'après son profil, il est français, ça devrait marcher.

Le truc qui me dérange plus, c'est des variables Range pour récupérer le résultat de Address qui est une propriété renvoyant un String.

La simple observation du contenu des deux variables aurait du permettre de comprendre l'erreur.
90% des problèmes viennent soit d'une mauvaise syntaxe, soit du contenu des variable. Ce second point est donc la première chose à explorer quand on a un problème.

Dernier truc : personnellement, j'aurais évité l'Activate.

[latop]

si je met SUM dans mon code , ca ne fonctionne pas car ca m'affiche SUM dans ma barre de formule du tableur. Je suis obligé de faire SOMME comme dit menhir

Effectivement ce sont mes variables qui posait soucis...

J'ai remplacé range par string et j'ai modifié mes déplacements de cellules pour enlever activate.

Je crois qu'hier soir j'étais perdu après une journée de codage!!
Avec vos explication et ma tête reposé cela parrait beaucoup plus clair

Merci!!

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim i As String
Dim o As String
Dim formule As String
 
 
o = ActiveCell.End(xlUp).Offset(2, 0).Address
i = ActiveCell.Address
formule = "=somme(" & o & ":" & i & ")"
ActiveCell.End(xlUp).FormulaLocal = formule
Unload Me