Modification données ListView (JP14) + Userform

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion starz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

starz

XLDnaute Occasionnel
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
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
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 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
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"
Cliquez pour agrandir...
:


à 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
Cliquez pour agrandir...
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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é 😕
 
Vote positif 0 Vote négatif
Re : Modification données ListView (JP14) + Userform

Bonsoir

Un exemple avec un calendrier

A tester

JP
 

Pièces jointes

Vote positif 0 Vote négatif
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
Cliquez pour agrandir...


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


Encore merci 😀
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

K
  • Question Question
XL 2016 Modification dans userform et sheet
Réponses
13
Affichages
499
Valtrase
Valtrase
P
  • Question Question
Microsoft 365 garder en mémoire plusieurs listview d'un userform
Réponses
4
Affichages
727
patricktoulon
patricktoulon
C
  • Résolu(e)
XL 2019 Problème de transferts de données formulaire à feuille
Réponses
5
Affichages
270
ceralpes
C
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
Dranreb
Y
  • Résolu(e)
XL 2016 Pb dates inversées dans userform
2 3
Réponses
37
Affichages
3 K
YOUYOU25
Y
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
1 K
fanch55
fanch55
C
  • Question Question
Microsoft 365 contenu ListView issu d'un filtre et choisircols
Réponses
1
Affichages
445
ChTi160
ChTi160
D
  • Résolu(e)
Microsoft 365 Mise à jour de certaines données dans une ListView d'un UserForm
Réponses
8
Affichages
885
Diane272727
D
S
  • Question Question
Microsoft 365 Modifier des données via un Userform
Réponses
3
Affichages
677
youky(BJ)
youky(BJ)
P
  • Résolu(e)
XL 2013 Mise en forme suite à utilisation de UserForm
Réponses
4
Affichages
816
PR.
P
tactic6
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
738
tactic6
tactic6
C
  • Question Question
XL 2013 Garder mon userform ouvert pour continuer à saisir les données
Réponses
6
Affichages
630
Oneida
Oneida
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
job75
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
949
Liner77
L
L
  • Question Question
XL 2016 Calcul à partir d'une date précise ou - à défaut - à partir de la date qui suit immédiatement après
Réponses
4
Affichages
827
Lorenzini
L
akni
  • Question Question
XL 2019 remplir Listview par dictionnaire
Réponses
11
Affichages
1 K
akni
akni
B
  • Question Question
XL 2010 aide pour compléter le programme
Réponses
14
Affichages
2 K
jcf6464
jcf6464
D
  • Question Question
XL 2013 Mise en place d'une boucle pour copier des données dans une case différentes en fonction de la valeur d'une combobox
Réponses
13
Affichages
2 K
drumeiro
D
P
  • Résolu(e)
XL 2016 Userform multipage listview/listBox
Réponses
14
Affichages
3 K
Bebere
B
C
  • Question Question
XL 2016 rdv outlook et amélioration userform
Réponses
4
Affichages
973
CYRIL CAMPAS
C
Retour