Autres Saisie par userform

KRUG WOO

XLDnaute Nouveau
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 👍
 

Pièces jointes

  • Userform et saisie.xlsm
    19.9 KB · Affichages: 15
Solution
Bonjour,
Vous ne pouvez pas utiliser des instructions pour tableau vu que vous n'avez pas de tableau
VB:
activecell.entireRow.select ou activecell.entireColumn.select
Ben, inutile aussi
Vous validez une liste d'infos a la fois donc pas de boucle
VB:
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

KRUG WOO

XLDnaute Nouveau
Bonsoir Éric,
Est ce que tu peux voir ce que tu peux faire sur mon nouveau fichier s'il te plaît.
J'arrive pas à trouver le code.
Avec 500 lignes dans listbox, j'aimerais faire une filtre par combobox et taper le mot dans textbox, une fois fait le filtre, je clic sur le mot dans listbox, je modifie le mot et le valider à nouveau.
Merci!
 

Pièces jointes

  • VBA test mad applique.xlsm
    33.9 KB · Affichages: 8

Discussions similaires

Statistiques des forums

Discussions
312 223
Messages
2 086 403
Membres
103 201
dernier inscrit
centrale vet