Discussion :

[Qwerty111]

Bonjour voici ce que je fais :

Code :

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

1
2
3
4
sub blabla (param) 
for j=1 to sheet.count
effectue une recherche pour trouver un élément qui peut-être dans n'importe quelle feuille, si tu trouve, exit function
next j

En fait, chaque sheet est un mois de 2009, et dans chaque, il y a des éléments, chacun possédant un identificateur unique. Je fais une recherche sur cet identificateur.
Mon problème, que je n'avais pas remarqué, c'est que quand l'élément n'existe pas dans aucune des feuilles, ben j prends les valeurs suivantes : 1,2,3,1,2,3,1,2,3,1,2,3... Pour l'instant, je bosse sur 3 mois, donc 3 feuilles. Donc je ne comprends pas pourquoi à la fin cela ne s'arrête pas .
Help, i need somebody, Help !

[mapeh]

Bonjour

tout d'abord, sheet.count?????

plutôt :

Code :

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

Sheets.Count

et ensuite, pour pouvoir t'aider, merci de remplacer :

effectue une recherche pour trouver un élément qui peut-être dans n'importe quelle feuille, si tu trouve, exit function

par le code que tu utilises....

[Qwerty111]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
ident = moncritère        
 
For j = 1 To Sheets.Count
            Sheets(j).Activate
            Cells(1, 3).Select: Selection.End(xlDown).Select '3 car c'est la seule colonne qui sera tjrs pleine
            nbLigne = Selection.Row
            For i = 2 To nbLigne
                If Cells(i, 1).Value = ident 
                    ActiveWorkbook.Sheets(j).Rows(i).
                    rechercheById.nbLigne = nbLigne
                    Exit Function
                End If
            Next i
        Next j

J'ai pas mal réduit la chose (documents professionnels oblige) , mais le principal est là.

[mapeh]

Bonjour,

je n'ai pas compris le traitement à effectuer si tu trouves la correspondance, mais tu peux effectuer la recherche ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
ident = moncritère
For j = 1 To Sheets.Count
    With Sheets(j)
        Set c = .Columns(3).Find(ident)
            If Not c Is Nothing Then
                'ton code
                Exit Function
            End If
    End With
Next j

[Qwerty111]

Je supprime la ligne quand je trouve. Le .delete a été malencontreusement supprimé.
Mais ça n'ira pas ton bout de code.

Jvais refléchir à ton bout de code, j'ai pas l'habitude d'utiliser find... D'habitude, je regarde en xldown, et je tes un à un.
Niveau traitement, lequel est le plus rapide ?

[mapeh]

Re-,

j'adore ces certitudes, sans même avoir testé....

Mais ça n'ira pas ton bout de code.

La méthode Find est bien plus rapide...

Risques-tu de rencontrer plusieurs fois ton critère de recherche dans la même feuille?