Lister des onglets

[hassan.zer]

Bonsoir au forum,

Je souhaiterai faire une recherche dans un classeur contenant plusieurs feuilles mais je ne sais pas comment modifier le code éxistant et qui fonctionne trés bien pour une seule feuille,
Merci
La feuille et code en PJ.

 

[JCGL]

Re : Lister des onglets

Bonjour à tous,

Peux-tu essayer :

Option Explicit


Sub test()
Dim Trouve As Range, Expression As Variant
Dim Adr As String


Expression = Application.InputBox( _
Prompt:="Ville recherchée?", Type:=2)
If Expression = False Then Exit Sub
If Expression = "" Then Exit Sub


With ActiveSheet
Adr = .UsedRange.Address
With .UsedRange
Set Trouve = .Find(What:=Expression, LookIn:=xlValues, _
LookAt:=xlWhole, MatchCase:=False)
End With
If Not Trouve Is Nothing Then
Trouve.Select 'où le traitement que tu veux appliquer
Else
MsgBox "Pas trouvé l'expression : " & Expression
End If
End With
End Sub

A + à tous

 

[hassan.zer]

Re : Lister des onglets

re,

cela ne fonctionne que sur la feuille active pas sur les autres
il faudrai remplacer activesheet par activeworkbook mais je ny arrive pas a cause de codes d'erreurs

 

[Papou-net]

Re : Lister des onglets

Bonsoir hassan.zer, JC,

Il faut créer une boucle de lecture des feuilles du style :

Sub test()
Dim Trouve As Range, Expression As Variant
Dim Adr As String
Dim sh As Worksheet

Expression = Application.InputBox( _
Prompt:="Ville recherchée?", Type:=2)
If Expression = False Then Exit Sub
If Expression = "" Then Exit Sub

For Each sh In Sheets
  With sh
    Adr = .UsedRange.Address
    With .UsedRange
      Set Trouve = .Find(What:=Expression, LookIn:=xlValues, _
      LookAt:=xlWhole, MatchCase:=False)
    End With
    If Not Trouve Is Nothing Then
      sh.Select
      Trouve.Select 'où le traitement que tu veux appliquer
      Exit For
    End If
  End With
Next
If Trouve Is Nothing Then MsgBox "Pas trouvé l'expression : " & Expression
End Sub

Cordialement.

 

[hassan.zer]

Re : Lister des onglets

Super !
Merci beaucoup

 

[hassan.zer]

Re : Lister des onglets

Merci à vous JC et Papou !