Discussion :

[glamgeek]

Bonjour,

Je suis débutante en VBA,

J'aimerai faire la somme de n valeurs entrées dans une colonne:

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
Public Sub EntrerValeurs()
Dim i As Integer, n As Integer, S As Integer
Dim cel As Range
'On entre le nombre des n valeurs
n = Application.InputBox(Prompt:="Nombre des valeurs", Type:=1)
'Entrée des valeurs à partir de la cellule active
For i = 1 To n
cel(i).Value = i * i
'Formule de notre choix (ici on calcule la somme des carrés de 1 à n)
S = S + i * i
Next i
'On porte le resultat dans la cellule n+1
cel(i).Value = S
 
End Sub

Mais J'ai l erreur suivante:
Erreur d'execution '91':

Variable Objet ou variable de bloc With non definie

En fait je voudrais que lorsque l'on entre des valeurs dans les cellules, la cellule Somme fasse la Somme au fur et à mesure qu'on entre des valeurs dans les cellules d'une colonne et la somme des valeurs doit être égale à 100%
Je vous remercie d'avance pour votre aide.

[Qwazerty]

Salut
Est il vraiment obligatoire de passer par vba pour faire cela?
Crées un fichier exemple avec le point de départ et le résultat escompté.
A++
Qwaz

[ucfoutu]

Bonjour,

et cel(i) n'est pas une plage !

[Lonely1]

ça marche sans aucun problème si tu remplaces Cel(i) par Cells(i, 1).