Autres Saisie par userform

KRUG WOO · 24 Novembre 2023

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 · 24 Novembre 2023

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

patricktoulon · 28 Novembre 2023

re
a mais la c'est le datebox avec mask de saise pour les 3 format de date
c'est pas pareil

Eric C · 28 Novembre 2023

re,

peut etre pas pareil mais fonctionnel...
@+

patricktoulon · 28 Novembre 2023

a ben j'espère bien que ca fonctionne

KRUG WOO · 29 Novembre 2023

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!

Autres Saisie par userform

KRUG WOO

XLDnaute Nouveau

Pièces jointes

Oneida

patricktoulon

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

KRUG WOO

XLDnaute Nouveau

Pièces jointes

Discussions similaires