Code VB de recherche dans un tableau

[limofab]

Bonjour à tous,

J'ai actuellement un fichier Excel 2003 qui recense plusieurs communes de plusieurs départements. Je ne suis pas très bon dans le VB et je souhaiterais un peu d'aide 😱

Je souhaiterais dans un premier temps pouvoir en cliquant sur le bouton "COMMUNE"; renseigner la commune à rechercher dans la zone de texte puis retourner la ligne correspondante (commune, département, cp, fruit, couleur etc...) dans le Userform "resultat_commune" pour afficher la carte d'identité de cette dernière.

Dans un deuxième temps, je souhaiterais en cliquant sur le bouton "CORREZE CANTAL"; effectuer un affichage de la liste des communes uniquement du département 15 et 19. Ensuite l'utilisateur pourra sélectionner cette dernière et afficher la carte d'identité dans le Userform "resultat_commune".

Merci d'avance pour votre aide

 

[limofab]

Re : Code VB de recherche dans un tableau

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

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

A+
kjin

Bonsoir,

Juste une ptite question sur ce code VB,
Dès que l'USF se lance au demarrage, il ferme toutes les fenêtres Excel...
Est ce que l'on peut empêcher celà ?

Cordialement

 

[limofab]

Re : Code VB de recherche dans un tableau

Une autre ptite question concernant le fichier excel présent en pièce jointe :
Comment éviter le message d'erreur quand je ne selectionne aucune commune ?

 

[kjin]

Re : Code VB de recherche dans un tableau

bonsoir,
Pour le message #16
N'était ce pas ce que tu souhaitais !?
Pour le message #17
si j'ai bien compris, dans le USF communes

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex <> -1 Then resultat_commune.Show
End Sub

A+
kjin

 

[limofab]

Re : Code VB de recherche dans un tableau

Pour le #16, je souhaitais une ouverture automatique mais ce code ferme toutes les fenêtres Excel. C'est donc embêtant quand on travaille sur plus d'un fichier Excel.
Y a t'il un moyen d'éviter ce prob ?

Cordialement

 

[jeanpierre]

Re : Code VB de recherche dans un tableau

Bonsoir limofab, le fil,

Si tu joues avec "Application.Visible = False", c'est tout Excel qui est concerné, donc pas de solution pour moi.

Les moyens, je n'en vois pas. C'est tout ou rien.

Bonne soirée.

Jean-Pierre

 

[limofab]

Re : Code VB de recherche dans un tableau

Bonsoir limofab, le fil,

Si tu joues avec "Application.Visible = False", c'est tout Excel qui est concerné, donc pas de solution pour moi.

Les moyens, je n'en vois pas. C'est tout ou rien.

Bonne soirée.

Jean-Pierre

Et une bidouille du genre : "nomdufichierxls".visible = False
ça n'existe pas ?

Cordialement

 

[jeanpierre]

Re : Code VB de recherche dans un tableau

Re,

Je ne pense pas, ce ne serait plus une bidouille mais une réalité ce qui n'est pas le cas.

Bonne soirée

 

[limofab]

Re : Code VB de recherche dans un tableau

bonsoir,
Pour le message #16
N'était ce pas ce que tu souhaitais !?
Pour le message #17
si j'ai bien compris, dans le USF communes

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex <> -1 Then resultat_commune.Show
End Sub

A+
kjin

Super, celà va me permettre d'éviter les erreurs utilisateurs. Merci

Cordialement

 

[limofab]

Re : Code VB de recherche dans un tableau

Et une bidouille du genre : "nomdufichierxls".visible = False
ça n'existe pas ?

Cordialement

Est il possible dans ce cas d'ouvrir l'USF au demarrage en réduisant le classeur pour éviter d'avoir la base de donnée en arrière plan.

Cordialement

 

[jeanpierre]

Re : Code VB de recherche dans un tableau

Bonsoir limofab, le fil,

On peut faire plein de chose :

Par exemple, dans ton cas, un USF ouvert en plein écran et qui masque ainsi Excel.

et aussi Excel minimisé par quelque chose comme ceci : Application.WindowState = xlMinimized

Ouverture aussi sur une feuille vierge.... donc la base n'est pas visible immédiatement.

Ce ne sont que quelques exemples. je pense qu'il y en a d'autres.

Bonne soirée.

Jean-Pierre

 

[limofab]

Re : Code VB de recherche dans un tableau

Bonsoir,

Celà ne fonctionne pas car le classeur et l'USF sont réduits.
Je vais faire une feuille de présentation avec un bouton pour lancer l'USF. La BD sera masquer et protéger via mot de passe afin d'éviter tous problèmes.

Cordialement

 

[jeanpierre]

Re : Code VB de recherche dans un tableau

Re,

Question pour ma gouverne...

1) Comment peux-tu travailler sur un classeur Xl et un Usf réduit... ?

2) Ta feuille de présentation sera réduite aussi, non ?

Simplement pour ma compréhension.

Bonne soirée.

Jean-Pierre

 

[PascalXLD]

Re : Code VB de recherche dans un tableau

Bonjour

dans l'inisialisation de ton UF

With Me
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With

 

[limofab]

Re : Code VB de recherche dans un tableau

Re,

Question pour ma gouverne...

1) Comment peux-tu travailler sur un classeur Xl et un Usf réduit... ?

2) Ta feuille de présentation sera réduite aussi, non ?

Simplement pour ma compréhension.

Bonne soirée.

Jean-Pierre

Je vais annuler la reduction du classeur au demarrage.
Une feuille d'accueil me permettra de rebondir sur l'USF.

Cordialement

 

[PascalXLD]

Re : Code VB de recherche dans un tableau

Re

Tu peux dans le thisworkbook_open lancer l'uf avec dans l'initialisatioin de celui-ci le code que je t'ai donné tout à l'heure