VBA - recherche entre onglets sous conditions

[ZigZiig]

Bonsoir les professionnels de l'informatique,

Je suis débutant en VBA et je cherche à faire quelque chose qui doit être simple, mais trop dur pour moi.

Je cherche à afficher dans l'onglet synthèse, des données des deux autres onglets, selon le mois.

Ex, si le mois est 31/01/2011, je souhaiterais obtenir les données des deux autres onglets (ex : onglet A et B) dans l'onglet synthèse.

J'ai commencé la programmation et essayé bcp de chose. Le problème c'est que le programme est trop long. Je ne sais pas comment raccourcir la procédure.

Pouvez vous m'aider SVP

Sub MacroTri()

If "Mois" = Workbook("Classeur1").Sheets("BanqueA").Range("B1") Then

Sheets("BanqueA").Select
Range("B2:B5").Select
Selection.Copy
Sheets("Synthèse").Select
Range("C2").Select
ActiveSheet.Paste

Sheets("BanqueB").Select
Range("B2:B5").Select
Selection.Copy
Sheets("Synthèse").Select
Range("C2").Select
ActiveSheet.Paste

ElseIf "Mois" = Workbook("Classeur1").Sheets("BanqueA").Range("C2") Then

Sheets("BanqueA").Select
Range("B2:B5").Select
Selection.Copy
Sheets("Synthèse").Select
Range("C2").Select
ActiveSheet.Paste

Sheets("BanqueB").Select
Range("B2:B5").Select
Selection.Copy
Sheets("Synthèse").Select
Range("C2").Select
ActiveSheet.Paste
'.
'.
'.

End If

End Sub

 

[ZigZiig]

Re : VBA - recherche entre onglets sous conditions

j'espère que je suis exprimé correctement.
Merci à ceux qui me liront

 

[ZigZiig]

Re : VBA - recherche entre onglets sous conditions

J'ai réparé mes bêtises, voici mon code de départ.
Cependant ce programme comme vous pouvez le voir, n'est pas du tout utilisable pour plusieurs mois. Mais je ne sais pas comme l’optimiser.

Merci par avance



Option Explicit

Sub MacroTri()


If Sheets("BanqueA").Range("B1").Value = ("Mois") Then


Sheets("BanqueA").Select
Range("B2:B5").Select
Selection.Copy
Sheets("Synthèse").Select
Range("C2").Select
ActiveSheet.Paste

Sheets("BanqueB").Select
Range("B2:B5").Select
Selection.Copy
Sheets("Synthèse").Select
Range("D2").Select
ActiveSheet.Paste

ElseIf Sheets("BanqueA").Range("C1").Value = Range("Mois") Then

Sheets("BanqueA").Select
Range("C2:C5").Select
Selection.Copy
Sheets("Synthèse").Select
Range("C2").Select
ActiveSheet.Paste

Sheets("BanqueB").Select
Range("C2:C5").Select
Selection.Copy
Sheets("Synthèse").Select
Range("D2").Select
ActiveSheet.Paste


Else
MsgBox ("problème")

End If

End Sub