Inserer une ligne en dessous d'une autre

Résolu
Degsher Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   -  
Degsher Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour, je suis très heureux de vous rejoindre sur ce forum. J'ai vu tellement de questions résolues sur ce forum et qui m'ont aidées à comprendre les macros et VBA.

Etant débutant sur VBA, je veux automatiser le calcul d'un journal de caisse, et autres journaux telles que le journal d'achat, de vente et d'opd.

Cependant, je suis coincé à un niveau. Le voici:

J'ai pu créer une macro qui m'insère une ligne vide chaque fois que je suis sur la dernière ligne de mon journal de caisse avec cette syntaxe: activecell.listobject.listrows.add

Cette syntaxe me permettant d'insérer uniquement qu'une ligne après la dernière ligne du tableau, il peut arriver de fois que l'utilisation se soit trompé et souhaiterait donc insérer une ligne un peu plus haut pour compléter le tableau en cas de changement de valeur.

Par exemple:

Date Montant encaissé décaissé solde obsevation
15/02 15000 12000 0 3000 jeu d'icone (ok)
16/02 20000 20000 0 jeu d'icone (ok)
21/02 150000 50000 100000 jeu d'icone (ok)
25/02 200000 200000 0 jeu d'icone (ok)
28/02 125000 125000 0

Ma question: Comment faire pour que si l'utilisateur s'est trompé par exemple et qu'il souhaite insérer après son erreur et qu'il fait insérer entre le 16/02 et le 21/02 une ligne vide puisse s'afficher grâce à la macro ?????????????????????????????????????????????????????????

Amicalement !
A voir également:

6 réponses

Réponse 1 / 6
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

faire Alt F11 sur la feuille concernée pour accéder à l’éditeur

copier ce code dans le module de la feuille.
Il se déclenchera au double clic sur la cellule à laquelle on veut ajouter une ligne au dessus: 

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then ' adapter la colonne
 Rows(Target.Row & ":" & Target.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
End Sub


0
Réponse 2 / 6
Degsher Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
 
Salut Le Pivert. J'apprécie beaucoup la rapidité et l'efficacité avaec laquelle ce forum répond à ces membres.
Une petite question s'il vous plait chef ! Dites à partir de la macro ce n'est pas possible d'insérer une ligne entre deux lignes ??
Voici le lien d'une image..

Je d=recopie votre formule et je vous reviens.. Cool !!

0
Réponse 3 / 6
Degsher Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
 
Je viens d'essayer ta syntaxe et elle est parfaite..
Elle n'est pas mal et je la prefère que celle avec macro..
Ouuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuffffffffff enfin.. Pas de nuit blanche aujourd'hui.. Ça te dirait qu'on travaille sur un projet excel ensemble ??

Comment maintenant transférer les données d'un formulaire vers d'autres feuilles..

thanks !!!
0
Réponse 4 / 6
Degsher Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
 
Mon problème est résolu ! Bravo gars !!
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
si tu veux te servir d'un formulaire, voir ceci qui est très facile à mettre en place:

https://codes-sources.commentcamarche.net/faq/11347-associer-un-formulaire-userform-a-une-base-de-donnees

@+ Le Pivert
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, est-ce vraiment utile d'utiliser les listobjects?
0
Réponse 6 / 6
Degsher Messages postés 72 Date d'inscription   Statut Membre Dernière intervention   1
 
Bonsoir gars !! Je viens de tester sa syntaxe et je l'avoue c'est propre.. Mais malheureusement étant débutant en vba je ne sais pas trop quelle fonction fait quoi donc je ne peux te donner une réponse claire à ta question..

Dis moi s'il te plait comment mettre à jour une feuille chaque mois de sorte que les données qu'elle contient soient transférées vers une autre feuille ?

Amicalement !!!
0