Discussion :

[PersianPrince]

Bonjour à tous,

Tout d'abord un grand merci à tous ceux qui font vivre ces forums, et partagent leurs connaissances.

Je préfère vous dire que je suis une quiche en vba je me contente de piquer des bout de formules de ci de là pour essayer d'en tirer un programme alembiqué.

Voila j'ai un classeur dans lequel il y a des feuilles qui correspondent à des semaines, chaque semaine il y a une liste de 8 colonnes (environ) et de x lignes inscrite. les colonnes comprennent (entre autre) Nom,Prénom, numéro de personne
Je souhaite pouvoir faire une recherche quelle que soit la semaine soit par le Numéro, soit par Nom et Prénom.

J'ai bidouillé ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro4()
' Macro4 Macro
' seek
 
Dim cell As Range
MaRecherche = Range("a1").Value
 With Columns("a:z")
       Set cell = .Find(What:=MaRecherche, LookIn:=xlValues, LookAt:=xlPart)
  End With
 
Cells(cell.Row, cell.Column).Activate
 
 
End Sub

ca marche mais le bug est que je peux avoir plusieurs fois le même Numéro ou le même nom. Là je sèche.
une idée msieur dames ?

[gFZT82]

Bonjour,

Voici un code qui te permet d’effectuer la recherche dans toutes les feuilles du classeur.
La valeur à chercher est inscrite en Feuil1!A1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Sub Recherche()
Dim MaRecherche
Dim Ws As Worksheet
Dim c As Range
Dim Message As String, firstAddress As String
    MaRecherche = Worksheets("Feuil1").Range("A1").Value
    Message = "La valeur " & MaRecherche & " a été trouvée :" & Chr(10)
    For Each Ws In Worksheets
        With Ws
            Set c = .Columns("A:Z").Find(What:=MaRecherche, LookIn:=xlValues, LookAt:=xlPart)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    Message = Message & "- dans la feuille " & Ws.Name & ", cellule " & c.Address & Chr(10)
                    Set c = .Columns("A:Z").FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
            End If
        End With
    Next Ws
    MsgBox Message
End Sub

Cordialement.

[PersianPrince]

Merci beaucoup gFZT82 c'est impeccable !

A supposer que je sois très gourmand, y a t il un moyen d'activer les cellules concernées l'une aprés l'autre en boucle ?

En tous cas merci à la communauté pour votre aide, vive Developpez !

[gFZT82]

Pourquoi veux-tu activer les cellules concernées les unes après les autres en boucle ?
S’il s’agit d’effectuer un traitement à chaque détection de cellule, tu n’as peut-être pas besoin d’activer la cellule.

[PersianPrince]

En fait sur ces feuilles je vais trouver des références identiques identifiées par ma recherche. L'idée serait de pouvoir se rendre sur ces cellules concernées sans trop chercher parmi les feuilles les colonnes ou les lignes. Le fichier peut être lourd en terme de lignes...(c'est du luxe mais si je peux avoir )

La recherche portant sur des NOMS ou des Numéros est ce possible d'avoir une recherche uniquement sur ce qui est exactement tapé ?

Merci pour ta patience.

[gFZT82]

La recherche portant sur des NOMS ou des Numéros est ce possible d'avoir une recherche uniquement sur ce qui est exactement tapé ?

J’ai modifié le paramètre LookAt (xlWhole au lieu de xlPart) de la méthode Find pour rechercher une correspondance avec l'ensemble du texte recherché.

L'idée serait de pouvoir se rendre sur ces cellules concernées sans trop chercher parmi les feuilles les colonnes ou les lignes. Le fichier peut être lourd en terme de lignes...

Tu peux associer un Userform avec une ListBox qui te proposera de sélectionner les cellules trouvées... voir l’exemple.