XL 2019 Formulaire pour ajouter ligne tableau

Bens1912 · 18 Octobre 2021

Bonjour tout le monde !

Voila plusieurs années que j'utilise Excel pour ma vidéothèque (plus de 500 films). Aujourd'hui, je souhaite aller plus loin qu'un simple tableau basique. J'ai créé un onglet "Données" avec des listes déroulantes pour mon tableau, ainsi que des mises en formes conditionnelles.

Jusqu'ici, quand j'avais un nouveau film, je rajoutais une ligne manuellement en fin de tableau, et je refaisais un tri par ordre alphabétique. J'aimerais que cette tâche soit faite via un formulaire que je pourrais remplir sur un nouvel onglet. Et je souhaiterais également que cette nouvelle ligne automatisée soit triée et qu'elle soit affectée à une clé (pour la clé en ce moment j'ai une formule (=LIGNE) qui ajoute 1 à chaque fois.

J'ai tenté plusieurs tutos mais impossible de faire fonctionner ce formulaire...

Pouvez-vous m'aider svp ?
Je vous joins mon classeur si besoin

Merci à vous

sylvanu · 18 Octobre 2021

Tri fait en PJ.

sylvanu · 18 Octobre 2021

Bonjour Bens,
Mémoriser une clé automatique ne peut passer que par du VBA. De plus "Ligne' ne peut être la solution car après un tri chaque cellule conservera Ligne et donc ne changera pas de valeur et toutes vos clés seront fausses.

En PJ un essai avec un formulaire dans un onglet comme demandé, avec :

VB:

Sub Ajouter()
    Dim F, Ligne%
    Application.ScreenUpdating = False
    Set F = Sheets("Nouveau")
    If Application.CountA(F.[D6:D18]) <> 7 Then
        MsgBox ("Il manque des informations.")
        Exit Sub
    End If
    With Sheets("Liste des films")
        Ligne = 1 + .Range("A65500").End(xlUp).Row
        For L = 1 To 8
            .Cells(Ligne + 0, L) = F.Cells(2 * L + 2, 4).Value
        Next L
    End With
    F.[D6] = "": F.[D8] = "": F.[D10:D20].ClearContents
End Sub

Evidemment il vous faut accepter les macros.

Par contre aucun tri n'est effectué, le nouveau film se met à la fin de la liste.
Pour effectuer un tri .... il faut savoir quoi trier. ( clé/titre/année ... )

ChTi160 · 18 Octobre 2021

Bonjour Bens
Bonjour le Fil , sylvanu
c'est quoi le mot de pass de la feuille "Données" ?
Bonne journée
jean marie

sylvanu · 18 Octobre 2021

Bonjour Chti,
Comme un mot de passe sur feuille n'a strictement rien de sécurisé, il suffit de copier coller les infos de Données sur une nouvelle feuille. Détruire la feuille Données, renommer la nouvelle feuille Données.
Et vous avez une Feuille Données sans mot de passe.

ChTi160 · 18 Octobre 2021

Re
Oui mais pas cool !
je te laisse faire Lol
Merci
jean marie

sylvanu · 18 Octobre 2021

Alors prenez ma feuille du post #2, elle n'est plus protégée.

Bens1912 · 18 Octobre 2021

Merci, ça fonctionne bien, c'est comme ça que je souhaitait ! Pour le tri, ce serait dans l'ordre alphabétique des titres. J'ai cherché sur google des codes VBA mais impossible de les faire fonctionner

sylvanu · 18 Octobre 2021

Tri fait en PJ.

Bens1912 · 18 Octobre 2021

Ca fonctionne parfaitement ! Merci

XL 2019 Formulaire pour ajouter ligne tableau

Bens1912

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Bens1912

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Bens1912

XLDnaute Nouveau

Discussions similaires