[chareos]

Bonsoir le forum.

Excellent code vba et je m'en sert pour gérer un parc info d'une centaine de machine avec tout ce qui va avec.

Mon souci est que je gère d'autre type de matèriel sur d'autre feuilles et que je souhaiterais inclure un champ de recherche global sans être obligé d'aller selectionner d'abord la feuille en question.

Vrai débutant en VBA (oui oui ça existe), je ne sais pas comment faire , j'ai tenté de chercher par moi même, j'ai bien trouvé la fonctione recherchev mais après j'ai tenté sans succès.

Merci beaucoup de votre aide et n'hésiter si je ne suis pas très clair.

[KIM]

Bonjour le Forum, Bonjour Didier,
@Didier,
Je n'avais pas de soucis avec ton fichier MultiMiniBD.
J'utilise depuis quelque mois Excel 2002 SP3.
En reprenant ton fichier d'origine, Multi_Mini_BD V 5_01 ou Multi_Mini_BD V 5 ou Multi_Mini_BD V 4
et en clicquant sur l'onglet "Navigation Table", j'ai le message d'erreur suivant:
"Erreur 380, Impossible de définir la propriété RowSource, Valeur de propriété non valide"
dans Sub RechercheGo_Click()
ligne: RechercheTable.RowSource="MMBD_Extraction"

Meme message quand je clicque sur le menu avec ListIndex (NomBD_ListIndex=0)
Merci de votre aide
Bien cordialement
KIM

[DidierC]

Bonjour Chareos, Kim, le Forum.

Désolé pour le retard à l'allumage.

@ Chareos

Votre demande me semble assez difficile à mettre en place sous MMBD.
( Celui-ci n'a pas été conçu dans cet esprit ).

Par ailleurs nous serions, dans ce cas, plus proche de la gestion complexe de BdD.
Je suis pas sur qu'Excel soit le meilleur outil pour ce genre d'opérations...


@ Kim

Surprenant... C'est la première fois que cette erreur m'est rapportée.

Sur les fichiers d'origine ?

As-tu essayé sur une autre machine ?


Bon courage à tous et A+

Didier

[chareos]

Bon jour le forum,

Merci de votre réponse.

J'ai trouvé une macro qui permet, en ouvrant une nouvelle fenêtre d'effectuer la recherche sur l'ensemble du classeur mais par contre j'aimerais que la fenêtre de MMDB se ferme lorsque j'effectue la recherche????

J'espère être clair dans ma demande.

[DidierC]

Bonjour Chareos, le Forum.

La macro en question est peut être utilisable dans MMBD...

Pouvez vous la mettre à notre disposition ?
( Si celle ci est 'libre' et avec les références de l'auteur si celles-ci sont disponibles ).

Bon courage et A+

Didier.

[chareos]

Bonsoir Didier, le forum,

désolé du retard de ma réponse.

Je vous joint le fichier excel et une image de ce que j'ai fait sur MMdb.

Concernant l'origine de ce fichier je l'ai trouvé parmi d'autre mais je n'ai pas retrouver l'auteur (pas de nom dans le script) et il n'y a aucun code sur le script.

merci de votre aide pour le newbie que je suis.

[DidierC]

Bonjour Chareos, le Forum.

@ Chareos ( et aux autres personnes que cela peut interesser ).

Ci-dessous la macro adaptée pour fonctionner avec MMBD...

La macro cherche une variable ( à saisir ) dans l'ensemble des BdD du classeur
et ce, quelque soit la BdD, la ligne ou la colonne.
( La navigation se fait au fil des résultats trouvés )

Coller cette macro dans le Navigateur.

Créer un bouton sur le Navigateur.
( Je conseille de le mettre près de la ComboBox de changement de BdD ).

Y accrocher la macro.

Cela devrait fonctionner...

( j'intègrerai ça en standard dans une prochaine version de MMBD )

Bon courage à tous et A+

Didier.

'================================================= ==
Sub RechercherDansFeuilles()

Dim Cherche1 As String
Dim Trouvé1 As Range
Dim Cherche2 As String
Dim Trouvé2 As Range
Dim i As Integer

Cherche1 = ""
Set Trouvé1 = Range("A2")
Cherche2 = ""
Set Trouvé2 = Range("A2")

Cherche1 = InputBox("Valeur à rechercher dans les bases de données de ce classeur..." & Chr$(13) & Chr$(13) & _
"( Ne pas utiliser les noms des colonnes )", "Multi Mini BD")

If Cherche1 = "" Or Cherche1 = " " Or Cherche1 = " " Or Cherche1 = " " Then Exit Sub

MultiPage1.Value = 0

NomBD.Enabled = False

For i = 1 To Sheets.Count

If ThisWorkbook.Sheets(i).Name = "MMBD_Extraction" Or _
ThisWorkbook.Sheets(i).Name = "MMBD_Analyse" Or _
ThisWorkbook.Sheets(i).Name = "MMBD_Guide" Then GoTo NePasChercher

Sheets(i).Select: Set Trouvé1 = Cells.Find(What:=Cherche1)

If Not Trouvé1 Is Nothing Then

If Trouvé1.Row = 1 Then
MsgBox Cherche1 & " = Nom de colonne " & Chr$(13) & Chr$(13) & "Fin de la recherche...", , "Multi Mini BD"
NomBD.Enabled = True
ThisWorkbook.Sheets(NomBD.Text).Activate
RetournerInfo
Exit Sub
End If

Trouvé1.Activate

With ActiveCell.Characters(Start:=InStr(1, Selection, Left(Cherche1, 1), 1), Length:=Len(Cherche1))
NomBD.Text = ThisWorkbook.Sheets(i).Name
Cells(Trouvé1.Row, 1).Activate
RetournerInfo
Trouvé1.Activate
End With

ChercherEncore:

Cherche2 = MsgBox("Poursuivre la recherche de : " & Cherche1 & " ?", vbYesNo, "Multi Mini BD")

If Cherche2 = vbYes Then

Set Trouvé2 = ActiveSheet.UsedRange.FindNext(After:=ActiveCell)

If Trouvé2.Row = 1 Then
MsgBox Cherche1 & " = Nom de colonne " & Chr$(13) & Chr$(13) & "Fin de la recherche...", , "Multi Mini BD"
NomBD.Enabled = True
ThisWorkbook.Sheets(NomBD.Text).Activate
RetournerInfo
Exit Sub
End If

If Trouvé2 Is Nothing Then

Cells(Trouvé2.Row, 1).Activate
RetournerInfo
Trouvé2.Activate

Else

Cells(ActiveCell.Row, 1).Activate

End If

Else

NomBD.Text = ThisWorkbook.Sheets(i).Name
Cells(ActiveCell.Row, 1).Activate
RetournerInfo
NomBD.Enabled = True
Exit Sub

End If

If Trouvé2.Address <> Trouvé1.Address Then

Trouvé2.Activate

With ActiveCell.Characters(Start:=InStr(1, Selection, Left(Cherche1, 1), 1), Length:=Len(Cherche1))
NomBD.Text = ThisWorkbook.Sheets(i).Name
Cells(Trouvé2.Row, 1).Activate
RetournerInfo
Trouvé2.Activate
End With

GoTo ChercherEncore

End If

End If

NePasChercher:

Next i

If ActiveCell.Row = 1 Then
Cells(ActiveCell.Row + 1, 1).Activate
Else
Cells(ActiveCell.Row, 1).Activate
End If

NomBD.Enabled = True

ThisWorkbook.Sheets(NomBD.Text).Activate
RetournerInfo

MsgBox "Fin de la recherche...", , "Multi Mini BD"

End Sub
'================================================= ==

[chareos]

Bonjour Didier, le forum.

@ Didier
Merci de ta réponse si rapide et si précise.

J'effectue les modifs et je te tiens au courant.

Cordialement.