Modification données ListView (JP14) + Userform

starz · 26 Mars 2009

Bonjour,
Je sollicite votre aide ou l'aide de JP14 pour la modification des données listview et des userform.

1- J'ai rajouté des colonnes dans la listview mais je n'arrive pas à les remplir.

2- Dans le Userform2 :
2a - Je voudrais remplacé le combobox3 et le combobox7 par 2 textbox ( EDIT : trouvé)
2b - Je voudrais retrouvé tous les Textbox correspond à mon tableau
2c - Pouvoir Modifier une ligne en laissant des champs vides (EDIT : trouvé)

je joint mon fichier

merci de votre aide

starz · 26 Mars 2009

Re : Modification données ListView (JP14) + Userform

ce qui me reste à faire :
1 - Remplir ma listview , j'ai beau essayé de tourné le code dans tous les sens, n'étant pas un as de la chose j'y arrive pas

2- remplir mes textbox de ma Userform2 (idem que 1)

merci de votre aide

starz · 26 Mars 2009

Re : Modification données ListView (JP14) + Userform

j'avance , j'avance :

1 - pour remplir la listview :
j'avais oublié de déclarer les variables dans Varpublique (data8, data9 etc...)
puis j'ai rajouter (dans Userform1 ou est présent la listview)

Code:

data8 = Sheets(nomf1).Cells(i, 8)
data9 = Sheets(nomf1).Cells(i, 9)
data10 = Sheets(nomf1).Cells(i, 10)
data11 = Sheets(nomf1).Cells(i, 11)
data12 = Sheets(nomf1).Cells(i, 12)
data13= Sheets(nomf1).Cells(i, 13)
data14 = Sheets(nomf1).Cells(i, 14)
data15 = Sheets(nomf1).Cells(i, 15)

et

Code:

.ListItems(.ListItems.Count).ListSubItems.Add , , data8
.ListItems(.ListItems.Count).ListSubItems.Add , , data9
.ListItems(.ListItems.Count).ListSubItems.Add , , data10
.ListItems(.ListItems.Count).ListSubItems.Add , , data11
.ListItems(.ListItems.Count).ListSubItems.Add , , data12
.ListItems(.ListItems.Count).ListSubItems.Add , , data13
.ListItems(.ListItems.Count).ListSubItems.Add , , data14
.ListItems(.ListItems.Count).ListSubItems.Add , , data15

par contre il me reste encore le remplissage de mes TextBox 😕

je joint mon fichier

http://sandrathenault.free.fr/Sélectiondes données avec listview_V3.zip

jp14 · 26 Mars 2009

Re : Modification données ListView (JP14) + Userform

Bonjour

Une première réponse

starz à dit:
ce qui me reste à faire :
1 - Remplir ma listview , j'ai beau essayé de tourné le code dans tous les sens, n'étant pas un as de la chose j'y arrive pas

Il faut modifier la procédure
"Private Sub Initlistview()"
et rajouter pour le cas 4 les valeurs à mettre

Code:

..............................................
                Case 4
    
                If data1 = vale1 And vale2 = data2 And vale3 = data3 Then
                            ' on peut supprimer ces lignes à conditions de mettre les valeurs exemple data 7
                                data4 = Sheets(nomf1).Cells(I, 4)
                                data5 = Sheets(nomf1).Cells(I, 5)
                                data6 = Sheets(nomf1).Cells(I, 6)
                                .ListItems.Add , "K" & I, data1
                                .ListItems(.ListItems.Count).ListSubItems.Add , , data2
                                .ListItems(.ListItems.Count).ListSubItems.Add , , data3
                                .ListItems(.ListItems.Count).ListSubItems.Add , , data4
                                .ListItems(.ListItems.Count).ListSubItems.Add , , data5
                                .ListItems(.ListItems.Count).ListSubItems.Add , , data6
[COLOR="Red"]                                .ListItems(.ListItems.Count).ListSubItems.Add , , Sheets(nomf1).Cells(I, 7)

.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets(nomf1).Cells(I, 8)[/COLOR]

A modifier
Public Const debligne As Integer = 3 ' ligne départ
pour éviter une ligne blanche au début

JP

jp14 · 26 Mars 2009

Re : Modification données ListView (JP14) + Userform

Bonjour

starz à dit:
2- remplir mes textbox de ma Userform2 (idem que 1)

merci de votre aide

Un peu d'explications serait nécessaire.

JP

starz · 26 Mars 2009

Re : Modification données ListView (JP14) + Userform

Merci pour cette première réponse.

Pour la seconde question (Userform 2 pour modification ou ajout d'une ligne):
je souhaiterai avoir un affichage si il en a des infos du tableau de la feuille 1 correspondant au label et textbox.

Exemple (qui est d'origine): voir ce post https://www.excel-downloads.com/threads/userform-et-filtre-des-donnees.108668/

Label5 correspond au contenu de la cellule E1
Textbox 5 correspond au contenu de la cellule E3

Label6 correspond au contenu de la cellule F1
Textbox 6 correspond au contenu de la cellule F3

reste TextBox8 , TextBox9, Textbox10, Textbox11, textBox12, Textbox13, 14 et 15 à remplir automatiquement.

etc. etc...

Pour la fonction modification : --> Mise à jour dans le tableau de la feuil1
POur la fonction ajout : --> Ajout d'une nouvelle ligne dans le tableau de la feuil1

voilà en esperant avoir été clair 🙂

jp14 · 26 Mars 2009

Re : Modification données ListView (JP14) + Userform

Bonjour (re)

Il faut modifier
Public Const nbcolonne As Integer = 7 ' nombre de colonne à afficher
Public control1(15) As String

A jouter les contrôles manquant
control1(I) = "TextBox": I = I + 1: '6
control1(I) = "TextBox": I = I + 1 ' 7
control1(I) = "TextBox": I = I + 1 ' 8
...............................................

JP

starz · 26 Mars 2009

Re : Modification données ListView (JP14) + Userform

ok

et je dois aussi changer de variable nbcolonne = 15

😀 cool merci de m'avoir aiguiller

arf: j'ai un erreur d'execution 9 "

l'indice n'appartient pas à la selection"

:

à partir de control1(I) = "TextBox": I = I + 1 ' 11

l'erreur me renvoie là

UserForm2.Show
'mise à jour de la listview
If action = "modificationok" And ancienitem <> 0 Then
'ancienitem contient la ligne
ListView1.ListItems(ancienitem).Text = Sheets(nomf1).Cells(ligne2, 1)
ListView1.ListItems(ancienitem).ListSubItems(1).Text = Sheets(nomf1).Cells(ligne2, 2)
ListView1.ListItems(ancienitem).ListSubItems(2).Text = Sheets(nomf1).Cells(ligne2, 3)
ListView1.ListItems(ancienitem).ListSubItems(3).Text = Sheets(nomf1).Cells(ligne2, 4)
ListView1.ListItems(ancienitem).ListSubItems(4).Text = Sheets(nomf1).Cells(ligne2, 5)
ListView1.ListItems(ancienitem).ListSubItems(5).Text = Sheets(nomf1).Cells(ligne2, 6)
ListView1.ListItems(ancienitem).ListSubItems(6).Text = Sheets(nomf1).Cells(ligne2, 7)
End If

jp14 · 26 Mars 2009

Re : Modification données ListView (JP14) + Userform

Bonjour (re)
Il faut modifier
Public control1(15) As String

Avec les userform la ligne jaune est toujours au niveau de l'appel de l'userform.

JP

starz · 26 Mars 2009

Re : Modification données ListView (JP14) + Userform

merci beaucoup ça fonctionne. 🙂

Quelque petits détails :

Comment puis-je mettre la colonne 1 en couleur rouge ? (si possible)

Pour mes TextBox format Date,
Y a t'il un autre moyen que le mien pour etre sur qu'au moment de la saisie de la date la personne mette le bon format jj/mm/aa ?

merci

jp14 · 26 Mars 2009

Re : Modification données ListView (JP14) + Userform

Bonjour (re)

A rajouter après
.Gridlines = True
End With
On Error GoTo 0

Code:

        With Me.ListView1
            For I = 1 To .ListItems.Count
                .ListItems(I).ForeColor = vbRed
            Next I
        End With

Concernant les dates avec les DTPicker cela ne devrait pas poser de problème.

Par contre s'il y a un problème au niveau de la base de données, les dates étant au format américain (pour les jours de 1 à 12), la solution qui fonctionne est de rajouter une ligne

Sheets("toto").range("D" & ligne).value = format(Sheets("toto").range("D" & ligne).value ," dd/mm/yyyy")

JP

starz · 26 Mars 2009

Re : Modification données ListView (JP14) + Userform

Merci pour la solution de la couleur 🙂 impeccable

Pour les DTPicker mon problème viens du fait que la BDD n'est jamais rempli le jour même. Du coup, les DTPicker me donne par défaut une date hors dans certain cas il n'y en a pas.

Ainsi dans le cas d'un modification au lieu de voir une date par défaut j'aurai aimé ne rien voir.

La solution du textbox me parait peut être mieux !
par contre je ne sais que faire de la ligne de code

Sheets("nomf1").range("D" & ligne).value = format(Sheets("nomf1").range("D" & ligne).value ," dd/mm/yyyy")

enfin là je suis surement dans une impasse.

La solution que je pensais c'etait du genre :
je clique sur ma textBox , un xcalendar s'ouvre je sélectionne la date, qui ensuite s'insère dans la textBox précédement cliquée.
Mais là j'ai pas trouvé 😕

jp14 · 26 Mars 2009

Re : Modification données ListView (JP14) + Userform

Bonsoir

Un exemple avec un calendrier

A tester

JP

starz · 26 Mars 2009

Re : Modification données ListView (JP14) + Userform

ça c'est impeccable, exactement ce que je cherchais ! merci beaucoup

par contre lors d'une modification il ne prend pas en compte cette dernière!

edit : ça fonctione en désactivant le code

Private Sub UserForm_Initialize()
' pour test
'action = "modification"
'ligne2 = 5

Nota :
Là je suis chez moi et j'ai une erreur fonction .Mid() ? je le remplace par Strings.Mid qui fonctionne aussi ?

Encore merci 😀

jp14 · 27 Mars 2009

Re : Modification données ListView (JP14) + Userform

Bonjour

Ce code est utilisé pour faire des tests, cela évite de relancer chaque fois l'userfom initial.
' pour test
'action = "modification"
'ligne2 = 5

https://www.excel-downloads.com/threads/gestion-de-materiel-pour-location.116697/

Fil à lire concernant ce problème "Là je suis chez moi et j'ai une erreur fonction .Mid()".

JP

Modification données ListView (JP14) + Userform

starz

XLDnaute Occasionnel

Pièces jointes

starz

XLDnaute Occasionnel

starz

XLDnaute Occasionnel

jp14

XLDnaute Barbatruc

jp14

XLDnaute Barbatruc

starz

XLDnaute Occasionnel

jp14

XLDnaute Barbatruc

starz

XLDnaute Occasionnel

jp14

XLDnaute Barbatruc

starz

XLDnaute Occasionnel

jp14

XLDnaute Barbatruc

starz

XLDnaute Occasionnel

jp14

XLDnaute Barbatruc

Pièces jointes

starz

XLDnaute Occasionnel

jp14

XLDnaute Barbatruc

Discussions similaires

Modification données ListView (JP14) + Userform

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency