Inserer une ligne en dessous d'une autre Résolu/Fermé

Question

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 !

cs_Le Pivert · Answer

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

Degsher · Answer

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 !!

Degsher · Answer

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 !!!

Degsher · Answer

Mon problème est résolu ! Bravo gars !!

yg_be · Answer

bonjour, est-ce vraiment utile d'utiliser les listobjects?

Degsher · Answer

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 !!!

Inserer une ligne en dessous d'une autre

6 réponses

Discussions similaires