Insertion de ligne automatique excel

Question

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.

Gamapave · Accepted Answer

Il faut créer un nouvelle macro "transpose_dans_tableau"

Sub transpose_dans_tableau()
    'Atteindre le formulaire et mémoriser les donées
    Sheets("Formulaire").Select
    Range("B1:B4").Select
    Selection.Copy
    'Test pour détermier la ligne ou coller les infos dans le tableau
    Sheets("Base de données").Select
    valeurA2 = Range("A2").Value
    If valeurA2 = "" Then
        Range("A2").Select
    Else
         Range("A1").Select
         Selection.End(xlDown).Select
         ligne_active_base = ActiveCell.Row
         Range("A" & ligne_active_base + 1).Select
    End If
    'Mémorise le n° de la ligne où coller les données
    ligne_active_base = ActiveCell.Row
    'Collage avec transposition
    Range("A" & ligne_active_base).Select
    Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    'Rendre vierge le formulaire
    Sheets("Formulaire").Select
    Range("B1:B4").Select
    Selection.ClearContents
    Range("B1").Select
    'Retourner dans le tableau
    Sheets("Base de données").Select
    Range("A1").Select
End Sub

R2EL · Answer

Bonjour  Binouse18, 

malheureusement je ne vais par repondre a votre probleme mais je veux aussi la reponce de votre probleme 
si depuis le temps vous avez pu obtenir la solution merci de faire suivre. bonne année

Insertion de ligne automatique excel

2 réponses

Discussions similaires

Newsletters