XL 2016 Comment insérer dix lignes déjà prèremplies dans un tableau ?

BONAMY · 5 Juin 2018

Bonjour à tous,

Voilà, je suis entrain de travailler sur un fichier excel et je suis un vrai débutant en VBA.
J'utilise Excel 2016.
Sur la feuille 1 j'ai 40 lignes préremplies.
Sur la feuille 2 j'ai un tableau avec la colonne 2 permettant le choix entre oui ou non (à chaque ligne).
Je souhaiterais que lorsque l'on choisit la réponse oui, les 40 lignes de la feuille 1 s'insèrent dans le tableau de la feuille 2, à la suite de la ligne où est la réponse. Enfin, j'aimerais reproduire cette action sur toutes les lignes de mon tableau de la feuille 2.

Est-ce-que c'est possible ?

Merci à vous !!!

Hieu · 5 Juin 2018

Bonjour Bonamy,
Bienvenu sur XLD.
Un fichier excel exemple est bienvenu pour mieux visualiser le probleme.
Un test avec ce que je comprends :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Set wf = WorksheetFunction
nb_lig = wf.CountA(Sheets("Feuil1").Range("a:a"))
If Target.Address Like "*B*B*" Then Exit Sub
If Target.Address Like "*B*" Then
If Target = "oui" Then
    For i = 1 To nb_lig
    Rows(Target.Row + 1).Insert Shift:=xlDown
    Next i
    Sheets("Feuil1").Range("1:" & nb_lig).Copy
    Range("a" & Target.Row + 1).PasteSpecial
End If
End If
End Sub

XL 2016 Comment insérer dix lignes déjà prèremplies dans un tableau ?

BONAMY

XLDnaute Nouveau

Hieu

XLDnaute Impliqué

Pièces jointes

Discussions similaires

XL 2016 Comment insérer dix lignes déjà prèremplies dans un tableau ?

BONAMY

XLDnaute Nouveau

Hieu

XLDnaute Impliqué

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency