Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Creation reglette automatique qui avance en fonction de la ligne saisie

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion landsat
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

landsat

Guest
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
 

Pièces jointes

Trier par date Trier par votes
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
 

Pièces jointes

Vote positif 0 Vote négatif
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.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
  • Question Question
XL 2016 formule de calcul en fonction du choix de la liste déroulante
2
Réponses
18
Affichages
2 K
Silent
S
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
S
  • Question Question
Autres Ajouts de TAG automatique en fonction de l'année
Réponses
4
Affichages
613
Phil69970
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
978
Nel'
N
M
  • Résolu(e)
Microsoft 365 Décalage de ligne lors de la saisie
2 3
Réponses
37
Affichages
2 K
Marvin57
M
E
  • Question Question
Microsoft 365 utilisation de la fonction rechercher/remplacer pour ajouter un caractère d'annihilation par ' en amont de chaque contenu de la cellule
Réponses
2
Affichages
560
elgringo123456
E
  • Question Question
Microsoft 365 Macro pour renvoyer la valeur par rapport à un intervalle
Réponses
6
Affichages
588
sylvanu
E
  • Question Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
644
Phil69970
P
  • Question Question
Microsoft 365 gestion de stock avec plusieurs date de production sur même produit
Réponses
12
Affichages
3 K
pouetpouetlagalette
P
M
  • Question Question
Microsoft 365 Colonne de la feuille 1 envoyer en une ligne sur la feuille 2
Réponses
0
Affichages
536
marcmarc
M
  • Question Question
Microsoft 365 Compter nombre ligne en fonction du N° de la semaine et de l'équipe
Réponses
12
Affichages
996
looky62
M
  • Question Question
XL 2016 Ajout de ligne en automatique en fonction d'une colonne
Réponses
2
Affichages
439
marie58
M
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
M
  • Résolu(e)
XL 2016 Ouverture d un fichier en fonction de la valeur d une cellule
Réponses
7
Affichages
638
mathieu20
M
C
  • Question Question
XL 2013 [VBA]Créer un nombre de ligne en fonction d'un certain nombre de colonne et remplir ces lignes avec certaines valeurs
Réponses
6
Affichages
1 K
CaptainSalt31
C
K
  • Résolu(e)
XL 2019 Copie de la dernière ligne avec la mise en forme et formules
Réponses
6
Affichages
903
Kev1407
K
B
  • Résolu(e)
XL 2019 Mise en forme conditionnelle d'ensemble de cellule en fonction de la cellule juste au dessus de l'ensemble
Réponses
7
Affichages
835
buches
B
L
  • Résolu(e)
Autres Déplacement d'une ligne sur une autre feuille en fonction de la valeur d'une cellule
Réponses
5
Affichages
997
LeSaintKebab
L
S
  • Résolu(e)
Microsoft 365 VBA création ligne en fonction d'un nombre et occurrence copier coller
Réponses
6
Affichages
1 K
simsinaty
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…