Autres Saisie par userform

[KRUG WOO]

Bonsoir les amis,
j'ai un fichier que j'aimerai automatiser les saisies des données par userform: valider, supprimer, modifier.
j'utilise le Range("nom du tableau").ListObject.ListRows.Add.Range.... mais ne marche pas, peut être qu'il faut utiliser activecell.entireRow.select ou activecell.entireColumn.select pour que ça marche, enfin je crois
J'espère que je ne fais pas de bêtises pour les structures
Merci

 

[Oneida]

Bonjour,
Vous ne pouvez pas utiliser des instructions pour tableau vu que vous n'avez pas de tableau

activecell.entireRow.select ou activecell.entireColumn.select

Ben, inutile aussi
Vous validez une liste d'infos a la fois donc pas de boucle

Private Sub CmD_Valider_Click()
    Dim PCV As Long
    
    With Worksheets("feuil1")
        PCV = .Range("B" & .Rows.Count).End(xlUp).Row + 1
        .Cells(PCV, 1) = Reference.Value
        .Cells(PCV, 2) = Nom.Value
        .Cells(PCV, 3) = Prenom.Value
        .Cells(PCV, 4) = Designation.Value
        .Cells(PCV, 5) = Montant.Value
    End With
End Sub

 

[ChTi160]

Bonsoir le Fil
Ce que j'ai fait (à tester)
Création du Tableau Structuré "t_BDD"
Jean marie

 

[KRUG WOO]

Bonjour,
Vous ne pouvez pas utiliser des instructions pour tableau vu que vous n'avez pas de tableau

activecell.entireRow.select ou activecell.entireColumn.select

Ben, inutile aussi
Vous validez une liste d'infos a la fois donc pas de boucle

Private Sub CmD_Valider_Click()
    Dim PCV As Long
   
    With Worksheets("feuil1")
        PCV = .Range("B" & .Rows.Count).End(xlUp).Row + 1
        .Cells(PCV, 1) = Reference.Value
        .Cells(PCV, 2) = Nom.Value
        .Cells(PCV, 3) = Prenom.Value
        .Cells(PCV, 4) = Designation.Value
        .Cells(PCV, 5) = Montant.Value
    End With
End Sub

Bonjour Oneida,
Merci ça marche, mais avec ton code est-ce facile de modifier ou supprimer les données saisies dans le ComboBox, ou cela laisse une ligne vide?
Merci

 

[KRUG WOO]

Bonsoir le Fil
Ce que j'ai fait (à tester)
Création du Tableau Structuré "t_BDD"
Jean marie

Bonjour ChTi160,
j'ai fait un test et ça marche, c'est rapide avec la création du tableau structuré, simplement, j'aimerais personnalisé le tableau. Mais, dans ma deuxième projet que j'ai fait, ton idée est vraiment efficace
Merci

 

[Eric C]

Bonjour le forum
Bonjour KRUG WOO, Oneida et mon Chti Jean-Marie

Jean-Marie, je me permets de rectifier ton code pour que si la personne est recalée, il soit indiqué le nombre de point(s) manquant.

LstR.Range(1, 7) = IIf(LstR.Range(1, 5) >= 55, "Admis", "Recalé, il manque " & (55 - LstR.Range(1, 5) & " points"))

Bon ouikand à toutes & à tous.
Eric c

 

[KRUG WOO]

Bonjour le forum
Bonjour KRUG WOO, Oneida et mon Chti Jean-Marie

Jean-Marie, je me permets de rectifier ton code pour que si la personne est recalée, il soit indiqué le nombre de point(s) manquant.

LstR.Range(1, 7) = IIf(LstR.Range(1, 5) >= 55, "Admis", "Recalé, il manque " & (55 - LstR.Range(1, 5) & " points"))

Bon ouikand à toutes & à tous.
Eric c

Bonsoir Éric C,
J'ai pas remarqué

 

[KRUG WOO]

Eric C,
Tu as raison, merci pour le code. Est-ce que je te demande trop si tu peux améliorer les boutons modifier et supprimer dans mon userform?
Bon weekend les amis

 

[Jacky67]

....améliorer les boutons modifier et supprimer dans mon userform?

Bonjour à tous
Essaye le classeur en pj
**PJ modifiée

 

[Eric C]

Bonjour le forum
Bonjour le fil, bonjour Jacky67

Disposant d'un peu de temps libre, je me suis permis de modifier quelque peu une partie de ton code (très bien réalisé avec le féminin ou masculin... Je vais reprendre l'idée, Merci Jacky) en :
- Créant un ordre de tabulationpour le déplacement dans l'Usf.
- Revoyant le code pour l'age des membre de la société (Si la personne avait un an, un "S" restait à "Ans"). Je conçois que c'est peu car une personne de 1 an ne peut être admise au sein de l'entreprise ...) mais c'est pour l'évolution du fichier de KRUG WOO.
- Déposant des Slashs automatiques lors de l'entrée de la date et vérification que la date entrée soit correcte.
Il reste peut etre quelques améliorations mais nous sommes dimanche et donc bon dimanche à toutes & à tous. Va aller boire un tit apéro tient.
Eric c

 

[mapomme]

Bonjour @Eric C

Va aller boire un tit apéro tient.

Pas une mauvaise idée ça !

 

[Jacky67]

Bonjour le forum
Bonjour le fil, bonjour Jacky67

Disposant d'un peu de temps libre, je me suis permis de modifier quelque peu une partie de ton code (très bien réalisé avec le féminin ou masculin... Je vais reprendre l'idée, Merci Jacky) en :
- Créant un ordre de tabulationpour le déplacement dans l'Usf.
- Revoyant le code pour l'age des membre de la société (Si la personne avait un an, un "S" restait à "Ans"). Je conçois que c'est peu car une personne de 1 an ne peut être admise au sein de l'entreprise ...) mais c'est pour l'évolution du fichier de KRUG WOO.
- Déposant des Slashs automatiques lors de l'entrée de la date et vérification que la date entrée soit correcte.
Il reste peut etre quelques améliorations mais nous sommes dimanche et donc bon dimanche à toutes & à tous. Va aller boire un tit apéro tient.
Eric c

Bonjour Eric, mapomme,

Je m'élève fortement contre le plagiat de mon classeur, et va de ce pas en informer mon conseillé juridique.
Mais, comme mapomme, je me joins à l'idée de ==>>"Va aller boire un tit apéro tient."

 

[KRUG WOO]

Bonjour le forum
Bonjour le fil, bonjour Jacky67

Disposant d'un peu de temps libre, je me suis permis de modifier quelque peu une partie de ton code (très bien réalisé avec le féminin ou masculin... Je vais reprendre l'idée, Merci Jacky) en :
- Créant un ordre de tabulationpour le déplacement dans l'Usf.
- Revoyant le code pour l'age des membre de la société (Si la personne avait un an, un "S" restait à "Ans"). Je conçois que c'est peu car une personne de 1 an ne peut être admise au sein de l'entreprise ...) mais c'est pour l'évolution du fichier de KRUG WOO.
- Déposant des Slashs automatiques lors de l'entrée de la date et vérification que la date entrée soit correcte.
Il reste peut etre quelques améliorations mais nous sommes dimanche et donc bon dimanche à toutes & à tous. Va aller boire un tit apéro tient.
Eric c

Bonjour Eric C,
Boire un tit apéro, pas mal ton idée
Bon fin de weekend

 

[KRUG WOO]

Bonjour les amis,
Vous m'avez donné plus que je demandais, respect les amis.
Merci à tous.

 

[Jacky67]

Bonjour les amis,
Vous m'avez donné plus que je demandais, respect les amis.
Merci à tous.

Re
Classeur modifié en #9