Insérer une ligne

Question

Bonjour, 
Sur une feuille j'ai plusieurs comptes de 4 colonnes.
Ces comptes n'ont pas tous le même nombre de lignes
Je démarre tous les comptes avec 5 lignes j'aimerais avoir la possibilité d'insérer une ligne supplémentaire avec la formule qu'elle doit comporter mais uniquement sur le compte ou les 5 lignes sont occupées.Les autres comptes ne doivent pas bouger .
Exemple colonnes A B C D et par la suite un autre compte exemple colonnes I J K L
Merci pour votre aide
Cordialement 
Configuration: Configuration: Windows / Firefox 51.0

ccm81 · Answer

Bonjour
Peut être pas tout compris
http://www.cjoint.com/c/GBiuCZLtfXf
Cdlmnt

jc80 · Answer

Bonjour ccm81
Merci pour ton aide
c'est presque ce que je souhaitais je t'aie mis ci-dessous
le fichier que tu m'as envoyé et que j'ai modifié avec quelques explications
http://www.cjoint.com/c/GBjk6dRv7oO
Merci pour ton aide 
Cordialement

ccm81 · Answer

Un essai à tester (du moins si j'ai compris)
http://www.cjoint.com/c/GBjpgzB8XBf
Cdlmnt

jc80 · Answer

Re Bonjour
C'est exactement ce que je souhaite,le petit hic ,s'est d’être obliger
d'aller double-cliquer sur une case total pour insérer une nouvelle ligne.
Je pensais ,peut-être à tort que lorsque une ligne est remplie ,l'insertion 
se ferait automatiquement.
Crdlt

ccm81 · Answer

lorsque une ligne est remplie ,l'insertion se ferait automatiquement. 
laquelle ? 
Dès l'origine (A2:D2 dans ton exemple) la dernière ligne avant total est remplie (par une formule)
Cdlmnt

jc80 · Answer

Bonjour
J'ai bien compris ce que tu me dis,
mais plutôt que de double cliquer comme il faut le faire avec le code VBA que tu as mis ,l'opération ne peut-elle pas se faire automatiquement .
Crdlt

jc80 · Answer

Bonjour ccm81
Je t'ai mis a nouveau un exemple de ce que je devrais avoir
Tu constateras que si j'entre à nouveau des données dans la feuille
saisie,elles ne seront pas rentrées dans un compte de la feuille comptes 
étant donné qu'il n'y a pas la formule nécessaire.
D’où le besoin d'insérer une ligne automatiquement après chaque saisie.
http://www.cjoint.com/c/GBknZJmEyZn
Crdlt

ccm81 · Answer

Je crois qu'on est en train de changer le problème
Au vu de ton dernier envoi, voilà comment je verrai la chose
A passer par une macro, autant lui faire faire tout le boulot en feuille compte qui ne contiendrait plus aucune formule, sauf SOMME(...)
Tu fais une saisie en feuiille "saisie"
clic-clic en colonne libellé
ça envoie dans la feuille compte dans le bon tableau "licence" ou "km" les données avec bien sûr insertion avant la ligne total et maj de la formule
Mais, peut être que .... !

jc80 · Answer

Merci pour ta réponse
Par rapport au fichier envoyé,je ne vois pas comment employer la formule Somme(...) pour obtenir le résultat souhaité...

ccm81 · Answer

RQ1. Tu ne me dis pas si le scénario proposé correspond à ce que tu veux
1. Tu fais une saisie en feuiille "saisie"
2. clic-clic en colonne libellé
3. ça envoie dans la feuille compte dans le bon tableau "licence" ou "km" les données avec bien sûr insertion avant la ligne total et maj de la formule 
RQ2. En feuille saisie tu as saisi 3 "licence" consécutives et 3 "km" consécutifs
1. si tu fais une autre saisie ça sera une "licence" ou un "km"
2. est ce que chaque ligne "licence" correspond à une ligne "km".
3. est ce que Dupond gerard doit rester sur la même ligne que Amiens en feuille compte

jc80 · Answer

RQ1  ce que tu proposes me convient parfaitement
RQ2 1) licence ou km ou autres puisque plusieurs comptes
      2 et 3) non puisque les tableaux sont indépendants

ccm81 · Answer

Bon, ça se précise
RQ2 1) licence ou km ou autres puisque plusieurs comptes 
Q1. Pour qu'on puisse transférer les données par macro plutôt que par formules, il faut que les intitulés des comptes en feuille compte soient les mêmes qu'en feuille saisie, ce qui n'est pas le cas (dans la colonne nom/prénom il y a des lieux). Donc si ça reste comme ça, on garde tes formules
Q2. Tous les comptes ont 4 colonnes 
Q3. Les intitulés des comptes (Licence, Kms) en feuille compte se retrouvent exactement  tels que  en feuille saisie, colonne libellé
Si tu pouvais envoyer le vrai fichier anonymisé pour que je puisse voir sa structure, ça faciliterait les choses

jc80 · Answer

Re,
Q1 Dans la feuille Saisie la colonne B peut être Code et la colonne C Libellé
Q2 Tous les comptes auront 4 colonnes
Q3 les intitulés sont tels que
Désolé pour le fichier a t'envoyer je n'ai que cela puisque je le commence

ccm81 · Answer

Bon, n'ayant pas la structure, finalement j'ai gardé les formules
http://www.cjoint.com/c/GBkr6H1coEf
Cdlmnt

jc80 · Answer

Bonjour ccm81
Superbe c'est ce qui peut me convenir,je test et en cas de soucis 
je réapparais.
Merci encore une fois 
Bon WE
Je passe en résolu
Cordialement

ccm81 · Answer

J'ai un peu réfléchi à ma proposition du post #8
"A passer par une macro, autant lui faire faire tout le boulot en feuille compte qui ne contiendrait plus aucune formule, sauf SOMME(...) "
Une tentative dans ce sens
http://www.cjoint.com/c/GBmmWk7VaTf
Cdlmnt

jc80 · Answer

Bonjour ccm81
je viens de faire un essai j'ai un bug sur la ligne ci-dessous en gras
End Select
' liste des données
ReDim T(0 To UBound(Tco))
Crdlt

ccm81 · Answer

Avec mon fichier ou avec le tien

jc80 · Answer

Re
 Avec le fichier que tu as mis en post 17 qui est disparu

ccm81 · Answer

Il n'a pas disparu, mais comme tu lui as mis +1, il est remonté plus haut 
N'aurais tu pas clic-cliqué en B1 (sur Libellé), ce n'est pas prévu ça ?
Sinon, il faudrait en dire un peu plus sur l'erreur
Tu ouvres le fichier, clic-clic en B2 et tu dis

jc80 · Answer

Effectivement cela fonctionne j'ai du cliquer sur B1
Chose que je viens de voir si je supprime une ligne dans la feuille saisie,
elle ne se supprime pas dans le compte concerné

ccm81 · Answer

1. Effectivement cela fonctionne j'ai du cliquer sur B1 
tu ajoutes la ligne en gras dans le module de la feuille Saisie
If Intersect(Target, Columns(colibFS)) Is Nothing Then Target.Offset(1, 0).Select: Exit Sub
If Target.Row < lilibFS Then Target.Offset(1, 0).Select: Exit Sub
If Target.Interior.ColorIndex = coulLib Then Target.Offset(1, 0).Select: Exit Sub
2. Chose que je viens de voir si je supprime une ligne dans la feuille saisie,elle ne se supprime pas dans le compte concerné
Effectivement, ça n'est pas prévu, mais est ce que c'est une situation qui peut arriver (une fois qu'une ligne de saisie est validée et envoyée dans la feuille Compte)

jc80 · Answer

Si tu peux regarder j'ai ajouté un compte et j'ai un bug dans le code
http://www.cjoint.com/c/GBmrv3tfuIk

ccm81 · Answer

1. Le libellé dans la feuille Saisie (Subvention, Kms, Licence, ...) doit être strictement le même que les "titres" de tes tableaux en feuille Comptes (tu as mis Subvention en feuille Saisie et dans le code mais Subv dans la feuille Compte)
Je t'ai conseillé plus haut de mettre une liste de validation pour les cellules de la colonne B de la feuille Saisie. pour éviter ce genre de problème
2. Pour la ligne à ajouter
If Target.Row < lilibFS Then Target.Offset(1, 0).Select: Exit Sub
je t'ai précisé que c'est dans le module de la feuille Saisie et non dans le Module 1 qu'il fallait l'insérer.
Tu as les modules de feuille au dessus du dossier Modules dans l’éditeur vba
3. Avec les corrections
http://www.cjoint.com/c/GBmrLWlh2Cf
Cdlmnt

jc80 · Answer

Bonjour
Désolé mais en VBA je suis complètement largué.
J'ai essayé de mettre la phrase
If Target.Row < lilibFS Then Target.Offset(1, 0).Select: Exit Sub
mais ça ne marche pas
peut-être j'oublie quelque chose
Crdlt

ccm81 · Answer

Je l'ai fait sur mon dernier envoi ;-()
Cdlmnt

jc80 · Answer

Re, 
Je viens de retélécharger te dernière version,la suppression de ligne ne se fait pas.
Pour supprimer je clique sur supprimer.

ccm81 · Answer

1. la suppression de ligne ne se fait pas. 
Mais, je t'ai déjà répondu haut (post #23) 
Chose que je viens de voir si je supprime une ligne dans la feuille saisie,elle ne se supprime pas dans le compte concerné
Effectivement, ça n'est pas prévu, mais est ce que c'est une situation qui peut arriver (une fois qu'une ligne de saisie est validée et envoyée dans la feuille Compte)
Question à laquelle tu n'as pas répondu !
2. Ce que j'aimerai savoir c'est est ce que cette version fonctionne et correspond à ce que tu attends quant au transfert des données depuis la feuille Saisie vers le bon compte de la feuille Compte
3. Pour ce qui est de la suppression d'une ligne, rien n'est actuellement prévu

jc80 · Answer

Re,
1) Effectivement et excuses moi je ne me souvenais plus avoir vu
2) Pour le  transfert vers les comptes c'est le top
3) Pour la suppression de ligne c'est en cas d'erreur de saisie.
Dommage que je ne puisse faire de suppression
Je viens de trouver pour faire un tableau avec d'avantage de 
colonne.
Merci encore pour ton aide
Crdlt

ccm81 · Answer

Un bug corrigé
Un essai à tester pour supprimer une ligne depuis la feuille Saisie
http://www.cjoint.com/c/GBnr05hcNif
Cdlmnt

jc80 · Answer

Re,
Problème quand je fais des essais je ne peux pas supprimer
Crdlt

ccm81 · Answer

Mais dans les versions précédentes, je t'ai dit que ce n'était pas prévu
On vient de se croiser, vois le fichier ci-dessus post #31 qui permet les suppressions
Cdlmnt

jc80 · Answer

Je viens de tester tout semble fonctionner normalement
Merci encore
Cordialement

Insérer une ligne

33 réponses

Newsletters