Code VB de recherche dans un tableau

K

kjin

XLDnaute Barbatruc

• 26 Décembre 2008

• #2

Re : Code VB de recherche dans un tableau

Bonjour,

limofab à dit:

..."CORREZE CANTAL"; effectuer un affichage de la liste des communes uniquement du département 15 et 19...

Cliquez pour agrandir...

Faut-il être infaillible sur les départements français pour utiliser ton fichier (ou peut-être fournis tu la liste à coté) ?
De même Clermont-Ferrant n'est pas un département, peut-être une agglo !
Plus sérieusement, peux-tu soit compléter ta base de données, ou seulement faire une recherche sur le numéro du département
A+
kjin

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 26 Décembre 2008

• #3

Re : Code VB de recherche dans un tableau

Bonjour Limofab, bonjour Kjin,

En dehors des problèmes départementaux, ci-joint un essai sur la base de ton exemple que tu pourras modifier pour l'adapter à ce que tu souhaites mais les enchaînements, listes et résultats sont opérationnels.

J'ai supprimé les différents userforms inutiles puisque la liste "commune" peut être initialisée pour chaque région dans le même userform.

@+

Gael

 

Pièces jointes

• Limofab_V1.zip

  38.4 KB · Affichages: 412
• Limofab_V1.zip

  38.4 KB · Affichages: 421
• Limofab_V1.zip

  38.4 KB · Affichages: 416

Dernière édition: 26 Décembre 2008

Vote positif 0 Vote négatif

L

limofab

Guest

• 26 Décembre 2008

• #4

Re : Code VB de recherche dans un tableau

Bonsoir,
La base de donnée n'est qu'un exemple, ce qui explique en partie les problèmes liés au département. J'ai regroupé volontairement certains départements comme le 63 sur Clermont-Ferrand car dans mon travail ils sont traités par cette ville.

Merci à toi Gael pour ta rapidité, c'est tout a fait ce que je cherchais !😀
Une seule petite chose, comment faire pour lancer directement l'Userform "Accueil" au démarrage (sans avoir à cliquer sur le bouton "MENU"). Et donc si c'est possible comment faire pour revenir après en mode "creation" afin de modifier le contenu du fichier.

Cordialement

 

Vote positif 0 Vote négatif

J

juju_69

XLDnaute Occasionnel

• 26 Décembre 2008

• #5

Re : Code VB de recherche dans un tableau

Bonsoir à tous,

Dans thisworkbook tu colles çà :

Private Sub Workbook_Open()
accueil.Show
End Sub

@ +

Juju

 

Vote positif 0 Vote négatif

L

limofab

Guest

• 27 Décembre 2008

• #6

Re : Code VB de recherche dans un tableau

Est il possible d'ouvrir uniquement le Userform Accueil (sans les feuilles en arrière plan) ?

Cordialement

 

Vote positif 0 Vote négatif

L

limofab

Guest

• 27 Décembre 2008

• #7

Re : Code VB de recherche dans un tableau

Gael à dit:

Bonjour Limofab, bonjour Kjin,

En dehors des problèmes départementaux, ci-joint un essai sur la base de ton exemple que tu pourras modifier pour l'adapter à ce que tu souhaites mais les enchaînements, listes et résultats sont opérationnels.

J'ai supprimé les différents userforms inutiles puisque la liste "commune" peut être initialisée pour chaque région dans le même userform.

@+

Gael

Cliquez pour agrandir...

Bonjour Kjin,

Peux tu m'expliquer la partie de code permettant de faire la recherche puis la mise en forme dans l'Userform (resultat_commune).
En effet, je souhaite appliquer ce code pour + de 2000 communes et environ 7 départements. Le projet final aura aussi une quinzaine de colonnes dans la feuille BD.

Cordialement

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 27 Décembre 2008

• #8

Re : Code VB de recherche dans un tableau

Bonjour à tous,

Le principe dans mon exemple est d'utiliser le filtre automatique d'Excel.

* Pour le USF "Accueil", aucune donnée n'est filtrée au départ.
* En fonction du bouton séléctionné, on filtre les enregistrements de la feuille "bd" avec le code suivant:

Code:

Private Sub CommandButton2_Click()
Range("A2").AutoFilter Field:=2, Criteria1:="=15", Operator:=xlOr, Criteria2:="=19"
commune.Show
End Sub

Le limite est de 2 critères (soit ici 2 départements), au-delà, il faudra faire différemment.

En fonction du bouton, tu mets dans un ou deux critères les départements à filtrer puis on appelle l'USF "Communes".

A l'initialisation, pour chaque commune visible dans la feuille (donc correpondant au filtre choisi) on crée un item supplémentaire dans le combobox pour générer la liste.

Code:

Sheets("bd").Activate
With Worksheets("bd")
       For Each c In .Range("A2", [A65536].End(xlUp)).SpecialCells(xlCellTypeVisible)
        ComboBox1.AddItem c.Value
       Next c
End With

Puis une fois le choix effectué, on lance le dernier USF "Résultat-commune" qui va rechercher la ligne contenant la valeur sélectionnée dans la feuille Bd et récupérer les informations:

Code:

With ActiveSheet.Range("A2", [A65536].End(xlUp)).SpecialCells(xlCellTypeVisible)
Set c = .Find(commune.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
End With
For i = 1 To 6
Me.Controls("Textbox" & i) = Cells(c.Row, 1).Offset(0, i - 1)
Next i

Si tu as 15 colonnes, rien ne change sauf "For i = 1 to 15" à condition que les "Textbox" soient numérotées de 1 à 15.

Le fait d'avoir 2000 communes ne change rien puisque l'instruction:

Code:

.Range("A2", [A65536].End(xlUp))

Va sélectionner la plage A2 jusqu'à la dernière ligne contenant une valeur.

Relance le Fil si problème avec un exemple.

@+

Gael

 

Vote positif 0 Vote négatif

L

limofab

Guest

• 27 Décembre 2008

• #9

Re : Code VB de recherche dans un tableau

Ok merci pour ces précieuses informations 😉
Je vais regarder ça le week end prochain.
Je relance le fil si j'ai un prob
Encore merci !

 

Vote positif 0 Vote négatif

L

limofab

Guest

• 5 Janvier 2009

• #10

Re : Code VB de recherche dans un tableau

Re Bonsoir,

Juste une ptite question.
Comment lancer uniquement l'USF sans lancer les feuilles Excel en arrière plan ?

Cordialement

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 5 Janvier 2009

• #11

Re : Code VB de recherche dans un tableau

Bonsoir à tous, le Forum,
Peut être avec la fonction Minimize :

utiliser les événements suivants

Worksheet_Activate()
Worksheet_Deactivate()

et

Workbook_Activate()
Workbook_Deactivate()

Si tu veux que toutes les feuilles de ton classeur soient en "Fullscreen" :

Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub

Si tu veux avoir seulement une feuille en "Fullscreen" :

Private Sub Worksheet_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Worksheet_Deactivate()
Application.DisplayFullScreen = False
End Sub

dans le module de la feuille concernée.

Cordialement

 

Vote positif 0 Vote négatif

L

limofab

Guest

• 6 Janvier 2009

• #12

Re : Code VB de recherche dans un tableau

Bonsoir,

J'ai l'impression que dans mon cas ça ne fonctionne pas.
L'USF que je souhaite lancer au demarrage est "accueil".
Je souhaite lancer uniquement cette USF au demarrage.
Quel serait le code VB ?

Private Sub Workbook_Open()
Application.DisplayFullScreen = False
accueil.show
End Sub

Cordialement

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 6 Janvier 2009

• #13

Re : Code VB de recherche dans un tableau

Bonsoir,
Essaies à tes risques et périls (fait une petite recherche sur le forum)

Code:

Private Sub Workbook_Open()
Application.Visible = False
accueil.show
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 7 Janvier 2009

• #14

Re : Code VB de recherche dans un tableau

Salut tout le monde

Voici une ébauche de recherche sans filtre ajouter a ceux déjà proposées.

Cordialement

 

Pièces jointes

• test_Recherche(V1).zip

  41.2 KB · Affichages: 280

Vote positif 0 Vote négatif

L

limofab

Guest

• 7 Janvier 2009

• #15

Re : Code VB de recherche dans un tableau

kjin à dit:

Bonsoir,
Essaies à tes risques et périls (fait une petite recherche sur le forum)

Code:

Private Sub Workbook_Open()
Application.Visible = False
accueil.show
End Sub

A+
kjin

Cliquez pour agrandir...

Ok ça marche ! Merci bien

@+

 

Vote positif 0 Vote négatif