Recherche Userform via un tableau VBA

Bonjour a tous,

Présentation:
J'ai créé un userform qui me permet de contrôler des poteaux incendie. Chaque hydrant porte un nom spécifique comportant un code de la commune et le numéro du poteau. (ex 28120-00004) 28120 étant le code communale et 00004 le numéro de l'hydrant.

Pièce jointe 587581

Demande: (zone Jaune de l'image)

Je souhaiterais que lors du choix de la commune, le Textbox "code sdis" affiche le premier code du poteau (qui appartient à la commune) e que grace au fléche je puisse passé a l'hydrant suivant.

Code:

Actuellement j'arrive a enregistrer l'ensemble de mes donnéss dans un tableau VBA et de les afficher dans le Textbox du "Code SDIS" mais je ne parvient pas a le faire modifier par les flèches.

Mon code actuelle est le suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub codesdis_Change() Dim tableau(2500, 1), I As Integer 'Déclaration du tableau en variable pour l'enregistrement des codes SDIS et commune   For I = 0 To 2500 tableau(I, 0) = Sheets("TGRI").Range("L" & I + 2) tableau(I, 1) = Sheets("TGRI").Range("K" & I + 2) Next codesdis.Value = Application.WorksheetFunction.VLookup(ComboBox1, tableau, 2, False)   End Sub

---

Objet:
Nom de la feuille source: TGRI
Source code SDIS : K9:K2500
Source commune : L9:L2500
Outils userform "Codes SDIS" : codesdis
Outils userform "Commune" : Combobox1

A savoir:
L'utilisation d'un tableau VBA n'est pas obligatoire je souhaite simplement un code qui me permet de faire ce que je souhaite.
La valeur du Textbox "Code SDIS" permettra de renseigner l'ensemble de l'Userform ainsi que de transmettre les nouvelles données dans mon tableau excel.

Si vous souhaitez plus d'information je peux bien sur vous en fournir. Pour des raisons de confidentialité des données je ne peux vous transmettre le fichier (j'en suis désolé).

Citation:

---

Envoyé par wouairness

---

Bonjour,

De mon point de vue, c'est au changement de commune que la variable Tableau doit être chargée ou filtrée avec seulement les bornes concernant la commune. Lorsque votre code sdis change, le reste des données en jaune change. Plutôt qu'un TextBox, une ListBox contenant la liste des poteaux de la commune serait plus adaptée et vous n'auriez pas forcément besoin des flèches. En cas d'utilisation des flèches, il suffit d'agir la propriété ListIndex de la ListBox comme avec code sdis change et de récupérer les infos correspondantes soit dans votre onglet soit dans votre matrice si vous chargez ces infos dedans.
Pour cette raison, la mise à jour des champs en jaune doit plutôt se faire dans une procédure spécifique pour ne pas avoir à répéter le code dans les différents événements (code sdis et les flèches).

Je te remercie pour ton implication Eric et effectivement pour simplifier l'utilisation du formulaire je vais suivre ton conseil et changer le textbox du codesdis en combobox afin d'y enregistrer la liste des codes hydrants, tout en gardant le système de flèche pour un meilleur confort. Mais malheureusement mon code d'assignation pour le combobox "codesdis" ne fonctionne pas, sûrement qu'il ne pioche pas au bon endroit.

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

Sub ComboBox1_Change()   Dim valeurcherche As String Dim plagederecherche As Integer Dim resultadelarecherche As Range Dim collonetrouvee As Integer Dim lignetrouvee As Integer Dim colonne As Integer, nbLignes As Integer, i As Integer   '+++assignation de la liste dans le codesdis     'Zone de liste vidée codesdis.Clear   'Numéro de la sélection colonne = ComboBox1.ListIndex + 7 MsgBox colonne   'Si le numéro de colonne = 0 la procédure est quittée If colonne = 0 Then Exit Sub   'Nombre de lignes de la colonne de la commune choisi nbLignes = Sheets("source").Cells(2, colonne).End(xlDown).Row   'Boucle pour ajouter les codes hydrant dans la zone de liste For i = 2 To nbLignes     codesdis.AddItem Sheets("codage").Cells(i, colonne) Next

---

De plus je souhaiterais que quand j'utilise les flèches, qu'il bloque sur le dernier de la liste ainssi que le premier afin qu'il ne passe pas sur une autre commune par erreur. J'ai voulue passer par un système qui détecte la première et dernière de la liste mais sans succès. Je pense qu'il serais préférable de passer par un tableau afin de gérer dans l'ensemble du code les différentes actions portées sur les "code sdis". Si jamais vous avez une idée d'un bout de code permettant cela je suis preneur. Je vous souhaite une bonne journée.

Citation:

---

Envoyé par wouairness

---

Si ton tableau est un tableau structuré, regarde cette réponse de Pierre FAUCONNIER : https://www.developpez.net/forums/d2.../#post11665814
Il te suffirait de filtrer la commune puis de charger ta ListBox avec le résultat. Celui-ci devrait être quasi instantané.

Visiblement cette solution n'est pas disponible sur Office 2013, désolé. La méthode Filter est disponible en VBA, requêter sur le forum pour obtenir des exemples.

Bonjour

Je n'es pas pue gérer l'enchainement des code hydrant via les flèches je les ai donc simplement supprimer et utiliser l
le combobox pour le choix. Grace au code suivant, que je pose ici si il permet a d'autre de résoudre leur problème.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim nbcommune As Integer, hautplagecode As Range '   nbcommune = WorksheetFunction.CountIf(Sheets("TGRI").Range("L9:L2500"), ComboBox1.Value) ' compter le nombre de valeur du combobox est présent dans la source 'nbcommune = nbcommune - 1   'recherche de la premiére cellule de la plage   Set hautplagecode = Sheets("TGRI").Range("L9:L2500").Find(valeurcherche, , xlValues, xlWhole, , xlNext) 'MsgBox hautplagecode.Address   If valeurcherche = Sheets("TGRI").Range("L9").Value Then   controle.codesdis.list = Worksheets("TGRI").Range(Cells(hautplagecode.Row - 1, hautplagecode.Column - 1), Cells(hautplagecode.Row + nbcommune - 2, hautplagecode.Column - 1)).Value 'MsgBox plagecode.Address     Else controle.codesdis.list = Worksheets("TGRI").Range(Cells(hautplagecode.Row, hautplagecode.Column - 2), Cells(hautplagecode.Row + nbcommune - 1, hautplagecode.Column - 2)).Value 'MsgBox plagecode.Address     End If

---

Merci Eric pour ton aide :D

Problème résolu