XL 2016 Incrémentation de 2 tableaux automatique à partir d'un seul

RobyL

XLDnaute Junior
Bonjour,

je souhaite incrémenter un tableau automatiquement si une cellule est non vide.
le but est qu'il copie une ligne d'une certaine colonne à une autre. et la colle dans la feuille où ce trouve le tableau.
tous est expliquer dans le fichier joint. c'est compliquer de bien expliquer par message.
je ne sait pas du tout comment m'y prendre : vba ou formule ou autre.

merci pour vos idées et votre aide.
 

Pièces jointes

  • SP.xlsx
    17.6 KB · Affichages: 11
Solution
Bonjour RobyL, Jacky67, le forum,

Voyez le fichier joint et cette macro dans ThisWorkbook :
VB:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim P As Range, Q As Range, R As Range
Application.ScreenUpdating = False
With Sheets("BASE").[A1].CurrentRegion
    Set P = .Columns(1).Resize(, 3) '3 premières colonnes
    Set Q = .Rows(1).Find(Sh.Name, , xlValues, xlWhole) 'recherche de X ou Y
    If Q Is Nothing Then Exit Sub
    Set Q = Intersect(.Cells, Q.MergeArea.EntireColumn) 'colonnes X ou Y
    Set R = Q.Columns(1).SpecialCells(xlCellTypeConstants).EntireRow 'filtrage
    Sh.Cells.Delete 'EAZ
    Intersect(Union(P, Q), R).Copy Sh.[A1] 'copier-coller
    '---mises en forme---
    With Sh.UsedRange
        Set P =...

Discussions similaires

Statistiques des forums

Discussions
311 737
Messages
2 082 036
Membres
101 878
dernier inscrit
1475214