Problème pour modifier et enregistrer à partir de textbox

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

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, 17h43

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, 09h58

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, 16h17

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, 17h02

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, 17h10

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** · 16/03/2015, 17h15

bonjour,

Merci pour ce lien qui va beaucoup m'aider !

très beau travail !!

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

Re,

Dans la proc "Initialize" vire cette ligne :

Code :

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

1
2
 
ListView1_ItemClick .ListItems(1) 'pour remplir les TextBox

Hervé.

**inwhiskywetrust** · 16/03/2015, 17h34

ça marche, merci !

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

Re bonjour,

Je reviens vers vous car j'ai remarqué un petit souci dans mon projet :

Lorsque je sélectionne un texte pour modifications, elles s'enregistrent bien sur la ligne du texte choisie dans la listview et dans la Bd, mais quand je rajoute des mots clefs et valide, la ligne modifiée se retrouve sur la ligne 1 de la listview et de la BD...

Une idée ? (enfin si j'ai réussi à être clair...)

.... détail qui a son importance, ce problème arrive quand on passe par la fonction recherche de la LV...

**Theze** · 18/03/2015, 17h31

Bonjour,

C'est normal car après une recherche, le nombre de lignes de la ListView ne correspond pas au nombre de lignes de ta feuille ! Il faut que tu fasse soit une recherche sur le "Numéro" pour avoir le numéro de la ligne correspondante, soit tu utilise un tableau et tu stocke le numéro de la ligne pour chaque correspondance de la recherche et quand tu sélectionne une ligne dans la ListView, elle doit correspondre au tableau qui te retourne le numéro de la ligne à modifier.

Hervé.

**inwhiskywetrust** · 18/03/2015, 20h19

Bonsoir

Merci pour cette réponse. Je vais regarder comment mettre en place la solution du tableau afin de faire correspondre la ligne sélectionnée. Cela me paraît plus judicieux que le simple numéro.

Je reviendrai sûrement vers vous !

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

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, 12h16

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, 12h47

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, 13h06

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, 14h00

re,

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

**Theze** · 20/03/2015, 07h11

Bonjour,

Variable à mettre en tête de module :

Code :

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

1
2
 
Dim TblRecherche() As Long

Code pour ton bouton de recherche :

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
 
Private Sub CommandButton5_Click()
 
    Dim L As Long
 
    Worksheets("BD").Activate
 
    LISTE_BD = Worksheets("BD").UsedRange
 
    With ListView1
 
        .ListItems.Clear
 
        Erase TblRecherche() 'vide le tableau des résultats d'une éventuelle recherche précédente
 
        For I = 2 To UBound(LISTE_BD, 1)
 
        'On Error Resume Next 'EN CAS D'ECHEC DANS LA RECHERCHE (Il est possible que cela ne soit pa nécessaire. Je n'ai pas testé)
             For J = 3 To UBound(LISTE_BD, 2)
 
                If InStrRev(LISTE_BD(I, J), Me.TextBox17.Value, -1) <> 0 Then 'Recherche du mot ou d'une partie
 
                    .ListItems.Add , , LISTE_BD(I, 1)
 
                    L = L + 1
 
                    ReDim Preserve TblRecherche(1 To L)
 
                    TblRecherche(L) = I + 1 '+ 1 pour le décalage dû à "For I = 2"
 
                    For K = 2 To UBound(LISTE_BD, 2)
 
                       .ListItems(.ListItems.Count).ListSubItems.Add , , LISTE_BD(I, K)
 
                    Next K
 
                End If
 
             Next J
 
        Next I
 
    End With
 
End Sub

Et pour la récupération du numéro de ligne, dans le code de ton bouton de validation avec un gestionnaire d'erreur si tableau vide :

Code :

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

1
2
 
R = TblRecherche(ListView1.SelectedItem.Index)

Il te faut mettre en place une gestion du tableau une fois les modifications effectuées, soit une suppression des résultats, soit tout autre chose...

Hervé.

**inwhiskywetrust** · 20/03/2015, 10h08

Bonjour,

Merci pour ces éléments d'aide.

Je regarde cela avec intérêt dès que possible et reviens vers vous au besoin. Entre les éléments de Philippe Tulliez et ceux-ci je devrai pouvoir m'en sortir !

merci encore

**inwhiskywetrust** · 20/03/2015, 12h23

Bonjour,

Je n'ai malheureusement pas eu encore le temps d'approfondir tranquillement vos différentes contributions car étant au travail, mais je tenais juste à vous soumettre le contournement de la difficulté pour la modification après recherche, que j'ai trouvé :

C'est moche

mais "apparament" cela fonctionne pour la modification simple et la modification-recherche (essais effectués vite fait), je récupère le numéro de la donnée en textbox16 et j'ajoute 4 (ma feuille commence à 4). :

Private Sub ComdValider_Click()

Dim Ctrl As Control
Dim I As Long
Dim J As Integer
Dim R As Long

R = TextBox16 + 4

Avec vos différentes contributions et explications, je m'agace ce week-end à modifier le code d'une manière plus conventionnelle et vous remercie encore pour votre aide.

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

Macros et VBA Excel

Discussions similaires

Partager

Partager