trouver le nombre

[chilo]

bonjour le fils

je recherche désespérement une solution pour trouver un nombre identique dans plusieurs feuilles et afficher l'ensemble des lignes qui donne se résultat
[file name=nombre_20051111153222.zip size=2225]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/nombre_20051111153222.zip[/file]

 

[Gérard DEZAMIS]

Bonjour Chilo

Pas assez balaize encore en VBA pour faire un travail 'propre' j'ai simplement utilisé les filtres élaborés. Appuyer sur le rond après avoir renseigné la somme recherchée.

En attendant mieux ..... et surtout plus court ! 😱hmy:

@+ GD [file name=Chilo1.zip size=42992]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Chilo1.zip[/file]

 

[chilo]

Re:merci

bonsoir à toutes et tous
merci gégé je vais essayer un peu plus tard mais en essayant chilo1 cela a fonctionner.
encore une fois merci

 

[chilo]

bonjour, bonsoir
jesne sais plus
j'ai bien essayer de l'adapter à ca je fais mais impossible
j'ai dans mes classeurs à peu près 35 feuilles et j'utilise parfois la totalité des lignes 65536.

donc merci d'essayer de me l'adapter j'ai bien essayer mais une partie des nombres ne s'affichent pas.

 

[Gérard DEZAMIS]

Bonjour Chilo

Stop tout de suite
ma méthode 'manuelle' avec l'enregistreur de macro dans ton cas n'est plus DU TOUT valide. En effet la petite macro que j'avais fait pour traiter tes trois feuilles selectionne 2000 lignes sur chacune des feuilles, les rassemble en feuille 1, les trie et les filtre. Si une de tes feuilles comprend un nombre aussi important de lignes (65000), le regroupement ne sera plus possible.

Il va falloir trouver une autre solution en VBA pur et dur.

Désolé de te faire un début de W-E aussi maussade :ermm:

@+ GD

 

[Hervé]

Bonjour chilo, gérard, le forum

Ma contribution en pièce jointe.

surement à adapter.

le code :

Option Explicit
Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim ws As Worksheet
Dim i As Long
Dim ligne As Long
Dim k As Byte

For Each ws In Worksheets 'pour chaque feuille du classeur
&nbsp; &nbsp; If ws.Name <> 'interrogation' Then 'sauf la feuille interrogation
&nbsp; &nbsp; &nbsp; &nbsp; tablo = ws.Range('a1').CurrentRegion 'creation d'un tableau avec les données
&nbsp; &nbsp; &nbsp; &nbsp; For i = 1 To UBound(tablo) 'boucle sur le tableau
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If tablo(i, 6) = Range('a1') Then 'si les données du tableau sont ok
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ligne = Range('a65536').End(xlUp).Row + 1 'copy les données
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(ligne, 1) = tablo(i, 6)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(ligne, 7) = ws.Name 'copie le nom de la feuille
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For k = 1 To 5
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cells(ligne, k + 1) = tablo(i, k)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next k
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; Next i
&nbsp; &nbsp; End If
Next ws
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End Sub

salut

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

 

[chilo]

bonjour

merci d'avoir essayer
c'est pur moi le plus important gérard m'a apporté un exemple que je vais traviller plus.
merci

 

[Gérard DEZAMIS]

Autant bien commencer la journée !

Allez Musique !

'Je m'suis fait tout p'tit devant l’code d’Hervé
Qui fait s’qu’on veut quand on lui d’mande
Je m'suis fait tout p'tit devant sa clarté
Qui explique tout. On en r’deman(anan)de …'

Bon W-E

@+GD

Message édité par: Gérard DEZAMIS, à: 12/11/2005 14:18

 

[chilo]

bonjour
merci hervé ce matin le n'ai pas eu le temps de la faire c'est chose je ne manquerai de te tenir informer de la suite.