Bonjours à tous et à toutes

Après moult tentatives infructueuses, je vous explique mon problème:

J'ai créé un classeur pour avoir une liste de mes films par ordre alphabétique, qui jusqu'ici ne ma poser aucun problème puisque ce sont des choses basiques (une feuille par lettre et un index avec les liens vers les feuilles, voir image pour plus de précision):

Ce que je voudrais faire, c'est insérer un champ recherche dans l'index pour voir si je possède tel ou tel film et qu'il me réponde vrai/faux ou oui/non. Je précise que cette fonction devrait "scanner" toutes les feuilles ( de A à Divers)

J'ai tenter quelques manipulations avec les fonctions recherche sans succès.

Comment puis-je procéder simplement ?

D'avance merci à tous les posteurs.

Raph

Bonjour Raph90,

Il y a une façon de faire que je connais, mais en VBA.

Petit Userform qui apparait afin de faire une recherche dans toutes les feuilles de ton fichier Excel.

Si tu veux, je peux te concocter un petit quelque chose.

wilder

Merci pour ta réponse Wilder, si tu pouvais se serait sympa, bien que je n'aime pas abuser du temps des autres... s'il te faut quelque chose, fait moi savoir.

Raph

Re bonjour et désolé pour le retard.

Envoie-moi ton fichier Excel et je vais te créer la fonction de recherche.

Une partie du code est:




Dim c As Range
Dim Tablo() As String
Dim Text As String
Dim S As Byte
Dim Firstaddress As String
Dim i As Integer, X As Integer, L As Integer
Text = Me.TextBox1
For S = 1 To Worksheets.Count
        With Sheets(S).UsedRange
              Set c = .Find(Text, LookIn:=xlValues, LookAt:=xlPart)
        If Not c Is Nothing Then
        Firstaddress = c.Address
        Do
        ReDim Preserve Tablo(3, i)
                    
            Tablo(1, i) = c.Text
            Tablo(2, i) = Sheets(S).Name
            Tablo(3, i) = c.Address(0, 0)
                     i = i + 1
                Loop While Not c Is Nothing And c.Address <> Firstaddress
        End If
        End With

Next S
If i = 0 Then
MsgBox  Text & " ne si trouve pas" & vbCrLf & "Essayez de nouveau", vbCritical, Sign
Exit Sub
End If
Me.ListBox1.Column() = Tablo()

wilder

bonjours

Je vous fait parvenir le fichier dès ce soir.

cordialement
raph

Bien sur il n'y a pas de problème, c'est déjà très sympa de vous en être charger....

a++ et merci encore

raph

Bonjour Raph90,

Je t'ai envoyé le fichier sur ton courriel.

Dis-moi ce que tu en penses.

a+  

salut willder, SVP te m'envoyer ce code de recherche sur "Exel" et mercie
mon e-mail est xxxxxxxx@gmail.com

L'adresse de courriel en message privé ou sur le profil s'il te plait, merci (édité par Tigène)

Bonjour,

Votre échange m'à particulièrement intéréssé.

Je voulais faire exactement la même chose, et je ne suis pas du tout un expert en VBA. Esc ce que ça vous dérangerai de m'envoyer le fichier ? ça me sauverai la vie :)

 

Merci ^^