rechercher sur plusieur onglet

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 7 Novembre 2010

• #2

Re : rechercher sur plusieur onglet

Bonsoir,


Formules Matricielles 3D

JB

 

Vote positif 0 Vote négatif

JONEY76

XLDnaute Occasionnel

• 7 Novembre 2010

• #3

Re : rechercher sur plusieur onglet

Salut,
Voici un début d'aide

Teste avec le mot médoc

 

Pièces jointes

• RECHERCHE SUR UN CLASSEUR COMPLET ET COLORE LA CELLULE TROUVEE.xls

  30.5 KB · Affichages: 59

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 7 Novembre 2010

• #4

Re : rechercher sur plusieur onglet

bonsoir joney et boisgontier

pour ta proposition boisgontier je regarderais à la maison car je suis au bureau et je peut visité uniquement les pages XLD

joney merci pour ton début de proposition si j'ai tous compris c'est comme la recherche ctrl F qui recherche de partout un mot clef malheureusement je vois pas comment l'adapter à mon projet c'est à dire comment puis je incrementer mes textbox une fois le nombre trouver j'avous que je vois pas trés bien mais merci tout de même

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 8 Novembre 2010

• #5

Re : rechercher sur plusieur onglet

Bonjour je renouvelle votre aide au sujet mon projet

la solution proposé par jonney 76 me semble pas adapter et la solution de boisgontier est inaccecible de part ma connection donc je me trouve vraiment bloquer la question est es ce possible car ce qui me bloque réelement c'est bien la recherche sur plusieur onglet et affichée la Feuil concerné dans l'attente d'autre solution merci d'avance

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 9 Novembre 2010

• #6

Re : rechercher sur plusieur onglet

Re bonjour à tous j'ai trouver la solution à mon probleme de recherche sur plusieur onglet voir ce code

Code:

Private Sub UserForm_Initialize()
Dim cell As Range

NbOnglet = Sheets.Count

For i = 1 To NbOnglet
  With Sheets(i)
    For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
        Combo2.AddItem (cell)
    Next
  End With
Next i

End Sub

Private Sub Combo2_Change()

'NbOnglet = Sheets.Count

T0 = ""
T3 = ""
T4 = ""

For i = 1 To NbOnglet
  With Sheets(i)
    For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
        If Combo2.Value = cell.Value Then
            T3 = cell.Offset(0, 1).Value
            T4 = cell.Offset(0, 2).Value
            'T11 = cell.Offset(0, 3).Value
        End If
    Next
  End With
Next i

End Sub

Private Sub CommandButton1_Click()
  
  Unload UserForm1

End Sub

sa fonctionne super bien je continue à chercher ou afficher dans ma textbox le nom de la feuil ou se trouvent le n° rechercher

PS le PJ modifier

 

Pièces jointes

• Classeur1.xls

  22 KB · Affichages: 44
• Classeur1.xls

  22 KB · Affichages: 45
• Classeur1.xls

  22 KB · Affichages: 39

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 9 Novembre 2010

• #7

Re : rechercher sur plusieur onglet

Bonjour

à tester.

 

Pièces jointes

• RecchercheVBA.xls

  25 KB · Affichages: 62

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 9 Novembre 2010

• #8

Re : rechercher sur plusieur onglet

Merci Si c'est génial mais j'aurais besoin un complement info mon code de recherche de numero me recherche sur toute les feuil puis je le limiter uniquement àux feuil commencant par CC j'ai essayer quelque methode mais metrisant pas trop encore sa ce solde par un echec

merci d'avance

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 9 Novembre 2010

• #9

Re : rechercher sur plusieur onglet

Bonsoir

il suffit de rajouter ces 2 lignes en gras dans les 2 macros :

Code:

For Each Sh In Sheets
    [B]If Left(Sh.Name, 2) = "CC" Then[/B]
       [I]'pas de changement[/I]
    [B]End If[/B]
  Next

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 9 Novembre 2010

• #10

Re : rechercher sur plusieur onglet

Re bonsoir


merci pour votre aide cela fonctionne au delà de mes espérences je vous souhaite unetrés bonne soirée

 

Vote positif 0 Vote négatif