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

valsarracheleschveux

XLDnaute Nouveau
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 !
 

Fichiers joints

Dernière édition:

fanch55

XLDnaute Impliqué
Salut,
1) solution au copier/coller
VB:
Sub Macro1()

    [Table13].ListObject.ListRows.Add
    [Table1].SpecialCells(xlCellTypeVisible).Copy _
        [Table13].Rows([Table13].Rows.Count).Cells(1)
End Sub
 
Dernière édition:

fanch55

XLDnaute Impliqué
2) pour la partie des valeurs par défaut :
Code:
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 ....
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas