Transfert UserForm vers Feuille ?
Bonjour a tous
Avant de venir vous solliciter, j'essaie de me dépatouiller par moi même, mais voilà, mes connaissances VBA sont encore bien trop légères et j'ai encore besoin de votre aide...
Alors voilà, dans mon UserForm "U_Liste" je recherche un nom en tapant une lettre dans la txtBox "Recherche par Nom".
Je sélectionne une ligne dans la lstBox...
Je voudrais qu'en cliquant sur le bouton inscription, certaines données soient copiées dans la feuille "Inscriptions" (voir la feuille en question) à partir de la cellule "B2"
Qu'un Numéro s'incrémente à chaque nouvelle entrée.
Une aide de votre part est grandement sollicitée.
Merci infiniment de votre dévouement sur ce site.
Bonjour atlonia,
le bouton inscription c'est le bouton "Inscrire au concours" ?
si oui, voici un exemple de transfert des données
Private Sub btnInscrire_Click()
lastRw = Sheets("Inscriptions").Cells(Rows.Count, 1).End(xlUp).Row + 1
ligne = Me.ListView1.ListItems.Item(ListView1.SelectedItem.Index).Text
With Sheets("Inscriptions")
.Cells(lastRw, 1).Value = lastRw - 1
.Cells(lastRw, 2).Value = Sheets("Membres").Range("B" & ligne).Value
.Cells(lastRw, 3).Value = Sheets("Membres").Range("C" & ligne).Value
.Cells(lastRw, 4).Value = Sheets("Membres").Range("N" & ligne).Value
.Cells(lastRw, 5).Value = Sheets("Membres").Range("O" & ligne).Value
.Cells(lastRw, 6).Value = Sheets("Membres").Range("P" & ligne).Value
.Cells(lastRw, 7).Value = Sheets("Membres").Range("K" & ligne).Value
End With
End SubBonjours sabV,
heureux de te retrouver...
Parfait ton code:
est-ce abuser que de te demander si tu as encore une ligne pour interdire l'inscription de doublons dans la feuille "Inscription"
( En cas de double clic sur le bouton, ou si on ne se rappelle plus si on a déjà enregistré le joueur par exemple...)
Merci encore de me permettre d'avancer dans mon projet.
Bonjour
moi je préfère voir
donc j'ais fait 2 Listview a toi de choisir
A+
Maurice
archer a écrit :Bonjour
moi je préfère voir
donc j'ais fait 2 Listview a toi de choisir
A+
Maurice
Bonjour archer,
content de te retrouver également,
L'idée est excellente, mais vu mes difficultés en VBA, pour l'instant je préfère garder mon fil conducteur pour ne pas m'emmêler les pinceaux.
je vais l'approfondir dés que mon Projet fonctionne pour un future révision de celui-ci.
Merci encore de ton intérêt pour mon projet.
archer a écrit :Bonjour
Voila encore une modife HI
A+
Maurice
Merci pour cette contribution remarquable...!
Grâce à vous tous, mon projet à bien avancé, je galérais pendant des heures avant de me décider à venir vous solliciter.
si cela ne vous dérange pas plus que cela, à l'avenir, j'hésiterai moins.
Bravo et merci encore!
bonsoir
voila mon dernier jus
a toi de faire le ménage dur
A+
Maurice
Bonsoir archer,
Merci pour cette nouvelle proposition: Lancer le "U_Inscription1" à partir du bouton "Inscrire au concours" (que j'ai renommé "Concours" pour l'occasion) est une bonne idée, et je vais l'adopter.
Mais le code plante à la ligne surlignée:
[quotePrivate Sub btnInscrire_Click()
Set Sh1 = Feuil4
lastRw = Sh1.Cells(Rows.Count, 1).End(xlUp).Row + 1
Ligne = Lig
With Sh1
.Cells(lastRw, 1).Value = lastRw - 1
.Cells(lastRw, 2).Value = Sh.Range("B" & Ligne).Value
.Cells(lastRw, 3).Value = Sh.Range("C" & Ligne).Value
.Cells(lastRw, 4).Value = Sh.Range("N" & Ligne).Value
.Cells(lastRw, 5).Value = Sh.Range("O" & Ligne).Value
.Cells(lastRw, 6).Value = Sh.Range("P" & Ligne).Value
.Cells(lastRw, 7).Value = Sh.Range("K" & Ligne).Value
End With
On Error GoTo fin
With Me.ListView1
.ListItems.Remove .SelectedItem.Index
End With
fin:
End Sub][/quote]
vu la ligne "Set Sh1 = Feuil4", Jai essayé de pacer "1" derrière le "Sh" pensant qu'il s'agissait d'un oubli, mais ça ne marche pas...!
Puisque si j'ai bien compris "Sh" est le raccourcis de "Sheet" en général, peux-tu confirmer ?
bonjour
travail sur mon dernier modèle
jais changer le système des Inscriptions
a toi de bien voir
A+
Maurice
Bonjour
modification du Bouton btnInscrire pour éviter un Bug
A+
Maurice
bonjour archer, altonia et le forum
tèes beau fichier
c'est lors de l'insertion de joueur si on ajoute un dans la sélection de gauche quand il y a beaucoup il faudrait une alerte pour éviter un doublon, mais ce n'est que mon avis
bon weekend
bonjour grisan29
regarde bien mon dernier fichier
A+
Maurice
Bonsoir Archer
en effet je n'ai pas vu que chaque clic envoi le nom dans la liste d'inscription sans le laisser dans la liste
ca n'enlève en rien ce que tu as fait
archer a écrit :bonjour
travail sur mon dernier modèle
jais changer le système des Inscriptions
a toi de bien voir
A+
Maurice
Bonjour archer, bonjour le forum,
désolé d'voir été absent ces 2 jours, le concours de la "Marseillaise" m'a beaucoup occupé...!
Archer merci pour cette nouvelle mouture, j'ai remarqué le bouton "RAZ" qui manquait effectivement...!
J'ai également remarquer la disparition de la barre de défilement horizontale qui ne servait à rien dans ce UserForm...!
Je garde celle là et vais essayer de la finaliser.
Merci encore pour ta persévérance à m'aider
="archer"]bonjour
travail sur mon dernier modèle
jais changer le système des Inscriptions
a toi de bien voir
A+
Maurice
Bonjour archer, bonjour le forum,
Merci archer, j'ai remarqué la disparition de la "ScrollBar" horizontale et l'apparition du bouton "RAZ" 2 modifications nécessaires...!
Par contre, sais-tu pourquoi le programme bug sur :
Private Sub InitListe1()
Dim L As Long
With ListView2
' .BackColor = &HE0E0E0
.BackColor = F00.Range("L2").Interior.Color
.FullRowSelect = False
.Font.Bold = True
.ListItems.Clear
For L = 2 To Sh1.Range("B" & Rows.Count).End(xlUp).Row
.ListItems.Add , , L
.ListItems(.ListItems.Count).ListSubItems.Add , , Sh1.Cells(L, 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sh1.Cells(L, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sh1.Cells(L, 4)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sh1.Cells(L, 5)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sh1.Cells(L, 6)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sh1.Cells(L, 7)
Next
End With
'On Error Resume Next
' ListView2.ListItems(1).Selected = False
' Set ListView2.SelectedItem = Nothing
'End Sub
Si je le désactive en commentaire, cela fonctionne parfaitement, puis-je la supprimer complètement, ou a-t-elle une utilité particulière...?
Merci encore
Bonjour
ses surtout fait pour les listview Vide
et désactive sélection de Ligne
et décharge objet ListView
a ne pas toucher HI
A+
Maurice
Bonjour archer,
J'ai remarqué la disparition de la "SrollBar" (pas nécessaire dans celle ListeBox) et l'apparition du bouton "RAZ" (Indispensable).
Quand tu dis "a ne pas toucher", tu veux dire de la laisser active...?
Car quand je vide ma listBox (pour un nouveau concours par exemple) et que je clique sur le bouton "inscription" de la page "Menu", ça plante...!!!!
On Error Resume Next
ListView2.ListItems(1).Selected = False
Set ListView2.SelectedItem = Nothing
End Sub
Merci pour cette nouvelle mouture je vais m'en servir comme base de travail si tu le veux bien...!
Si j'ai raté quelque chose d'autre, merci de me mettre sur la voie...!
Merci pour ton aide si précieuse.
archer a écrit :Bonjour
ses surtout fait pour les listview Vide
et désactive sélection de Ligne
et décharge objet ListView
a ne pas toucher HI
A+
Maurice
Bonjour archer,
Je reviens sur ces lignes de code, car je n'ai pas bien compris...
'On Error Resume Next
' ListView2.ListItems(1).Selected = False
' Set ListView2.SelectedItem = Nothing
Quand je les désactive, ça fonctionne trés bien, je les réactive, ça plante...!
Peux-tu m'en dire un peu plus ?
Merci pour ton enseignement.