XL 2021 Soucis d’effacement dans ma colonne AE

vgendron à dit:

Bonjour

la cellule AE2 ne se vide pas parce qu'aucun code ne l'efface.., donc, c'est normal..

mais maintenant.. je vois pas à quoi servent les cellules AD2 et AE2 ? ==> afficher le nom selectionné.. ok.. mais pour en faire quoi?

ensuite, ta plage "TBl_02" mériterait d'etre transormée en Table Structurée==> exit les lignes vides inutiles

Cliquez pour agrandir...

ARRU à dit:

Concernant les cellules AD2 et AE2 cela me permet de trouver la ligne de l'adhérent (plus de 300 adhérents) rapidement car je c'est pas comment pointer directement sur l'adhérent recherché
Pour le tableau structuré pas de soucis

Cliquez pour agrandir...

vgendron à dit:

ok,
est ce que tu peux expliquer ton application.. à quoi elle sert, comment tu l'utilises..

c'est juste une base de données de noms avec infos?

Cliquez pour agrandir...

vgendron à dit:

regarde la PJ, j'ai repris la quasi intégralité de ton fichier

1) transformation des tableaux en Tables Structurées avec des noms explicit 't_Catégorie", 't_BDD"....
2) j'ai renommé tous les controls du formulaire==> Tbx_Prénom est plus parlant que textbox5
3) j'ai remplacé le textbox du nom par un Combobox==> il suffit de taper dedans pour que la liste des noms correspondants se mette à jour
==> dès qu'un nom est selectionné==> le formulaire est rempli avec les infos
==> si tu tapes un nouveau nom, le formulaire reste vide
4) je n'ai gardé que 3 boutons sur le formulaire
quand tu cliques sur enregistrer
==> s'il s'agit d'un nom existant, il te propose de modifier directement la ligne
==> s'il s'agit d'un nouveau nom, il ajoute une ligne dans la BDD
quand tu cliques sur supprimer: la ligne est supprimée de la BDD (pas de demande de confirmation==> mais on peut facilement en ajouter une

le bouton "Réinitialiser", vide le formulaire

Cliquez pour agrandir...

Valtrase à dit:

Bonsoir,
Vous devez modifier la procédure enregistrer pour avoir ce résultat.

VB:

Private Sub Cmb_Enregsitrer_Click()              'Modifier
    Dim Lig As Long
    If Me.Cbx_Nom.ListIndex = -1 And Me.Cbx_Nom = vbNullString Then Exit Sub
    With Sheets("Base de données").ListObjects("t_BDD")
        Set trouve = .ListColumns("Nom").Range.Find(Me.Cbx_Nom, lookat:=xlWhole)
        If Not trouve Is Nothing Then            'le nom existe déjà ==> si on modifie
            If MsgBox("Ce nom existe déjà, souhaitez vous le modifier?", vbYesNo) = vbNo Then
                Lig = .ListRows.Add.Index
                .DataBodyRange(Lig, 1) = Application.WorksheetFunction.Max(.ListColumns(1).Range) + 1
            Else
                Lig = trouve.Row - .Range.Row
            End If
        Else                                     'le nom n'existe pas.. il s'agit d'une nouvelle entrée
            Lig = .ListRows.Add.Index
            .DataBodyRange(Lig, 1) = Application.WorksheetFunction.Max(.ListColumns(1).Range) + 1
        End If
        SaveForm (Lig)
    End With
    ResetAllControls True
    PopulateCombobox
End Sub

Pour ma part je ferais le contrôle sur la méthode AfterUpdate du contrôle Nom mais bon...

Un peu de lecture : USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire. CRUD

Cliquez pour agrandir...

vgendron à dit:

Hello

regarde la PJ, j'ai modifié le code pour vérifier l'existence du "Nom - prénom"
==> tu peux donc normalement avoir plusieurs membre d'une meme famille

et du coup.. cette solution est une solution dans laquelle on déplace le problème...
si tu as deux homonymes... on aura à nouveau le meme problème..
il faudrait donc vérifier aussi l'adresse? ou un autre élément? pour être sur d'avoir deux personnes différentes..

Cliquez pour agrandir...