[XL-2010] Aide sur la création d'une macro

Version imprimable

13/05/2015, 15h37
wonder68

3 pièce(s) jointe(s)

[XL-2010] Aide sur la création d'une macro

Bonjour

Je me permets de venir vers vous car j'ai un petit souci pour créer une macro, mes connaissances étant très limitées.
J'ai 2 fichiers de planning, et j'aimerai que la macro fasse une 'requête' pour chercher les infos et me mette les infos dans un troisième fichier récapitulatif. Je m'explique.

J'ai un fichier récap qui s'appelle requete.xlsm Lorsque je borne entre 2 dates et que j'appui sur le bouton Lancer Process, j'aimerai qu'il me cherche dans les 2 autres fichiers (planning1 et planning2) les infos correspondantes et me les mettent dans cette récap. J'ai essayé d'enregistrer des macro avec des copier/coller, mais ça ne fonctionne pas. D'autant plus qu'il y a cette notion de bornage entre 2 dates.

Pensez-vous que quelqu'un pourrait m'aider avec cette macro ? J'ai cherché sur le net, mais rien de vraiment concret. J'ai commencé à potasser un peu et j'ai vu éventuellement la fonction de filtre avancé, mais c'est vraiment trop compliqué pour débutant comme moi.

Par avance, merci de toute l'aide que vous pouvez m'apporter.

Petite précision : les fichiers se trouveront dans le même répertoire :P

1 pièce(s) jointe(s)

Bonjour,

Une piste qui n'est pas finalisée.
L'idée est de monter les feuilles concernées des 2 classeurs de planning.
Je me suis arrêté là car je ne sais pas qu'elles sont les colonnes à attribuer au final.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub Bouton2_QuandClic()
MsgBox "coucou"
End Sub
 
 
Sub aa()
Dim WB As Workbook
Dim S1 As Worksheet
Dim S2 As Worksheet
Dim Deb As Date
Dim Fin As Date
Dim laDate As Date
Dim i&
'---
Deb = ActiveSheet.[c10]
Fin = ActiveSheet.[g10]
'---
On Error GoTo Erreur
Application.ScreenUpdating = False
 
'### Classeur "planning1.xls" - Feuille "Base" ###
Set WB = GetObject(ThisWorkbook.Path & "\planning1.xls")
Set S1 = WB.Sheets("Base")
S1.Copy Before:=ThisWorkbook.Sheets(1)
Set S1 = ActiveSheet
WB.Close False
Set WB = Nothing
'--- Vire les lignes hors date ---
For i& = S1.[b65536].End(xlUp).Row To 4 Step -1
  If IsDate(S1.Range("b" & i& & "")) Then
    laDate = S1.Range("b" & i& & "")
    If laDate > Fin Or laDate < Deb Then
      S1.Rows(i&).Delete xlShiftUp
    End If
  End If
Next i&
 
'### Classeur "planning2.xls" - Feuille "Jour" ###
Set WB = GetObject(ThisWorkbook.Path & "\planning2.xls")
Set S2 = WB.Sheets("Jour")
S2.Copy Before:=ThisWorkbook.Sheets(1)
Set S2 = ActiveSheet
WB.Close False
Set WB = Nothing
'--- Vire les lignes hors date ---
For i& = S2.[b65536].End(xlUp).Row To 4 Step -1
  If IsDate(S2.Range("b" & i& & "")) Then
    laDate = S2.Range("b" & i& & "")
    If laDate > Fin Or laDate < Deb Then
      S2.Rows(i&).Delete xlShiftUp
    End If
  End If
Next i&
 
'---
Erreur:
If Err <> 0 Then MsgBox "Erreur " & Err.Number & vbCrLf & Err.descrition
Application.ScreenUpdating = True
End Sub

17/05/2015, 11h53
wonder68

1 pièce(s) jointe(s)

Bonjour PMO2017,

Tout d'abord, merci à vous de prendre de votre temps pour m'aider, et de me répondre. Je commençais à penser que ce n'était pas réalisable. (quoi que, je suis sûr qu'avec excel, on peut tout faire) :mouarf:
J'ai lancé la macro, il y avait 'bonjour' :D jusqu'à ce que je comprenne que je devais lancer la macro 'aa' :ptdr: En tout cas, le début de piste est prometteur, je pense que c'est ce que j'aimerai avoir dans le fichier requête.
En fait, je suis bête, il est évident que vous ne pouviez pas savoir quoi prendre dans quelle colonne. Je vous ai remis en pièce jointe,les2 plannings re-visité avec les en-têtes de colonnes qui doivent être pris en considération, et le fichier requête tel qu'il devrait normalement se présenter une fois qu'on lance la requête sur les 2 fichiers planning.

J'espère que je suis clair dans mes explications (hum). En tout cas, encore une fois, merci pour votre aide, j'apprécie vraiment qu'une âme charitable se penche sur mon cas :D
Merci
17/05/2015, 17h27
PMO2017

1 pièce(s) jointe(s)

OK.

Voyez la pièce jointe où le code a été modifié dans le sens que vous indiquez.
Il est préférable d'inscrire les résultats dans une nouvelle feuille spécialement dédiée. Vous pourrez ainsi faire plusieurs simulations bien distinctes.
17/05/2015, 19h05
wonder68

Vous êtes tout juste un magicien. C'est exactement ce que je recherchais.
Il ne me reste plus qu'à comprendre maintenant votre macro :mrgreen: car j'aimerai comprendre pour pouvoir refaire cela en temps utile à nouveau si cela se représente.
En tout les cas, merci mille fois pour votre aide, et surtout d'avoir pris de votre temps pour m'aider. Merci merci merci :P