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 :

Création de plusieurs lignes toujours au dessus des mêmes lignes, toutes les nouvelles années, à l'aide de VBA


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Homme Profil pro
    Chercheur en informatique
    Inscrit en
    Mars 2014
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Chercheur en informatique
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Mars 2014
    Messages : 1
    Points : 3
    Points
    3
    Par défaut Création de plusieurs lignes toujours au dessus des mêmes lignes, toutes les nouvelles années, à l'aide de VBA
    Je viens vers vous car j'ai besoin d'aide.
    Je suis débutant sur VBA et je n'arrive pas à mettre en place mon code VBA. Je vous explique ce que j'essaye de faire.
    J'aimerais qu'à chaque nouvelle année, lorsque je clique sur le bouton "nouvelle année":
    - Une nouvelle ligne s'insère au dessus de tous les lignes de l'année qui vient de s'écouler (elle sont en violettes sur mon tableur excel).
    - Que dans cette nouvelle ligne soit recopié en valeur les données de la ligne d'après.
    - Que les données de la ligne d'après soit supprimées (sauf la cellule de la première colonne).
    Bonjour à tous !


    J'ai réussi à mettre en place un code me permettant de d'insérer une ligne au dessus d'une ligne sélectionnée mais je n'arrive pas à automatiser mon code.

    voici mon code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub insertionligne()
     With ActiveCell
            .EntireRow.Insert xlShiftDown
            .EntireRow.Copy
            With .Offset(-1).EntireRow
                .PasteSpecial xlPasteValues
            End With
            Application.CutCopyMode = False
        End With
    End Sub

  2. #2
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Points : 10 166
    Points
    10 166
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    La batterie de mon ordi est presque vide. J'ai une idée en tête que je vais tester plus tard ce soir, ou en fin de semaine.

Discussions similaires

  1. Réponses: 6
    Dernier message: 24/02/2012, 15h25
  2. Réponses: 7
    Dernier message: 21/01/2011, 10h48
  3. Réponses: 4
    Dernier message: 31/08/2010, 18h45
  4. Réponses: 2
    Dernier message: 14/11/2008, 18h42
  5. Réponses: 7
    Dernier message: 05/11/2008, 17h33

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