Numéro de ligne en fonction de la valeur d'une cellule.

[Kalinka]

Bonjour,

J'ai une liste de 49 points à partir desquels je calcul différentes sommes.
J'aimerai pouvoir choisir le nombre de terme pour lesquels je vais calculé ces sommes ( entre 1 et 49 termes)...

HELP !!!!
Merci d'avance !!!

 

[Pierrot93]

Re : Numéro de ligne en fonction de la valeur d'une cellule.

Bonjour,

peut être nous fournir un peu plus de détails..; car là, en l'état vois rien dans ma boule de cristal...

bon après midi
@+

 

[Kalinka]

Re : Numéro de ligne en fonction de la valeur d'une cellule.

J'ai 49 donnée pour lesquel je ve calculé la somme.
Mais je ve pouvoir choisir si je calcul pour 1 donnée ou pour 30 ou pour 49 en faite, il fudrait que je puisse rendre l'indice de ma ligne variable suivant les valeur d'une autre cedllule...

 

[Kalinka]

Re : Numéro de ligne en fonction de la valeur d'une cellule.

par exemple si je rentre 24 dans une cellule, il me calcul la somme pour les 24 premier termes, si je rentre 3 ol me la calcul pour 3, ect, ect...

 

[Pierrot93]

Re : Numéro de ligne en fonction de la valeur d'une cellule.

Re,

bon je comprends un peu mieux.. il me semble qu'une formule peut faire ça, attendons les formulistes... perso pas trop mon truc... si personne, verrais pour te donner un code vba...

 

[julberto]

Re : Numéro de ligne en fonction de la valeur d'une cellule.

Bonjour à tous,

Cela te convient-il ?
cf fichier joint

 

[Pierrot93]

Re : Numéro de ligne en fonction de la valeur d'une cellule.

Re, bonjour julberto

une solution vba, tes cellules à additionner en colonne A à partir de A1, tu indiques le nombre de lignes en B1 te donnera le résultat en C1, code à placer dans le module de la feuille concernée => click droit sur l'onglet => visualiser le code et tu le colles. Procédure événementielle se déclenche lors de la modification de la cellule B1 :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
If IsNumeric(Target) Then
    Range("C1").Value = Application.Sum(Range("A1").Resize(Range("B1").Value))
End If
End Sub

bon après midi
@+

 

[Kalinka]

Re : Numéro de ligne en fonction de la valeur d'une cellule.

oui merci !!!!