Problème pour modifier et enregistrer à partir de textbox

**inwhiskywetrust** · 13/03/2015, 10h15

Bonjour,

Apparemment mon précédent message ne serait pas passé hier. Je reviens donc vers vous car dans ce projet (compilé à partir de différents codes) et malgré mes différentes recherches je n'arrive pas à résoudre les problématiques suivantes :

- Certaines des textboxs ne se remplissent pas automatiquement en fonction des lignes sélectionnées : mot clef 1, mot clef 2,.... sans qu'il y ai de message d'erreurs.
- Je n'arrive pas à enregistrer les modifications apportées aux différentes textboxs directement dans la listview et dans la feuille correspondante (feuil1).

Est-ce qu'une âme charitable pourrait venir à mon aide? Je place un fichier test pour aider.

Merci beaucoup

**Theze** · 13/03/2015, 18h43

Bonjour,

Pour les mots clés qui ne se chargent pas dans la ListView, c'est simplement dû au fait que tu ne boucle pas assez loin (15 au lieu de 6) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
With ListView1
 
    For i = 5 To fin
 
        .ListItems.Add , , Feuil1.Cells(i, 1)
 
        For j = 2 To 15
 
            .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil1.Cells(i, j)
 
        Next j
    Next i
 
End With

Pour la modification des enregistrements je verrai bien un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Private Sub CommandButton1_Click()
 
    Dim R As Long
    Dim Ctrl As Control
 
    R = ListView1.SelectedItem.Index + 4
 
    With Sheets("Feuil1")
 
        If TextBox2.Value = "" Then
            MsgBox "Vous avez oublié de saisir l'AUTEUR !"
            Exit Sub
        End If
 
        If TextBox1.Value = "" Then
            MsgBox "Vous avez oublié de saisir le TITRE !"
            Exit Sub
        End If
 
        If TextBox6.Value = "" Then
            MsgBox "Vous avez oublié de saisir au moins un MOT CLEF !"
            Exit Sub
        End If
 
        .Range("A" & R).Value = IIf(TextBox16.Value = "", "-", TextBox16.Value)
        .Range("D" & R).Value = IIf(TextBox1.Value = "", "-", TextBox1.Value)
        .Range("B" & R).Value = IIf(TextBox2.Value = "", "-", TextBox2.Value)
        .Range("E" & R).Value = IIf(TextBox3.Value = "", "-", TextBox3.Value)
        .Range("C" & R).Value = IIf(TextBox5.Value = "", "-", TextBox5.Value)
        .Range("F" & R).Value = IIf(TextBox6.Value = "", "-", TextBox6.Value)
        .Range("G" & R).Value = IIf(TextBox7.Value = "", "-", TextBox7.Value)
        .Range("H" & R).Value = IIf(TextBox8.Value = "", "-", TextBox8.Value)
        .Range("I" & R).Value = IIf(TextBox9.Value = "", "-", TextBox9.Value)
        .Range("J" & R).Value = IIf(TextBox10.Value = "", "-", TextBox10.Value)
        .Range("K" & R).Value = IIf(TextBox11.Value = "", "-", TextBox11.Value)
        .Range("L" & R).Value = IIf(TextBox12.Value = "", "-", TextBox12.Value)
        .Range("M" & R).Value = IIf(TextBox13.Value = "", "-", TextBox13.Value)
        .Range("N" & R).Value = IIf(TextBox14.Value = "", "-", TextBox14.Value)
        .Range("O" & R).Value = IIf(TextBox15.Value = "", "-", TextBox15.Value)
 
    End With
 
    For Each Ctrl In Me.Controls
 
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
 
    Next Ctrl
 
    TextBox1.SetFocus
 
End Sub

Par contre, pour ajouter des enregistrements un bouton Nouveau avec en fin de proc du bouton un re-remplissage de la ListView.
Pour Initialiser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Private Sub UserForm_Initialize()
 
    Dim fin&, I&, j&
 
    ComdValider.Visible = False
 
    With ListView1
 
        With .ColumnHeaders
 
            .Clear
            .Add , , "Numéro", 30
            .Add , , "Auteur", 80
            .Add , , "Réf", 50
            .Add , , "Titre", 180
            .Add , , "Année", 50
            .Add , , "Mot clé 1", 80
            .Add , , "Mot clé 2", 80
            .Add , , "Mot clé 3", 80
            .Add , , "Mot clé 4", 80
            .Add , , "Mot clé 5", 80
            .Add , , "Mot clé 6", 80
            .Add , , "Mot clé 7", 80
            .Add , , "Mot clé 8", 80
            .Add , , "Mot clé 9", 80
            .Add , , "Mot clé 10", 80
 
        End With
 
        fin = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
 
        For I = 5 To fin
 
            .ListItems.Add , , Feuil1.Cells(I, 1)
 
            For j = 2 To 15
 
                .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil1.Cells(I, j)
 
            Next j
 
        Next I
 
        .View = lvwReport
        .Gridlines = True
        .AllowColumnReorder = True
        .FullRowSelect = True
 
        ListView1_ItemClick .ListItems(1) 'pour remplir les TextBox
 
    End With
 
End Sub

Hervé.

**inwhiskywetrust** · 16/03/2015, 10h58

Bonjour

Rhaaaaaaa concernant la listview .... La solution était devant mes yeux......

Merci pour le bout de code je vais tester cela et reviens pour vous tenir au courant ! Merci encore !!!

Par contre, pour ajouter des enregistrements un bouton Nouveau avec en fin de proc du bouton un re-remplissage de la ListView.
Pour Initialiser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListView1_ItemClick .ListItems(1) 'pour remplir les TextBox

Bonjour,

Je vous remercie encore pour les codes qui fonctionnent niquels !
Je souhaite juste avoir un éclaircissement par rapport aux modifications, est-il possible de les voir apparaître en "simultané" dans la listview car ils ne sont pris en compte que quand on ré-ouvre l'USERFORM?

Merci beaucoup

**Theze** · 16/03/2015, 17h17

Bonjour,

Je souhaite juste avoir un éclaircissement par rapport aux modifications, est-il possible de les voir apparaître en "simultané" dans la listview car ils ne sont pris en compte que quand on ré-ouvre l'USERFORM?

Et bien, il te suffit de recharger la liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
Private Sub CommandButton1_Click()
 
    Dim R As Long
    Dim Ctrl As Control
    Dim I As Long
    Dim J As Integer
 
    R = ListView1.SelectedItem.Index + 4
 
    With Sheets("Feuil1")
 
        If TextBox2.Value = "" Then
            MsgBox "Vous avez oublié de saisir l'AUTEUR !"
            Exit Sub
        End If
 
        If TextBox1.Value = "" Then
            MsgBox "Vous avez oublié de saisir le TITRE !"
            Exit Sub
        End If
 
        If TextBox6.Value = "" Then
            MsgBox "Vous avez oublié de saisir au moins un MOT CLEF !"
            Exit Sub
        End If
 
        .Range("A" & R).Value = IIf(TextBox16.Value = "", "-", TextBox16.Value)
        .Range("D" & R).Value = IIf(TextBox1.Value = "", "-", TextBox1.Value)
        .Range("B" & R).Value = IIf(TextBox2.Value = "", "-", TextBox2.Value)
        .Range("E" & R).Value = IIf(TextBox3.Value = "", "-", TextBox3.Value)
        .Range("C" & R).Value = IIf(TextBox5.Value = "", "-", TextBox5.Value)
        .Range("F" & R).Value = IIf(TextBox6.Value = "", "-", TextBox6.Value)
        .Range("G" & R).Value = IIf(TextBox7.Value = "", "-", TextBox7.Value)
        .Range("H" & R).Value = IIf(TextBox8.Value = "", "-", TextBox8.Value)
        .Range("I" & R).Value = IIf(TextBox9.Value = "", "-", TextBox9.Value)
        .Range("J" & R).Value = IIf(TextBox10.Value = "", "-", TextBox10.Value)
        .Range("K" & R).Value = IIf(TextBox11.Value = "", "-", TextBox11.Value)
        .Range("L" & R).Value = IIf(TextBox12.Value = "", "-", TextBox12.Value)
        .Range("M" & R).Value = IIf(TextBox13.Value = "", "-", TextBox13.Value)
        .Range("N" & R).Value = IIf(TextBox14.Value = "", "-", TextBox14.Value)
        .Range("O" & R).Value = IIf(TextBox15.Value = "", "-", TextBox15.Value)
 
    End With
 
    For Each Ctrl In Me.Controls
 
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = ""
 
    Next Ctrl
 
    With ListView1
 
        .ListItems.Clear
 
        For I = 5 To Feuil1.Range("A" & Rows.Count).End(xlUp).Row
 
           .ListItems.Add , , Feuil1.Cells(I, 1)
 
           For J = 2 To 15
 
               .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil1.Cells(I, J)
 
           Next J
 
        Next I
 
    End With
 
    TextBox1.SetFocus
 
End Sub

Hervé.

**inwhiskywetrust** · 16/03/2015, 18h02

bonjour,

Merci pour cette contribution que je vais tester rapidement.

Juste une petite question en passant : j'ai remarqué que la première ligne de ma listview restait toujours sélectionnée et ceci malgré avoir indiqué :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ListView1.ListItems(1).Selected = False
Set ListView1.SelectedItem = Nothing

Auriez-vous un éclairage?

Merci

**Philippe Tulliez** · 16/03/2015, 18h10

Bonjour,
Cette contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire pourra peut-être t'inspirer.
Il s'agit de ComboBox et pas de ListView mais les procédures sont suffisamment structurées pour voir comment mettre à jour ou consulter un enregistrement sélectionné dans une liste.

**inwhiskywetrust** · 19/03/2015, 13h03

Bonjour,

Bon malgré mes recherches .. je sèche...

Je n'arrive ni à récupérer le numéro de lignes correspondant à la sélection, après recherche, ni à trouver le coller dans un tableau...

Un coup de main pour me mettre sur la voie, s'il vous plait?

**Philippe Tulliez** · 19/03/2015, 13h16

Bonjour,
Y a-t-il des fonctionnalités du contrôle ListView qui ont guidé ton choix en lieu et place du ComboBox ?
Ce dernier contrôle est plus simple à gérer que le premier cité surtout si on débute en VBA.

As-tu lu le tutoriel Utiliser le contrôle ListView en VBA Excel ?

**inwhiskywetrust** · 19/03/2015, 13h47

Bonjour,

la principale raison pour laquelle je me suis tourné vers la listview, est que je trouve son fonctionnement plus fonctionnel pour l'usage de mon fichier. En effet, je trouve plus simple et pratique de manipuler les données sous cette forme pour les différents utilisateurs du fichier, même si, je le confesse, elle n'est pas à la portée du débutant ...

J'ai effectivement lu le tuto proposé, et ... c'est justement là que je sèche... je pencherai pour attribuer une "clé" pour faciliter le repérage de la ligne modifiée mais avant d'en arriver là, je veux comprendre l'erreur provoquée avec ma fonction recherche afin de pouvoir trouver une solution.

Même si cela est difficile pour le débutant que je suis, je ne lâche pas !

**Philippe Tulliez** · 19/03/2015, 14h06

Bonjour,
Je n'ai pas lu l'entièreté des fils de cette discussion mais j'ai cru comprendre que tu n'arrivais pas à associer le numéro de l'enregistrement sur la feuille et le numéro de l'élément sélectionné.
D'abord, il faut savoir si tous les enregistrements de la liste de données de la feuille sont présentes dans le contrôle ListView.
Si ce n'est pas le cas, je te conseille de placer le numéro de l'enregistrement sur la feuille dans une des colonnes du ListView, de préférence la première ou la dernière, en le masquant. Dans un contrôle ComboBox, j'utilise la première colonne mais je ne me souviens plus si la première colonne du ListView est réservé car ma dernière expérience avec ce contrôle date de plus de trois ans.
Si tous les éléments de la liste présente sur la feuille sont toute dans le ListView, cela signifie que l'élément à l'index 0 est égal à la ligne 2 sur la feuille (si tu commences ta liste en ligne 1) donc une simple rectification arithmétique suffira.
Pour ma part, j'utilise une variable globale nommée CurrentRecord qui contient le numéro d'enregistrement et celui-ci est mis à jour lors de la sélection dans la liste et à d'autres endroit du programme lors de la création ou suppression d'un enregistrement.

Pour une meilleure compréhension de mes propos, je te renvoie vers la contribution dont je t'ai déjà donné le lien et que je répète ici USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire
Le code étant suffisamment structuré, tu pourrais facilement intégré le ListView en lieu et place du ComboBox que j'utilise pour l'exemple.

**inwhiskywetrust** · 19/03/2015, 15h00

re,

Merci pour ces éléments. Je m'y penche dès maintenant et te tiens au courant de l'avancement.

Problème pour modifier et enregistrer à partir de textbox [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager