Recherche a l'aveuglette

[deudecos]

Chers amis, bien le bonjour !

Je vous expose mon soucis...
Je voudrais aider qq qui a pose une question sur le forum il y a deja qq temps, et j'ai une idee, mais je n'arrive pas a la mettre en application.

En gros, il s'agit d'aller chercher des infos precises a des endroits precis de feuilles, jusque la c'est facile me direz vous... En effet, ca j'en suis capable. Mais la ou ca se corse, c'est que je ne connais ni les noms, ni le nombre de feuilles a visiter :unsure:

Quelqu'un a t'il une idee ?

Merci pour vos reponses.

Bonne soiree

Olivier

Ps. ca fait deux jours que je cherche sur le forum et j'ai pas trouve ce que je veux, ni meme approchant :ermm:

 

[2passage]

bonjour

regarde du coté de :

For each machin in worksheets
chercher
next

je pense que ça devrait solutionner ton soucis.

A+

 

[deudecos]

Bonjour 2passage, le forum,

Ca fait deja deux jours que je tourne en rond avec cette boudiu de formule, j'ai du avoir deja toutes les erreurs possible et imaginables et la je stagne grave

Che pu quoi faire !!!
siouple, avant d'etre interne... :woohoo: pour folie furieuse.

Bonne soiree

Olivier

 

[andré]

salut deuecos,

Mais que recherches-tu exactement, une chaîne de caractères, ... ou autre chose ?

Ândré.

 

[deudecos]

Bonjour Andre, le forum,

Ce que je recherche, c'est tout simplement le moyen de copier une plage de donnees sans pour autant connaitre le nombre ni les libelles des feuilles a fouiller.
Tout ce que je sais, c'est le nom du classeur...
J'ai bien tente un truc du genre...

Private Sub workbook_activate()
Dim item As Worksheet
Dim L As Integer
L = sheets('feuil1').Range('a65536').End(xlUp)
For Each item In ActiveWorkbook.sheets
If item.Name = 'feuil1' Then
Exit Sub
End If
item.Select
Range('a1:d1').Select
Application.CutCopyMode = False
Selection.Copy
sheets('feuil1').Select
Range('a' & L).Select
activesheet.Paste
MsgBox item.Name
Next item
End Sub

Mais ca plante, et je suis trop mauvais pour trouver la solution a mon probleme...
C'est pourquoi, je viens vers vous, humble et honteux...

Bonne soiree

Olivier

 

[PascalXLD]

Bonjour

Je ne pense pas que ton code puisse marcher car je pense que ta feuil1 est ta 1ere feuille et tu lui dis exit sub donc il sort

Je ne sais pas exactement où ça plante mais je verrais plutot un code du genre (sans tester)

Private Sub workbook_activate()
Dim item As Worksheet
Dim L As Integer
L = sheets('feuil1').Range('a65536').End(xlUp).Row 'Tu as oublié .row ici
For Each item In Worksheets
If item.Name <> 'feuil1' Then
item.Select
Range('a1:d1').Select
Application.CutCopyMode = False
Selection.Copy
sheets('feuil1').Select
Range('a' & L).Select
activesheet.Paste
L=L+1
MsgBox item.Name
End If
Next item
End Sub

Bon courage

Message édité par: Pascal76, à: 16/06/2005 17:40

 

[2passage]

Bonjour

déja, à titre d'exemple, j'ai fait un petit classeur de multirecherche. regarde le code, ca te donnera quelques indices sur la façon de faire. Je regarde ton code demain si personne ne s'est jeté dessus d'ici là.


enjoy [file name=multirecherche.zip size=10787]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/multirecherche.zip[/file]

 

[2passage]

Rebonjour,

En fait, j'avais assez mal compris ton besoin
voila un petit code qui copie les plages A110 de toutes les feuilles sauf feuil1 à destination de Feuil1

Private Sub CommandButton1_Click()
For Each feuille In ActiveWorkbook.Worksheets
    If feuille.Name <> 'feuil1' Then
        feuille.Range('A1:D10').Copy Worksheets('feuil1').Range('A65536').End(xlUp).Offset(1, 0)
    End If
Next
End Sub

a+

 

[deudecos]

Bonsoir Pascal, 2passage, le forum,

Comme a chaque fois que tu passes par la, Pascal, je reste scotche de m'appercevoir que je suis si loin du compte tout en etant a cote du resultat... :silly:

Pfffffffiuuuuuu ! Trop balaise le gars !
Dis tu m'apprends dis ??? hein ??? hein ??? dis ???

Merci, tu m'as encore sauve la vie!

Bonne soiree

Olivier