Creation reglette automatique qui avance en fonction de la ligne saisie

landsat · 4 Juin 2011

Bonjour a tout le forum

me voila de retour sur le forum apres une journee sans reussir a realiser ce que je souhaite obtenir....
Comme sur le fichier joint je saisie des valeurs colone C et je souhaite avoir automatiquement la colone D . en colone D je souhaite voir les 7 valeurs qui precedent et les 7 valeurs qui suivent la derniere valeur saisie colone C .
pour etre sur que tout le monde comprenne j ai rajoute un deuxieme exemple qui correspond a ce que je souhaite avoir sur le fichier si je saisie une ligne supplementaire.
en B2 il y a le chiffre 3 ce chiffre correspond a l ecart entre les chiffres de la colone D.

si une ame charitable a la bonte d ouvrir mon fichier je serai ravi..
sur de votre bienveillance et en vous remerciant par avance

Landsat

Softmama · 5 Juin 2011

Re : Creation reglette automatique qui avance en fonction de la ligne saisie

Bonsoir landsat,

Je ne suis pas du tout sur d'avoir compris grand chose à ton souci, mais j'ai quand même tenté de t'apporter une réponse. Vois si jamais cela correspond à ce que tu veux :

VB:

Private Sub Worksheet_Change(ByVal c As Range)
Dim écart As Integer, t As Integer
 écart = Range("B2").Value 'L'écart est en cellule B2
  If c.Count = 1 And c.Column = 3 Then 'Si modif en colonne C
    c(1, 2) = c - écart 'Colonne D = Valeur entrée moins l'écart
    For t = 1 To Application.Min(6, c.Row + 1) 'Et pour les 6 cellules...
        c.Offset(-t, 1) = c.Offset(-t + 1, 1) - écart  '...Au dessus, décalées chacune de l'écart en moins
        c.Offset(t, 1) = c.Offset(t - 1, 1) + écart '... au dessous, décalées chacune de l'écart en plus
    Next t
  End If
End Sub

cf. fichier joint

Victor21 · 5 Juin 2011

Re : Creation reglette automatique qui avance en fonction de la ligne saisie

Bonjour, landsat.

Le fichier joint t'inspire-t-il ?

Sinon me semble qu'il va falloir passer par VBA...

Edit : Bonjour, Softmama. Pas rafrâichi, je n'avais pas vu ta proposition.

Softmama · 5 Juin 2011

Re : Creation reglette automatique qui avance en fonction de la ligne saisie

Bonjour Victor21,

Juste pour dire que j'aime bien la simplicité de ta solution.

landsat · 5 Juin 2011

Re : Creation reglette automatique qui avance en fonction de la ligne saisie

Softmama et Victor21

merci a tous les 2 pour vos reponses , les 2 solutions me conviennent parfaitement , et vu que jai parfois la necessite de saisir plus de 200 a 300 lignes ,la solution VBA de Softmama me parait la plus adaptee a mes besoins , mais je souhaite savoir si les 2 parametres ( 6 et 3) peuvent etre parametrables ???

Merci d avance de votre bienveillance

Landsat

landsat · 7 Juin 2011

Re : Creation reglette automatique qui avance en fonction de la ligne saisie

Softmama

je reviens vers toi , sur la base de ton fichier , est il possible d avoir la valeur 6 (les 6 cellules avant et apres) en B3 , parametrable , c est a dire que l'on puisse changer la valeur en cellule B3 .

Merci par avance du temps passe sur mon probleme

Landsat

Victor21 · 7 Juin 2011

Re : Creation reglette automatique qui avance en fonction de la ligne saisie

Bonjour, landsat.

As-tu essayé de modifier [B2], et de saisir une valeur en [C9] ?

Creation reglette automatique qui avance en fonction de la ligne saisie

landsat

XLDnaute Junior

Pièces jointes

Softmama

XLDnaute Accro

Pièces jointes

Victor21

XLDnaute Barbatruc

Pièces jointes

Softmama

XLDnaute Accro

landsat

XLDnaute Junior

landsat

XLDnaute Junior

Pièces jointes

Victor21

XLDnaute Barbatruc

Discussions similaires