[VBA-E]Recherche de date dans plusieurs feuilles

**atypik** · 04/04/2006, 15h45

bonjour a tous je suis nouveau ici et dans la programmation sous vba
j'ai cree un tableau avec douze feuilles differente (une par mois)
ensuite j'ai cree un user form avec un controle dtpicker pour la date et deux textbox pour entrez heure de debut et heure de fin.
mon souci et de pouvoir dire a vba que je veut qu'il recherche la date selectionner dans les 12 feuilles et qu'il me colle en face les heure que j'ai saisie.
sachant que les dates changes de lignes chaques annees.
voila mon souci si quelqu'un peut m'aider je suis preneur merci d'avance

[Titre édité par AlainTech]
[Ancien titre = nouveau]

**linda15975** · 04/04/2006, 15h49

Si tu veux avoir des réponses, il faudrait peut-être commencer par mettre un titre explicite!!

Les experts du VBA sont très sympas mais ils n'ont pas que ça à faire alors ce serait sympa de leur faciliter la tâche.

Désolée si j'empiette sur le role des modérateurs...

Au fait, si tu ne le sais pas, il y a un bouton éditer quand tu es sur ton message...

**AlainTech** · 04/04/2006, 15h55

Envoyé par linda15975

Désolée si j'empiette sur le role des modérateurs...

Tu n'empiètes absolument pas.

Cfr les règles:

http://club.developpez.com/regles/#L5.2

**chmod777** · 04/04/2006, 15h58

Envoyé par atypik

bonjour a tous je suis nouveau ici et dans la programmation sous vba
j'ai cree un tableau avec douze feuilles differente (une par mois)
ensuite j'ai cree un user form avec un controle dtpicker pour la date et deux textbox pour entrez heure de debut et heure de fin.
mon souci et de pouvoir dire a vba que je veut qu'il recherche la date selectionner dans les 12 feuilles et qu'il me colle en face les heure que j'ai saisie.
sachant que les dates changes de lignes chaques annees.
voila mon souci si quelqu'un peut m'aider je suis preneur merci d'avance

[Titre édité par AlainTech]
[Ancien titre = nouveau]

Ca n'a pas l'air très compliqué mais je n'ai pas compris grand chose

je suis peut-être trop fatigué...

**AlainTech** · 04/04/2006, 15h59

Envoyé par atypik

bonjour a tous je suis nouveau ici et dans la programmation sous vba
j'ai cree un tableau avec douze feuilles differente (une par mois)
ensuite j'ai cree un user form avec un controle dtpicker pour la date et deux textbox pour entrez heure de debut et heure de fin.
mon souci et de pouvoir dire a vba que je veut qu'il recherche la date selectionner dans les 12 feuilles et qu'il me colle en face les heure que j'ai saisie.
sachant que les dates changes de lignes chaques annees.
voila mon souci si quelqu'un peut m'aider je suis preneur merci d'avance

Bienvenue sur ce forum, donc.

Il est demandé, ici, d'exposer le plus clairement possible son problème et de fournir le code déjà écrit.

Le but de ce forum n'étant pas de faire le travail à la place de qui que ce soit, dis-nous ce que tu as déjà fait et explique-nous où se situe le problème.

Ceci dit, bonne programmation.

**atypik** · 04/04/2006, 16h03

je ne veut surtout pas que l'on me donne le code tout fait juste la base pour la functions recherchev dans vba et comment coller les 2 texte box dans la meme ligne que la date j'ai deja ecrit plein de code qui marche pas

donc je ne peut pas encvoyer du caca de code ici il me semble rireeeeeee

**atypik** · 04/04/2006, 16h20

le code de recherchev je l'ai deja entrez at aussi le code copier coller mais se que je ne sais pas faire c'est dire a vba qu'il doit executer le copier coller en fonctions du resultat de la recherche mais sur la cellule B12si resulta est A12.
voila si cette precision peut aider ou si vous pouvez me dire ou trouver la solution merci d'avance

**atypik** · 05/04/2006, 08h40

c'est le code de mon bouton ok du user form que je voudrais utiliser pour entrez mes horraires
C1=heure debut matin
C2=heure fin matin
C3=heuredebut am
C4=heure fin am
jboulot=la date que je choisi avec un dtpicker

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub valider_Click()
 
Sheets("feuil3").Activate
cherche = Range("a6").FormulaR1C1 = "=VLOOKUP(R[-5]C,jour,1,FALSE)"
cherche1 = Range("a7").FormulaR1C1 = "=CELL(""adresse"",cherche)"
Sheets("feuil3").Range("a1").Value = jboulot
Sheets("feuil3").Range("b1").Value = c1
Sheets("feuil3").Range("c1").Value = c2
Sheets("feuil3").Range("d1").Value = c3
Sheets("feuil3").Range("e1").Value = c4
 
date1.Hide

voila si cela peut vous dire ou j'en suis de ma demarche et l'immensiter de mes lacune

**atypik** · 05/04/2006, 08h42

sachant que la je fait une recherche sur une seule feuille et que je voudrais le faire sur 12 feuilles en meme temps
merci d'avance

**chmod777** · 05/04/2006, 08h48

Code :

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

1
2
3
4
5
 
 
for i = 1 to 12
Sheets("feuil" & i).Range("d1").Value = c3  
next i

et un truc du style t as deja essaye?[/code]

**AlainTech** · 05/04/2006, 09h18

Je comprends mal le but de l'opération.

Si tu cherches une date, elle inclut le mois (donc aucune raison de changer dans toutes les feuilles).

Si tu cherches sur un numéro de jour, ce numéro, dans certains mois, peut être un jour non ouvré.

De plus, si tu prends le 31, un mois sur 2, il n'existe pas (sans parler de février).

Peux-tu nous expliquer un peu plus clairement ta démarche?

**AlainTech** · 05/04/2006, 09h24

En relisant tout le fil, je pense avoir compris.

C'est une seule date que tu veux changer, c'est bien ça?

La fonction Month extrait le numéro de mois d'une date.

Il te suffit d'utiliser ce numéro de mois comme index pour déterminer la feuille de destination.

Code :

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

Sheets(intNumeroMois)

Il faut, bien entendu, que tes feuilles soient dans le bon ordre.

**atypik** · 05/04/2006, 10h11

en claire dans mon calsseur j'ai en feuille1 la base de mes bouton ensuite 12 feuilles nommer janvier fevrier ect et dans chaque feuilles le tableau de chaque mois avec les dates deja inscrite en colanne Aet moi je souhaite que mon user form colle les heure en colonne B,C,etcmais sur la ligne correspondant a la date que je rentre avec le dtpicker voila suis je plus clair?
merci pour vos reponse precedente qui me donne deja quelque piste de reflexion

**AlainTech** · 05/04/2006, 16h29

Code :

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

Sheets(Month(jboulot) + 1)

**atypik** · 05/04/2006, 20h06

cela fonctionne tres bien pour le mois
mais quand je mets day a la place de month il me plante que doit je mettre pour activer la cellule du jour ?

**atypik** · 05/04/2006, 20h36

merci gros enorme grace vous sa marche genial voici mon code que je cherchais

Code :

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

1
2
3
4
5
6
 
sheets(month(jboulot)+1).activate
cells(day(jboulot)+1).offset(11#).value=c1
boulot.hide
[list=]
voila sa marche encore merci a vous tous[/list]

[VBA-E]Recherche de date dans plusieurs feuilles

Macros et VBA Excel

Discussions similaires

Partager

Partager