Discussion :

[tessteur_tt]

Bonjour,


Mon programme permet de rechercher un mot dans plusieurs feuilles excel.
Lorsque le mot a été trouvé, je voudrais pouvoir copier la ou les lignes ou apparait ce mot, et coller dans une feuille appelée "Resultats" à la ligne no_ligne_remplissage.

Merci de votre aide, c'est urgent

[mercatog]

Mon programme permet de rechercher un mot dans plusieurs feuilles excel.

Mets ici ton code entre #pour pouvoir t'orienter

[tessteur_tt]

Tout d'abord merci de ton aide. Je dois aller voir mon chef dans pas longtemps du tout ..

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub Rechercher_Click()
 
Dim annee As String
Dim i As Integer
Dim j As Integer
Dim no_ligne_max As Integer
Dim no_ligne_remplissage As Integer
Dim mot As String
 
mot = TextBox1.Value
 
annee = 2008
 
no_ligne_remplissage = 2
 
While annee < 2014
 
    Sheets(annee).Activate
    no_ligne_max = Range("A65536").End(xlUp).Select
 
    For i = 2 To no_ligne_max
        For j = 1 To 11
            If Cells(i, j).Value = mot Then
              ' copie la ligne
            ' et la colle dans l'onglet résultats à la ligne no_ligne_remplissage
            'incrémenter no_ligne_remplissage = no_ligne_remplissage + 1
                'sortir de la boucle qui incrémente j de 1 à 11 Endloop
                        End If
        j = j + 1
        Next
    i = i + 1
    Next
 
annee = annee + 1
Wend
 
'fermer la fenetre de recherche
'activer l'onglets résultats
 
End Sub

Voila, merci

[mercatog]

1. Évites les Select/Activate
2. Utilise plutôt la méthode Find

Ci-joint proposition

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
23
24
25
26
Private Sub Rechercher_Click()
Dim LastLig As Long, NewLig As Long, i As Long
Dim Annee As Integer
Dim Mot As String
Dim c As Range
 
Mot = TextBox1.Value
If Mot <> "" Then
    NewLig = 2
    For Annee = 2008 To 2014
        With Worksheets(CStr(Annee))
            LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
            If LastLig >= 2 Then
                For i = 2 To LastLig
                    Set c = .Range("A" & i & ":K" & i).Find(Mot, LookIn:=xlValues, Lookat:=xlWhole)
                    If Not c Is Nothing Then
                        c.EntireRow.Copy Worksheets("Resultat").Range("A" & NewLig)
                        Set c = Nothing
                        NewLig = NewLig + 1
                    End If
                Next i
            End If
        End With
    Next Annee
End If
End Sub

[tessteur_tt]

Merci beaucoup l'ami.

Toutefois, ils me mettent plein de messages d'erreur. Je vais essayer de t'expliquer mieux.

En fait dans mon fichier excel j'ai 2 useform. Une me permettant de saisir des données qui vont ensuite se placer dans mes différentes feuilles excel nommées "2008" jusqu'à "2013".
ça je l'ai fait.

Maintenant je voudrais à partir de l'autre Useform que j'ai crée, pouvoir lorsque je saisi dans la TextBox1 un mot et lorsque j'appui sur un bouton Recherche nommé "Rechercher", que ça cherche dans TOUTES mes feuilles du classeur excel donc "2008" "2009" "2010" "2011" "2012" "2013", ce mot que j'aurais donc tapé dans le TextBox1. Et en fonction du mot que j'aurais tapé, cela va copier la ou les lignes ou apparait ce mot là et que celà copie la ou les lignes dans une autre feuille nommée "Resultats".
Oui et je rajoute que annee doit me permettre de naviguer entre les différentes feuilles. C'est pourquoi j'ai initialisé annee à 2008 et que j'ai fais un While annee < 2014


Merci beaucoup

[mercatog]

ils me mettent plein de messages d'erreur.

1. Lesquels et sur quelles lignes?
2. Oui, le code fait ce que tu viens de décrire
3. Est ce que tu as les feuilles nommées 2008, 2009...2014?