Microsoft 365 Copier-coller automatique d'une vue filtrée + insertion automatique de valeurs en ligne lors d'une nouvelle ligne

[valsarracheleschveux]

Bonjour,

Je sollicite votre aide sur deux points bloquants :

1) comment copier les cellules d'un tableau filtré se trouvant dans une première feuille, puis les coller dans le tableau d'une deuxième feuille à partir d'un bouton ?
je souhaite coller uniquement ma vue filtrée et non pas toutes les cellules de mon tableau. Le tableau de la deuxième feuille contient des colonnes que le tableau de la première feuille n'a pas et je ne souhaite pas les impacter.

2) lorsque je souhaite ajouter une nouvelle ligne à mon tableau, je souhaite que la valeur "À évaluer" soit insérée en colonne F et G automatiquement (de préférence dès lors que je me rend sur la ligne suivant la dernière ligne de mon tableau et que j'insère une valeur).

dans la plage des colonnes F et G, le format de cellule devrait être "custom" avec pour valeur :
1 : "Oui"
0 : "Non"
-1 : "À évaluer"

Grâce à la validation de donnée, si une des 3 valeur 1, 0, -1 se trouve dans ma plage, celle-ci affiche le texte correspondant. Ce que je recherche donc ici, c'est qu'à l'insertion d'une nouvelle ligne dans mon tableau, les cellules (F,new.row) et (G,new.row) sont incrémentés automatiquement de -1.


Fichier excel en pj.

Merci pour votre aide !

 

[fanch55]

Salut,
1) solution au copier/coller

Sub Macro1()

    [Table13].ListObject.ListRows.Add
    [Table1].SpecialCells(xlCellTypeVisible).Copy _
        [Table13].Rows([Table13].Rows.Count).Cells(1)
End Sub

 

[fanch55]

2) pour la partie des valeurs par défaut :

Private Sub Worksheet_Change(ByVal Target As Range)
    For Each Cell In Target.Cells
        If Not Intersect(Cell, [Table1[[colonne6]:[Colonne7]]]) Is Nothing Then
            Application.EnableEvents = False
                If Cell = "" Then Cell.Value = "À évaluer"
            Application.EnableEvents = True
        End If
    Next
End Sub

Par contre, j'ai rien compris au restant, y'a déjà les Validations de données ....