IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Macro pour ajouter une ligne en fin de tableau


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Novembre 2019
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 24
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2019
    Messages : 3
    Par défaut Macro pour ajouter une ligne en fin de tableau
    Bonjour à tous n'ayant pas d'expérience en VBA, j'ai voulu créer une macro pour ajouter une ligne en fin de tableau sauf que je rentre des valeurs dans cette nouvelle ligne.
    Sauf que le problème de l'enregistreur de macro est qu'il prends les cellule en brut donc à chaque fois que j’exécute ma macro il me créer une ligne à partir de la ligne 11 et me décale tout mon tableau du coup.
    J'ai essayé de regarder sur internet des soluces mais aucune me conviennent réellement car il faut remplir des cellules.

    Voici ma Macro :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Sub Nouvelle_ligne()
    '
    ' Nouvelle_ligne Macro
    '
     
    '
        Rows("11:11").Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("A10").Select
        Selection.AutoFill Destination:=Range("A10:A11"), Type:=xlFillDefault
        Range("A10:A11").Select
        Range("G11").Select
        ActiveCell.FormulaR1C1 = "0"
        Range("G12").Select
        ActiveWindow.SmallScroll Down:=-3
        Range("J11").Select
    End Sub
    Voilà voilà merci d'avance
    Excel 2013
    Fichiers attachés Fichiers attachés

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Toutes versions] Ajouter une ligne en fin de tableau excel avec une vba
    Par Gordongekko dans le forum Macros et VBA Excel
    Réponses: 24
    Dernier message: 23/04/2017, 13h09
  2. [XL-2016] Ajouter une ligne en fin de tableau excel avec une vba
    Par Karkan dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 21/01/2017, 16h06
  3. Macro pour ajouter une ligne dans une feuille automatiquement
    Par nianko dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 09/11/2010, 10h52
  4. Comment faire pour ajouter une ligne seulement !
    Par Fredri dans le forum Access
    Réponses: 1
    Dernier message: 26/12/2005, 12h44
  5. Ajouter une ligne à la fin d'un classeur excel
    Par maketossss dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 28/11/2005, 10h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo