Insertion lignes excel

Résolu
marzhine -  
Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Je voudrais insérer deux lignes au bas d'un tableau excel mais les lignes insérées se positionnent au dessus de la dernière ligne. Comment faire ?
Merci d'avance pour vos réponses.

3 réponses

  1. Frenchie83 Messages postés 2254 Statut Membre 339
     
    Bonjour
    En supposant que le tableau débute en colonne A
    Si vous ne connaissez pas le VBA, A partir de votre fichier ouvert, faire ALT + F11 et collez les lignes suivantes dans la feuille blanche.
    Sub Insertion2Lignes()
        Application.ScreenUpdating = False
        Derlig = [A100000].End(xlUp).Row
        Rows(Derlig & ":" & Derlig + 1).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End Sub

    Revenez sur la feuille Excel, il faut ajouter un bouton ou une figure quelconque exemple:
    dans le ruban, sélectionnez "Insertion",
    -Sélectionnez "Zone de texte", puis collez et dimensionnez cette zone de texte n'importe où sur votre feuille.
    -Puis clic droit dessus,
    -Sélectionnez "Affecter une macro",
    -Cliquez 1 fois sur "Insertion2Lignes"
    -Validez par Ok
    chaque fois que vous cliquerez dessus, ça insèrera 2 lignes avant la dernière ligne.
    Cdlt
    0
    1. Marzhine Messages postés 447 Date d'inscription   Statut Membre Dernière intervention   43
       
      Bonjour,
      J'arrive à insérer les lignes au dessus de la dernière ligne mais j'aurais voulu les insérer après la dernière ligne sans toucher au contenu du tableau, mais finalement j'ai inséré les deux lignes au-dessus de la dernière ligne et remonté le texte de celle-ci..
      Mais votre méthode pourra me servir à l'avenir.
      Merci de m'avoir répondu et bonne journée.
      0
  2. Frenchie83 Messages postés 2254 Statut Membre 339
     
    Bonsoir
    J'avais mal interpréter votre demande, voici la correction
    Sub Insertion2Lignes()
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        Derlig = [A100000].End(xlUp).Row
        Rows(Derlig + 1 & ":" & Derlig + 2).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    End Sub

    Cdlt
    0
    1. Marzhine Messages postés 447 Date d'inscription   Statut Membre Dernière intervention   43
       
      J'ai fait ALT + F11 j'ai une page marron et à gauche deux petites fenêtres blanches euroTool etc. je ne sais pas où inscrire sub etc.
      0
    2. Frenchie83 Messages postés 2254 Statut Membre 339
       
      Bonjour
      Après avoir fait ALT + F11, cliquez sur "Insertion", sélectionnez "Module" et coller le code dans cette grande fenêtre.
      Cdlt
      0
      1. Marzhine Messages postés 447 Date d'inscription   Statut Membre Dernière intervention   43 > Frenchie83 Messages postés 2254 Statut Membre
         
        Bonjour,
        J'avais bien inséré les lignes mais je ne les voyais pas... je garde quand même votre méthode au cas où...
        Merci pour toutes vos réponses et bonne après-midi.
        0
  3. fredy2800 Messages postés 179 Date d'inscription   Statut Membre Dernière intervention   14
     
    Bonjour,
    Sélectionne la dernière ligne qui vient tout juste après le tableau en cliquant sur le numéro de la ligne à droite, ensuite clic droit insertion, répète l'opération une deuxième fois.
    Cdt
    0
    1. Marzhine Messages postés 447 Date d'inscription   Statut Membre Dernière intervention   43
       
      Bonjour,
      Ok c'est bon, en fait mon problème était que quand j'insérais de lignes, les cellules n'étant pas bordées, elles n'apparaissaient pas avec l'aperçu avant impression... mais elles étaient bien là...
      Merci de m'avoir répondu et bonne après-midi
      0
      1. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482 > Marzhine Messages postés 447 Date d'inscription   Statut Membre Dernière intervention  
         
        On n'ajoute jamais de lignes ou de colonnes juste avant des formules, ni dans une plage pour laquelle un nom a été défini.
        La bonne méthode est d'insérer les 2 lignes au beau milieu du tableau, puis de faire éventuellement un tri pour les remettre dans l'ordre voulu.
        0
      2. Marzhine Messages postés 447 Date d'inscription   Statut Membre Dernière intervention   43 > Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention  
         
        Comme je l 'ai dit dans mon message précédent, j'avais bien inséré des lignes mais elles n'étaient pas visibles...
        0
      3. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482 > Marzhine Messages postés 447 Date d'inscription   Statut Membre Dernière intervention  
         
        Tu as probablement inséré un tableau automatique :
        peu d'avantages, beaucoup d'inconvénients ...
        0