Zone de liste VBA

Version imprimable

05/07/2017, 14h14
touch my tralala

Zone de liste VBA
Bonjour,

mise en contexte : Je possède une interface utilisateur (Onglet "données Générales"), une fois tout les champs renseigné l'utilisateur valide, et les données sont renseigné sur la première ligne d'un onglet "data"(la mise en page sera toujours la même par exemple le Nom sera toujours en colonne A). Si il revalide une saisie ça sera la deuxième ligne etc.
J'aimerai savoir si il est possible de faire la communication inverse c'est à dire de créer une zone de liste dans l'interface utilisateur qui lui permettrait d'accéder à ses saisies précédentes.

Et si oui, auriez vous des aides, car j'ai essayé, j'arrive bien à selectionner une plage de donnée, mais pour ce qui est de communiquer à partir de la, quand je fais affecter une macro on me propose de suite
Code:

1 2 3 Sub Zonedeliste1_changement() End Sub
je préférerais en sois clic, et après je ne sais pas du tout comment communiquer avec... J'aurais bien une idée, mais j'ai peur de dire une bêtise.

En tout cas merci beaucoup pour toute l'aide apportée ces dernières semaine :D

Cordialement,
05/07/2017, 14h21
Invité

Bonjour,

Ton interface utilisateur est un UserForm présent dans ton onglet "données Générales" ? Ou est-ce tout simple des cellules remplies dans ton onglet "données Générales" ?

Il serait aussi intéressant de voir le code que tu as actuellement (pour que l'on comprenne mieux le fonctionnement).

Bonjour Oudouner,

Ce sont des cellules remplies.

Pour remplir en annexe j'utilise le code suivant :
Code:

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 Sub Validation_Cliquer() Dim FL1 As Worksheet ', Cell As Range Dim DerLig As Long, Magasin As String, LigEcriture As Long Magasin = ThisWorkbook.Worksheets("Données Générales").Range("O6").Value Set FL1 = Worksheets("Data" & Magasin) DerLig = Split(FL1.UsedRange.Address, "$")(4) 'permet d'accéder à la dernière ligne avec des données de l'onglet Data 'On va remplir l'onglet Data avec les données Une ligne pour Une validation de donnée 'Pour pouvoir écrire dans la première ligne vide : LigEcriture = DerLig + 1 'rentre le type de contrôle en DATA ThisWorkbook.Worksheets("Data" & Magasin).Cells(LigEcriture, 1).Value = ThisWorkbook.Worksheets("Données Générales").Range("D6").Value 'rentre l'aggréeur en DATA ThisWorkbook.Worksheets("Data" & Magasin).Cells(LigEcriture, 2).Value = ThisWorkbook.Worksheets("Données Générales").Range("F6").Value 'ainsi de suite avec une dizaine de cellules... End Sub
En gros l'utilisateur sélectionne le Magasin, à partir de là il remplira ses cellules (je sais c'est rébarbatif de pas avoir utilisé de boucle, mais c'est dans un soucis de maintenance par des gens qui débutent (encore plus que moi) j'ai préféré faire de la sorte et beaucoup commenter.) Ensuite l'utilisateur clic sur un bouton "validation" et ces données sont envoyé en annexe dans l'onglet "DataMagasin1" ou "DataMagasin2" en fonction du magasin choisit.

Ce que j'aimerai donc faire, c'est créer une zone de liste qui permet de récupérer les données rentrée par le passé par l'utilisateur (par exemple pour corriger une faute de frappe),
C'est à dire :
- l'utilisateur saisie ses premières données, valide
- il saisie ses deuxièmes données, puis revalide etc
-à un moment il se dit "tient j'avais fais quoi là déjà ?" et bien il faudrait qu'il y'ai une zone de liste (je me débrouillerai pour le nom des items) ou il puisse sélectionner sa deuxième saisie validée par exemple et que du coup cette dernière renseigne en retour les cellule de son interface avec les données qu'il avait saisie à l'époque.

En espérant avoir était clair, n'hésitez pas à me poser des questions.

Cordialement

06/07/2017, 09h02
Invité

Bonjour,

Voici mon idée, il faudrait que tu insères un ID à tes lignes de données (dans tes feuilles Data). A partir de cette ID, tu pourrais faire une fonction recherche qui remplirai tes cellules de ta feuille "Données générales" avec les données déjà enregistré.

Pour la mise à jour de la ligne on en parlera après si tu as déjà compris mon idée. ^^
06/07/2017, 09h42
touch my tralala

Bonjour,

En gros il faudrait que j'ajoute une colonne qui prend le numéro de la ligne, et qui ferait office "d'id" pour la lecture après ?

Si c'est bien a je suis ouvert à tes idées !

Après, mes données actuellement sont rentrées dans les colonnes en annexe mais cela n'est pas sous forme de tableau, veux tu que je fasse cette modification en plus de l'ajout de la colonne ID ?

Cordialement,
06/07/2017, 09h45
Invité

C'est exactement sa, j'ai réfléchi et je pense qu'il faudrait que l'ID soit constitué de cette manière :

numéro de ligne + Magasin (pour pouvoir faire le recherche dans la bonne feuille Data).

Il serait plus simple pour toi que soit sous forme de tableau, même pour la lisibilité, à toi de voir.

Je te montre ce que j'ai fait pour la recherche dans quelque instant.

3 pièce(s) jointe(s)

Si on cherche par exemple l'ID 7M1 dans la DataM1 :

Avant exécution de la macro
Pièce jointe 291822

Données présentent dans la feuille DataM1
Pièce jointe 291824

Après exécution de la macro
Pièce jointe 291829

Et voici la macro que j'ai utilisé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub Recherche_Click()
 
    Dim FL1 As Worksheet
    Dim res As Range
    Dim Id As String
    Dim i As Integer
 
    Id = Sheets("Données Générales").Range("B6").Value
 
    If Id Like "" Then
 
        Exit Sub
 
    End If
 
    Set FL1 = Sheets("Data" & Right(Id, 2))
    Set res = FL1.Range("A:A").Find(Id)
 
    Sheets("Données Générales").Range("D6").Value = FL1.Cells(res.Row, 2).Value
    Sheets("Données Générales").Range("F6").Value = FL1.Cells(res.Row, 2).Value
    Sheets("Données Générales").Range("O6").Value = Right(Id, 2)
 
End Sub

06/07/2017, 10h12
touch my tralala

Dans l'idée c'est vraiment bien, si ce n'est parfait !

Deux petites choses : serait il possible de "prérentrer" ces idées dans une combobox (zone de liste sans activeX dans l'idéal), afin que l'utilisateur puisse naviguer sans avoir rien à saisir.

Peux tu me donner plus de détail sur la ligne (en particulier sur ce "right") :

Code:

Set FL1 = Sheets("Data" & Right(Id, 2))

?

Merci beaucoup !

Citation:

Envoyé par touch my tralala

Dans l'idée c'est vraiment bien, si ce n'est parfait !

Deux petites choses : serait il possible de "prérentrer" ces idées dans une combobox (zone de liste sans activeX dans l'idéal), afin que l'utilisateur puisse naviguer sans avoir rien à saisir.

Peux tu me donner plus de détail sur la ligne (en particulier sur ce "right") :

Code:

Set FL1 = Sheets("Data" & Right(Id, 2))

?

Merci beaucoup !

Alors, je suis vraiment pas à l'aise avec les zone de liste sans activeX, donc je l'ai fait avec une Zone de liste déroulante (Contrôle ActiveX) que j'ai renommé ComboBox1.
Dans ton explorateur VBA, Dans "ThisWorkbook" ajoute ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Workbook_Open() Dim derLig1 As Long Dim derLig2 As Long derLig1 = Sheets("DataM1").Cells(Rows.Count, 1).End(xlUp).Row derLig2 = Sheets("DataM2").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Données Générales").ComboBox1.List = Sheets("DataM1").Range("A2:A" & derLig1).Value Sheets("Données Générales").ComboBox1.AddItem Sheets("DataM2").Range("A2:A" & derLig2).Value End Sub
Sa permet de remplir ta combobox avec les ID présent dans tes magasins à chaque fois que tu ouvres ton fichier.

Enfin, il te suffit juste d'utiliser cette procédure de recherche :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Public Sub Recherche_Click() Dim FL1 As Worksheet Dim res As Range Dim Id As String Dim i As Integer Id = Sheets("Données Générales").ComboBox1.Value If Id Like "" Then Exit Sub End If Set FL1 = Sheets("Data" & Right(Id, 2)) Set res = FL1.Range("A:A").Find(Id) Sheets("Données Générales").Range("D6").Value = FL1.Cells(res.Row, 2).Value Sheets("Données Générales").Range("F6").Value = FL1.Cells(res.Row, 2).Value Sheets("Données Générales").Range("O6").Value = Right(Id, 2) End Sub
Pour le Right, il permet de récupérer les 2 premiers caractères à droite de la variable Id, par exemple, si Id vaut 1M1, le Right te donnera M1. :)

C'est vraiment top, j'ai fais 2 3 modifs que je partage avec toi, après j'ai également un petit truc qui ne va pas :/

En gros c'est pas "répétable" ça a marché du tonnerre 3/4 fois et après ça a buggé en m'indiquant l'erreur suivante : "Erreur d'éxécution '381' Impossible de définir la propriété List. Index de table de propriété non valide."
Code:

1 2 3 4 5 6 7 8 Dim derLig1 As Long Dim derLig2 As Long derLig1 = Sheets("DataMONOPRIX").Cells(Rows.Count, 1).End(xlUp).Row derLig2 = Sheets("DataRNO").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Données Générales").ComboBox21.List = Sheets("DataMONOPRIX").Range("AO2:AO" & derLig1).Value Sheets("Données Générales").ComboBox21.AddItem Sheets("DataRNO").Range("AO2:AO" & derLig2).Value
Changements sommes toutes basiques : Changer la ref de l'ID en colonne A chez toi pour la colonne AO chez moi et remplacer M1 et M2 par MONOPRIX et RNO.

De plus quand ça marchait (au début pardis) il rentrait bine l'ID dans la combobox, mais quand je cliquais dessus il ne me renvoyait pas les infos de l'onglet "Data"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim FL1 As Worksheet Dim res As Range Dim Id As String Dim i As Integer Dim Magasin As String Magasin = Sheets("Données Générales").Range("O6").Value Id = Sheets("Données Générales").ComboBox21.Value If Id Like "" Then Exit Sub End If Set FL1 = Sheets("Data" & Magasin) Set res = FL1.Range("AO:AO").Find(Id) Sheets("Données Générales").Range("D6").Value = FL1.Cells(res.Row, 1).Value
là encore des changements mineurs, j'ai voulu garder la syntaxe que j'utilisais au début (avec le nom du magasin) et j'ai mis l'index en AO.

Si tu as la moindre idée. en tout cas tu en as déjà fais beaucoup, merci à toi !

06/07/2017, 13h01
Invité

Logiquement, tes changements n'ont pas du affecter le fonctionnement de la macro. Donc le problème vient d'autre part. Il est possible que sa vienne du fait que la combobox ne se met pas à jour quand tu rajoutes une ligne dans tes Data. Tu te souviens des manips que tu avais fait avant que sa plante ?

J'avais tout d'abord utilisé ma fonction :
Code:

1 2 3 4 5 6 7 8 9 10 Sub Nettoyage_Cliquer() Dim Magasin As String, Nettoyage As Variant Magasin = ThisWorkbook.Worksheets("Données Générales").Range("O6").Value Nettoyage = ThisWorkbook.Worksheets("Data" & Magasin).Range("A2:EE1048576").Clear End Sub
suivi de plus sieur validation dans un onglet de data d'un magasin puis l'autre (validation dans données générale, changement de magasin).
Puis j'ai fermé et réouvert excel afin de faire marcher ta fonction.

les premières fois ça a marché et sans que je change de chose en particulier, d'un coup, plus rien.

PS : chose qui n'a pas forcément à voir, sais tu comment communiquer avec la "linked cell" du liste déroulante dans une cellule ?

06/07/2017, 15h22
Invité

Eh bien j'ai du mal à voir d'où peut venir le problème comme sa, j'ai essayé les même manips que toi et je n'ai pas eu d'erreur, c'est très bizarre.

Je n'ai jamais utilisé de linked cell mais je peux essayer de me renseigner.

Salut salut,

Je me casse un peu les dents dessus là actuellement, je vais faire une petite pause mais d'abord je te fais part de mon avancement :

J'ai eu deux erreur coup sur coup, la première, erreur 91 était du à la fonction "find" qui ne trouvait rien parfois, voici comment j'ai procédé pour la contourner
ajout d'un bloc "if res is nothing" :
Code:

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 Public Sub Recherche_Click() Dim FL1 As Worksheet Dim res As Range Dim Id As String Dim i As Integer Dim Magasin As String Magasin = ThisWorkbook.Worksheets("Données Générales").Range("O6").Value Id = Sheets("Données Générales").ComboBox21.Value Id = Sheets("Données Générales").ComboBox22.Value If Id Like "" Then Exit Sub End If Set FL1 = Worksheets("Data" & Magasin) Set res = FL1.Range("AO:AO").Find(Id) If res Is Nothing Then Else Sheets("Données Générales").Range("D6").Value = FL1.Cells(res.Row, 2).Value Sheets("Données Générales").Range("F6").Value = FL1.Cells(res.Row, 2).Value End If End Sub
ensuite une nouvelle erreur est apparue, en rapport avec la fonction AddItem, pour la contourner, j'ai choisi d'essayer de créer une deuxième combobox puisque la fonction List semble fonctionner.

Je suis confronter à un problème, la lecture se fait bien dans ma première combobox, mais ça n'affiche pas la bonne colonne dans ma deuxième. Le côté positif c'est que je n'ai plus de message d'erreur ! on touche au but !
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Workbook_Open() Dim derLig1 As Long Dim derLig2 As Long derLig1 = Sheets("DataMONOPRIX").Cells(Rows.Count, 1).End(xlUp).Row derLig2 = Sheets("DataRNO").Cells(Rows.Count, 1).End(xlUp).Row Sheets("Données Générales").ComboBox21.List = Sheets("DataMONOPRIX").Range("AO2:AO" & derLig1).Value Sheets("Données Générales").ComboBox22.List = Sheets("DataRNO").Range("AO2:A0" & derLig2).Value End Sub

Ok pour le find, tu as exactement fait ce qu'il fallait faire.

Par contre pour les combobox, en avoir deux va être extrément compliqué à gérer par la suite. Il faut mieux en garder une seule, j'ai essayé de bidouiller un peu (sa me plait pas trop) pour éviter d'utiliser un addItem, dit moi ce que tu en penses :

Code:

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
Private Sub Workbook_Open()
 
    Dim derLig1 As Long
    Dim derLig2 As Long
    Dim i As Integer
    Dim r As Range
    Dim r2 As Range
    Dim tablo() As String
 
    derLig1 = Sheets("DataM1").Cells(Rows.Count, 1).End(xlUp).Row
    derLig2 = Sheets("DataM2").Cells(Rows.Count, 1).End(xlUp).Row
 
    Set r = Sheets("DataM1").Range("A2:A" & derLig1)
    Set r2 = Sheets("DataM2").Range("A2:A" & derLig2)
 
    ReDim tablo(1 To derLig2 + derLig1 - 2)
 
    For i = 1 To derLig1 - 1
 
        tablo(i) = r.Value2(i, 1)
 
    Next i
 
    For i = derLig1 To derLig1 + derLig2 - 2
 
        tablo(i) = r2.Value2(i - derLig1 + 1, 1)
 
    Next i
 
    Sheets("Données Générales").ComboBox1.List = tablo
 
End Sub

J'ai trouvé une solution plus élégante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Workbook_Open()
 
    Dim derLig1 As Long
    Dim derLig2 As Long
    Dim i As Integer
    Dim r As Range
    Dim r2 As Range
    Dim tablo() As Variant
 
    derLig1 = Sheets("DataM1").Cells(Rows.Count, 1).End(xlUp).Row
    derLig2 = Sheets("DataM2").Cells(Rows.Count, 1).End(xlUp).Row
 
    Sheets("DataM2").Range("A2:A" & derLig2).Copy Destination:=Sheets("DataM1").Range("A" & derLig1 + 1)
 
    tablo() = Sheets("DataM1").Range("A2:A" & derLig1 + derLig2 - 1).Value
 
    Sheets("DataM1").Range("A" & derLig1 + 1 & ":A" & derLig1 + derLig2 - 1).ClearContents
 
    Sheets("Données Générales").ComboBox1.List = tablo
 
End Sub

EDIT : Le Add Item ne marchait pas car il permet seulement d'ajouter un seul élément à la combobox, dans mon cas j'essayé d'ajouter Range d'élément, ce qui posait problème s'il y avait plus d'un élément dans cette Range.

07/07/2017, 15h19
touch my tralala

Bonjour Oudouner,

J'ai testé tes modifications, vraiment très sympa pour du bidouillage, ça affiche bien dans la combolist comme souhaité ! Maintenant c'est la fonction recherche dont il faut s'occuper, mais je pense que ça devrait être faisable, j'ai plus ou moins compris comment cela fonctionnait !

merci pour tout.

Je met pas encore résolu, je vais essayer de me débrouiller de mon côté, j'espère que d'ici le début de la semaine ce sera fait, et dans ce cas là je reviendrai mettre résolu, le cas contraire, je viendrais vous demander de l'aide :P.
07/07/2017, 15h26
Invité

Citation:

Envoyé par touch my tralala

Bonjour Oudouner,

J'ai testé tes modifications, vraiment très sympa pour du bidouillage, ça affiche bien dans la combolist comme souhaité ! Maintenant c'est la fonction recherche dont il faut s'occuper, mais je pense que ça devrait être faisable, j'ai plus ou moins compris comment cela fonctionnait !

merci pour tout.

Je met pas encore résolu, je vais essayer de me débrouiller de mon côté, j'espère que d'ici le début de la semaine ce sera fait, et dans ce cas là je reviendrai mettre résolu, le cas contraire, je viendrais vous demander de l'aide :P.

Bon courage à toi. ;)