RECHERCHE PAR ANNEE

[GHISLAIN]

bonjour a tous

sur un userform je recherche des valeurs par date au format jj/mm/aaaa, soit par numero ,
je souhaiterai rajouter a cela une recherche qui me recherche par dates mais qui ne tienne compte que de l'année

merci aux réponses proposées

GHISLAIN

bonne journee a tous


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

 

[ERIC S]

Bonjour

essaie cette version

A+ [file name=UserformCombobox.zip size=18102]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/UserformCombobox.zip[/file]

 

[GHISLAIN]

bonjour eric

je viens de voir le fichier il repond a ma demande

je tien a te remercie de ton aide

a bientot

Amicalement
GHISLAIN

 

[GHISLAIN]

bonjour eric

voila je viens de modifier legerement le fichier que tu m a renvoyer et j ai eu quelques modifications a faire
j ai rajouté un autre combobox(couleur) je suis arrivé a y mettre la rowsource dedans par contre quand je selection ce combo rien ne s affiche dans ma listbox
je souhaiterai egalement que ça prenne en compte les trois feuilles pour la recherche de chaque combobox et également que meme si je selectionne tel ou tel combobox qu il me soit afficher dans la listbox les trois colonnes

je te remercie de ton aide

amicalement

GHISLAIN



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

 

[ERIC S]

Bonjour

je regarderai mais sans doute demain

par contre je ne comprends pas trop ton pb

tu veux un userform par feuille ou tu veux un seul userform utilisant des données sur les 3 feuilles (qui n'ont pas grand chose à voir entre elles)?

A+

 

[GHISLAIN]

re eric

je te remercie de te pencher sur mon probleme
je cherche a reunir des donnés qui se trouvent sur plusieurs feuilles afin de pouvoir les extraire et les imprimer par la suite
il est vrai que j ai mit a l interieur des donnes erronées d ou peut etre la difficulté de comprendre ce que je recherche a faire.
ce que je souhaite c est pourvoir par rapport aux feuillex rechercher un numero qu il soit en feuille 1 2 ou 3 et d afficher ses cellules attenantes dans la listbox
ça pour le premier combo
pour le second combo le meme principe mais par date ensuite pour le 3 par année (probleme que tu as eu l amabilité de me résoudre ) et le 4 eme par type ( a savoir que chaque feuille aura un type different )

je tien encore as te remercier et souhaite une bonne soirée

amicalement

GHISLAIN

 

[ERIC S]

Bonjour

j ecommence à regarder avant de m'absenter ce matin, le numéro sera-t'il unique ou peut-on avoir des doublons (comme dans les feuilles 2 & 3 de ton fichier) ?

A+

 

[GHISLAIN]

bonjour eric
deja merci encore du temps passé sur mon sujet

je te fais parvenir le fichier en ayant dessus ce que je recherche

donc pour repondre a ta question
les numeros seront unique
si il se trouve en feuil1 il ne pourra pas etre en 2 ni en trois et vice verça
le type egalement sera unique puisque le numero sera enregistré dans la feuille 1 2 ou 3 suivant le type qui aura était selectionné sur mon projet et en fin seul les dates seront differentes
pour ce faite je souhaite relier les trois feuilles pour effectuer mes recherches soit par numeros , soit par type, soit par date et soit par années

je te remercie mille fois encore

Amicalement GHISLAIN [file name=UserformCombobox_20060303105514.zip size=19749]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/UserformCombobox_20060303105514.zip[/file]

 

[ERIC S]

re

A tester

j'avais commencé à travailler dessus sans voir ton dernier fichier

note: les combobox sont triées par ordre numérique (pas le type car texte)

A+ [file name=UserformCombobox1A.zip size=23479]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/UserformCombobox1A.zip[/file]

 

[GHISLAIN]

re eric

bien ecoute je viens de regarder le fichier il a l air de repondre completement a ma recherche
et j en suis ravi
je m en vais de ce pas etudier le code et trouver ce qui a changé et que je n ai pas réussi a faire

quoiqu il en soit je te remercie vivement de ton aide et je dois dire en un temps record

je te souhaite une bonne journee ainsi qu un bon week end

en te remerciant mille fois encore

AMICALMENT

GHISLAIN

 

[GHISLAIN]

encore moi pffffffffff
désolé
j ai besoin d'un renseignement technique

For Each Ws In Worksheets
With Ws
'With Feuil1
i = .Range('A65536').End(xlUp).Row
'Tablo = contenu cellules A2 à IDernièreLigne sur chaque feuille
Tablo = .Range(.Cells(2, 1), .Cells(i, 9)).Value
End With

sur ce code la recherche s effectue sur toute la collection soit toute les feuilles du classeur
si je me trompe pas

mais si mes feuilles dans mon projet s appel feuil3 feuil5 et feuil10 comment je dois les selectionner

merci pour le reseignement technique

GHISLAIN

 

[ERIC S]

re

au départ dim ws as worsheet déclare ws en atnt qu'objet 'feuille'

for each ws....next balaye les différentes feuilles (toutes)

l'ancienne ligne 'with feuil1 peut être supprimée car remplacée par celle du dessus où ws prnd les valeurs feuil1 puis feuil2..

si tu n'avais que quelques feuilles à sélectionner tu aurais intérêt à créer un tableau

dim balaye(0 to 10) as string
balaye(1)='feuil3'
balaye(2)='feuil5'
balaye(3)='feuil10')

et faire

for feuille= 0 to 2
sheets(balaye(feuille)).select
......le code
next feuille

au lieu du for each ws

A+

 

[GHISLAIN]

donc si je comprend bien

Dim Ws As Worksheet je le remplace par
Dim balaye(0 To 10) As String
balaye(1) = 'feuil3'
balaye(2) = 'feuil5'
balaye(3)='feuil10'

et ensuite je remplace
For Each Ws In Worksheets
With Ws
par
for feuille= 0 to 2
sheets(balaye(feuille)).select

désolé mais la le niveau est largement superieur a mes competences

GHISLAIN

 

[ERIC S]

re

morceau de code modifié pour feuil2 et feuil3 dans fichier que je t'ai envoyé :


'extension sur toutes les feuilles
'Dim Ws As Worksheet
'ou choix de quelques feuilles(11 prévues, peut être adapté)
Dim balaye(0 To 10) As String
'restreint à 2 feuilles
nombrefeuilles = 2
balaye(0) = 'feuil2'
balaye(1) = 'feuil3'

'Init listbox résultats
With Me.ListBox1
.ColumnCount = 3
.ColumnWidths = '130;150;100'
End With

'extension sur toutes les feuilles
'For Each Ws In Worksheets
'With Ws
'ou choix des feuilles
For feuille = 0 To nombrefeuilles - 1
With Sheets(balaye(feuille))

i = .Range('A65536').End(xlUp).Row



A+

 

[GHISLAIN]

voila je viens de tester ça fonctionne super
bravo au pro du vba

mille merci

me reste plus qu a le mettre sur mon projet

bon week end a toi et encore merci

AMICALEMENT

GHISLAIN