XL 2013 Formulaire valider/modifier

[Appo1985]

Bonjour.
Au lieu de commencer à la première ligne vide du tableau, quand je clique sur valider/modifier les données commencent à s'enregistrer à la deuxième ligne du tableau. Je voudrais de l'aide.
Ci-joint le fichier

 

[Oneida]

Bonjour,

Une facon de faire avec la recherche de la ligne suivante avec les instructions liees au Tableau1 et remplissage lambda des cellules de la ligne
La meilleur facon de faire serait d'utiliser seulement les instructions liees aux tableaux structures Excel.
Mais avec ce fichier ca le fait

 

[Dudu2]

Bonjour,

Tu as un tableau structuré alors autant en profiter.

Private Sub CommandButton2_Click()
    Dim Tbl As ListObject
    
    Set Tbl = ThisWorkbook.Worksheets("Feuil1").ListObjects(1)
    
    With Tbl
        .ListRows.Add
        .ListColumns("Nom et prénom").DataBodyRange(.ListRows.Count).Value = ComboBox1.Value
        .ListColumns("Sexe").DataBodyRange(.ListRows.Count).Value = ComboBox2.Value
        .ListColumns("Classe").DataBodyRange(.ListRows.Count).Value = ComboBox3.Value
    End With
    
    ComboBox1.Value = ""
    ComboBox2.Value = ""
    ComboBox3.Value = ""
End Sub

D'autre part tu utilises des ComboBoxes au lieu d'utiliser des TextBoxes pour la saisie.

 

[mapomme]

Bonjour à tous ,

Un essai d'une version remaniée et un peu plus complète. Tous les boutons fonctionnent.

 

[Dranreb]

Bonjour.
Il y a toujours mes objets ComboBoxLiées et ControlsAssociés qui simplifient considérablement la programmation de l'UserForm lui même.

 

[Appo1985]

Grandement merci à tous.
Vos réponses me satisfont vraiment.
@Dranreb j'ai toujours essayer d'adapter le fichier CLsCASContct à mes fichiers en vain. Au fait, je ne sais pas où est ce que je doit modifier pour que ça marche.
@mapomme, comment faire pour ne pas recevoir le message "Valeur de propriété non valide" quand on modifie ?

 

[Dranreb]

C'est essentiellement la Sub UserForm_Initialize qui est à retoucher. Le reste change toujours très peu, et selon les cas je m'en occuperai si des adaptations sont nécessaires.
Bien sûr commencez d'abord par ajouter les contrôles nécessaires et donnez leur des noms mnémoniques commençant par un trigramme pris de cette liste.

 

[job75]

Bonjour à tous,

Pour répondre simplement à la question posée on peut rechercher la 1ère cellule vide en 1ère colonne :

Private Sub CommandButton2_Click()
With [Tableau1] 'tableau structuré
    With .Cells(1).EntireColumn.Find("", .Cells(0, 1), xlValues) '1ère cellule vide
        .Value = ComboBox1
        .Offset(, 1) = ComboBox2
        .Offset(, 2) = ComboBox3
    End With
End With
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
End Sub

A+

 

[Appo1985]

Merci bi

Bonjour à tous,

Pour répondre simplement à la question posée on peut rechercher la 1ère cellule vide en 1ère colonne :

Private Sub CommandButton2_Click()
With [Tableau1] 'tableau structuré
    With .Cells(1).EntireColumn.Find("", .Cells(0, 1), xlValues) '1ère cellule vide
        .Value = ComboBox1
        .Offset(, 1) = ComboBox2
        .Offset(, 2) = ComboBox3
    End With
End With
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
End Sub

A+

Merci bien

 

[Appo1985]

Bonjour à tous,

Pour répondre simplement à la question posée on peut rechercher la 1ère cellule vide en 1ère colonne :

Private Sub CommandButton2_Click()
With [Tableau1] 'tableau structuré
    With .Cells(1).EntireColumn.Find("", .Cells(0, 1), xlValues) '1ère cellule vide
        .Value = ComboBox1
        .Offset(, 1) = ComboBox2
        .Offset(, 2) = ComboBox3
    End With
End With
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
End Sub

A+

Merci

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[Appo1985]

Bonjour
Ci joint ma solution

A+ François

Merci bien.

Je ne sais pas si c'est chez moi seulement maintenant quand j'essaie de modifier le nom et prénom.
Dans le combobox2 ça s'écrit "Sexe" et dans le combobox3 "Classe"

 

[Appo1985]

C'est essentiellement la Sub UserForm_Initialize qui est à retoucher. Le reste change toujours très peu, et selon les cas je m'en occuperai si des adaptations sont nécessaires.
Bien sûr commencez d'abord par ajouter les contrôles nécessaires et donnez leur des noms mnémoniques commençant par un trigramme pris de cette liste.
Regarde la pièce jointe 1187448

J'ai essayé mais avec votre fichier j'y étais presque arrivé mais il ya des anomalies.
Avec le mien il ya des erreurs qui s'affichent

 

[fanfan38]

Problème corrigé

A+ François

 

[mapomme]

de @Appo1985 :

@mapomme, comment faire pour ne pas recevoir le message "Valeur de propriété non valide" quand on modifie ?

C'est normal ! Il faut que chacun des trois champs soit renseigné : nom+prénom, sexe et classe.

Si vous observez bien, vba sélectionne le premier champ vide (Sexe ou Classe) qu'il faut renseigner à la suite de ce message.