Sujet Précédent Sujet Suivant

Inserer une ligne en dessous d'une autre

Résolu/Fermé
Degsher Messages postés 72 Date d'inscription mercredi 15 avril 2020 Statut Membre Dernière intervention 31 mai 2020 - Modifié le 15 avril 2020 à 17:28
Degsher Messages postés 72 Date d'inscription mercredi 15 avril 2020 Statut Membre Dernière intervention 31 mai 2020 - 15 avril 2020 à 19:56
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 !

6 réponses

Réponse 1 / 6
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 avril 2020 à 17:43
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 mercredi 15 avril 2020 Statut Membre Dernière intervention 31 mai 2020 1
15 avril 2020 à 17:47
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 mercredi 15 avril 2020 Statut Membre Dernière intervention 31 mai 2020 1
15 avril 2020 à 17:55
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 mercredi 15 avril 2020 Statut Membre Dernière intervention 31 mai 2020 1
15 avril 2020 à 17:59
Mon problème est résolu ! Bravo gars !!
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 avril 2020 à 18:02
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 22731 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2024 1 477
15 avril 2020 à 18:43
bonjour, est-ce vraiment utile d'utiliser les listobjects?
0
Réponse 6 / 6
Degsher Messages postés 72 Date d'inscription mercredi 15 avril 2020 Statut Membre Dernière intervention 31 mai 2020 1
15 avril 2020 à 19:56
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

Discussions similaires

Statut « en ligne » alors que non
GgBono -
Slickk -

1 réponse
Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
mamybigoud68 -

9 réponses
On me voit connecté sur facebook alors que je n'y suis pas
MrTheMolode -
lily -

5 réponses