XL 2013 Formulaire valider/modifier

Appo1985 · 31 Décembre 2023

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 · 31 Décembre 2023

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 · 31 Décembre 2023

Bonjour,

Tu as un tableau structuré alors autant en profiter.

VB:

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 · 31 Décembre 2023

Bonjour à tous 🙂 ,

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

Dranreb · 31 Décembre 2023

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 · 31 Décembre 2023

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 · 31 Décembre 2023

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 · 31 Décembre 2023

Bonjour à tous,

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

VB:

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 · 31 Décembre 2023

Merci bi

job75 à dit:
Bonjour à tous,

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

VB:

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 · 31 Décembre 2023

job75 à dit:
Bonjour à tous,

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

VB:

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 · 31 Décembre 2023

Bonjour
Ci joint ma solution

A+ François

Appo1985 · 31 Décembre 2023

fanfan38 à dit:
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 · 31 Décembre 2023

Dranreb à dit:
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 · 31 Décembre 2023

Problème corrigé

A+ François

mapomme · 31 Décembre 2023

de @Appo1985 :

Appo1985 à dit:
@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.

XL 2013 Formulaire valider/modifier

Appo1985

XLDnaute Occasionnel

Pièces jointes

Oneida

XLDnaute Impliqué

Pièces jointes

Dudu2

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

Appo1985

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Appo1985

XLDnaute Occasionnel

Appo1985

XLDnaute Occasionnel

fanfan38

XLDnaute Barbatruc

Pièces jointes

Appo1985

XLDnaute Occasionnel

Appo1985

XLDnaute Occasionnel

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Discussions similaires

XL 2013 Formulaire valider/modifier

XLDnaute Occasionnel

Pièces jointes

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency