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 :

[VBA-E]Insertion de ligne automatique


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    17
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 17
    Par défaut [VBA-E]Insertion de ligne automatique
    Bonjour,
    Je traavaille sous excel et je souhaiterai insérer automatiquement des lignes dans un tableau. En faite je veux que quand la cellule A1 n'est plus vide une ligne vierge soit insérer entre la ligne 1 et la ligne 2. Quand la cellule A2 n'est pas vide une ligne vierge soit insérer entre la ligne 2 et la ligne 3 et ainsi de suite. Je souhaite que les lignes de mon tableau apparaissent au fur et à mesure que je le remplit.
    Je vous reercie de me filler un petit coup de pouce.

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    A vrai dire, je ne comprends pas ta question. Si tu cherches la première ligne vide, tu as l'embarras du choix
    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
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
        'UsedRange
        'Donne le nombre de lignes renseignées où qu'elle soient
        'Si les lignes 1 à 10 et 17 à 19 sont vides, mais que les lignes 11 à 16 et
        'les lignes 20 à 24 sont renseignées, donne 11 (6 + 5)
        NbLignes = ActiveSheet.UsedRange.Rows.Count
    
        'UsedRange -> Première ligne renseignée de la feuille
        LaPremièreLigne = ActiveSheet.UsedRange.Row
    
        'CurrentRegion -> Dernière ligne de la Plage
        'S'il n'y a pas de ligne vide dans la plage de données, que la cellule "Cel"
        'se trouve dans la plage de données, donne le No de la dernière ligne
        'de la plage de données, non de la feuille
        DerniereLigne = Range(Cel).CurrentRegion.End(xlDown).Row
    
        'CurrentRegion ->¨Adresse de la plage
        'S'il n'y a pas de ligne vide dans la plage de données, si la cellule "Cel" se 
        'trouve dans la plage de données, donne la plage de données.
        'Ex : Cel = "A15" où "A15" se trouve dans la plage A4:N25
        Plage = Range("A15").CurrentRegion.Address '=> "$A$4:&N$25"
    
        'Range(...).End(xlUp) -> Dernière ligne de la feuille pour la colonne 
        'Pour connaître la dernière ligne absolue renseignée de la colonne
        DerniereLigne = Range("A65535").End(xlUp).Row
    
        'Range("A1").End(xlDown). -> Dernière ligne de la plage
        'Pour connaître la dernière ligne de la plage renseignée commençant
        'sur A1
        DerniereLigne = Range("A1").End(xlDown).Row
    
        'Range(...).End(xlDown). -> Dernière ligne de la plage
        'Pour connaître la dernière ligne de la plage renseignée commençant
        'Range("A15")
        DerniereLigne = Range("A15").End(xlDown).Row
    
        'Range(...).SpecialCells(xlCellTypeLastCell) -> Dernière ligne de la feuille
        'S'il existe ou non des lignes vides dans dans la feuille
        'donne la dernière ligne renseignée absolue de la feuille
        'Attention : Si des lignes sont supprimées dans la plage,
        'enregistrer le fichier pour avoir le réel N° de la dernière ligne
        DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    
        'Range(...).SpecialCells(xlCellTypeLastCell) -> Adresse de la dernière cellule
        'Donne l'adresse absolue de la dernière cellule renseignée de la feuille
        Range("A1").SpecialCells(xlCellTypeLastCell).address
    
        'Pour les colonnes, c'est pareil, mais pour les colonnes
        DerniereColonne = ActiveSheet.UsedRange.Columns.Count
        DernièreColonne = Selection.CurrentRegion.End(xlToRight).Column
        DerniereColonne = Range("A1").End(xlToRight).Column
        DerniereColonne = Range("IV1").End(xlToLeft).Column
        DerniereColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column
    Enfin pour avoir la première ligne ou colonne vide...
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
        PremiereLigneVide = DerniereLigne + 1
        PremiereColonneVide = DerniereColonne  + 1


    NB - J'ai vraiment rien à foutre

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    17
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 17
    Par défaut
    Je te remercie pour ta réponse en fait au début je commence avec un tableau à une ligne. Je veux que quand cette ligne est remplit une ligne vierge en dessous soit insérer. Une fois que cette nouvelle ligne est remplit je veut qu'une nouvelle ligne vierge soit insérer en dessous et ainsi de suit. J'espère que c'est explication sera plus claire.

  4. #4
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Pourquoi insérer des lignes vides ? Au départ, lors de la première insersion, ta feuille est vide ou est-elle déjà renseignée ?
    A+

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    17
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 17
    Par défaut
    Au départ j'ai la première ligne qui contient mes en-tête de collone, la ligne 2 est un ligne vide. Je veux qu'une fois que cette ligne est renseigné une ligne 3(vierge) s'insére automatiquement. Une fois que j'ai renseigné cette ligne 3, je veut qu'une ligne 4 (vierge) s'insére et ainsi de suite. Je te remercie

  6. #6
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Au départ, et à part la ligne d'entête, ta feuille comporte-t-elle des données oui ou non ? Ma réponse dépend de ta réponse !
    A+

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

Discussions similaires

  1. [XL-2007] Insertion de lignes automatiques avec copie suivant condition
    Par Toresupra dans le forum Excel
    Réponses: 4
    Dernier message: 20/03/2015, 15h23
  2. Réponses: 2
    Dernier message: 19/06/2014, 15h20
  3. [VBA-E] ajout de ligne automatique en fin de tableau
    Par zoumzoum59 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 11/06/2006, 21h13
  4. [VBA-E]insertion automatique d'une ligne dans un tableau
    Par janus82 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 06/04/2006, 15h42
  5. [VBA-E]ajout de ligne automatique
    Par deathsurfer dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 14/01/2006, 13h22

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