Comparer deux feuilles macro vba

Version imprimable

bonjour a tous , JE suis debutante et je bloque sur ce point

comment ajouter une boucle et condition a cette macro

la feuille 1
la ligne A1:A9 date A1 et A9 c'est cellules nommés ET le reste n'est pas nommée exemple 2010.2011.2012.2013..................2018 dans ce cas A1 celulle nomé "date debut"
A9 celullule nommé "datedefin" =2018

Aune colonne A5:A : reference

la feuille 2
colonne C refence
colonne D date
colonne H prix

cette macro elle compare colonne C de la feuille 2 avec le A de la feuille 1 et elle copie le prix de H DE LA FEUILLE 2 dans la colonne C de la feuille 1
ELLE COMPARE PAS LES DATES

SACHANT QUE LA CONDITION IL FAUT QUE LES PRIX COPIER LEURS DATE SOIT ENTRE DATEDEBUT ET DATEFIN

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
 Sub compar()
 
    Dim Lig As Long
    Dim NbrLig As Long, NumLig As Long
    Dim colfeuil2 As String
    Dim i As Integer
    Dim D1 As Date
    Dim DerCol As Integer
    Dim j As Integer           
 
     D1 = Range("datedebut").Value
     D2 = Range("datefin").Value
 
        NbrLig = Worksheets("Feuil1").Range("A" & 65536).End(xlUp).Row
        NumLig = Worksheets("Feuil2").Range("C" & 65536).End(xlUp).Row
 
 
 
                         For Lig = 1 To NbrLig
                         colfeuil2 = Worksheets("Feuil1").Range("A" & Lig)
                         'ligne = Worksheets("Feuil1").Range("A1:Z1")
                         If colfeuil2 = "" Then GoTo lab
                            i = 1
 
                               For i = 1 To NumLig
 
                                 If Worksheets("Feuil2").Range("C" & i).Value = colfeuil2 Then
 
                                 Worksheets("Feuil2").Range("H" & i).Copy
                                 Worksheets("Feuil1").Range("C" & Lig).Select
                                 ActiveSheet.Paste
                                 Exit For
                                 End If
 
 
                                   Next i
 
lab:
                      Next Lig                   
 
 
         End Sub

merci de votre aide

BONJOUR LORAO,

Je ne comprend pas ton histoire de prix, mais je vais tout de même tenter de répondre à ta question :

Pour que tu ne copie le prix uniquement si sa date est compris entre deux valeur, tu peux procéder de la manière suivante :
Code:

1 2 3 If Worksheets("Feuil2").Range("C" & i).Value >= Worksheets("Feuil1").Range("datedebut").Value And Worksheets("Feuil2").Range("C" & i).Value <= Worksheets("Feuil1").Range("datefin").Value Then Worksheets("Feuil2").Range("H" & i).Copy Worksheets("Feuil1").Range("C" & Lig).Paste
En supposant que la cellule que tu souhaites comparer soit bien la cellule ("C" & i )

De plus j'ai quelque peu modifié la fin de ta macro, en effet le select n'est pas nécessaire et tu peux directement faire un Paste.

Si cela n'a pas répondu à ta question, essaie de mieux expliquer ton problème.

Bonne journée :)

07/05/2018, 11h02
lorao12

2 pièce(s) jointe(s)

, la macro que j'ai publié elle compare et elle recepere les prix elle l'ai mit dans la feuille 1 dans une seule colonne mais elle prend pas en compte les date

je avoir ce resultat comme cette exemple
Pièce jointe 377469 Pièce jointe 377473
07/05/2018, 11h20
Wololol

D'après l'exemple que tu viens de nous fournir, tu ne fais que "refaire" la mise en forme de ton premier tableau.

Du coup je ne vois pas trop l'utilité de ta date début et date fin, que veux-tu faire, précisément ? :weird:
07/05/2018, 11h27
Qwazerty

Salut (c'est toujours sympa un petit bonjour hein ;) )

Je n'arrive pas bien à comprendre non plus mais as tu regardé du coté des Tableaux Croisés Dynamiques? Ne répondraient-ils pas à ton besoin?

Si ça n'est pas le cas, peux tu nous fournir un fichier démo avec des données quelconques pour pouvoir regarder comment elles sont structurée.

++
Qwaz
07/05/2018, 11h28
lorao12

mais dans cette exemple j'ai mis 2 feuille dans le meme fichier
mais en vrai je recupere ces donnée dans le fichie 2 qui a la feuille 2 et je le met dans le fichier 1 qui a la feuille 1

c'est pour cela j'ai mis des celule nommé , cette macro sera utiliser pour d'autres fichiers
07/05/2018, 11h40
patricktoulon

re
re
bonjour larao12

oulah!!!
d'abords on parle de 2 sheets apres on par de 2 classeurs et 2 sheets il faut savoir car c'est pas du tout la meme chose
1. comment collectionne tu les données du fichier 1 et 2
2. quelle methode a tu utilisée
3. il faut commencer par ca avant de toucher au sheets
a aucun moment je vois une requete (sur) ou une ouverture du fichier2 dans ton code
07/05/2018, 11h45
lorao12

4 pièce(s) jointe(s)

voila les deux fichiers

comparer les references et les date dans les 2 fichier puis copier les donner "prix" du fichier 2 et les mettre dans le fichier 1 selon la date ( entre datedebut et datefin)

patricktoulon

c'est vrai la macro je l'ai fais pour deux feuilles juste pour expliquer mon blem ,
voila les deux fichiers

voila

Wololol bonjour ;)
les tableaux croisée ne réponds pas a mon blem
07/05/2018, 12h09
Qwazerty

Les TCD ne conviennent pas à cause de la structure du tableau du classeur1, j'imagine que vous n'en êtes pas l'auteure et que vous devez faire avec ?

Et sans Macro en mettant une formule dans ce style, a placer dans le tableau du classeur 2 et à étendre sur tout le tableau

Code:

=SOMME.SI.ENS([Classeur2.xlsx]Feuil1!$H$2:$H$4;[Classeur2.xlsx]Feuil1!$C$2:$C$4;$A3;[Classeur2.xlsx]Feuil1!$D$2:$D$4;B$2)
07/05/2018, 12h11
lorao12

je suis obliger de faire une macro automatique
07/05/2018, 12h46
Qwazerty

Ça fait deux fois que tu mets la pression pour avoir une réponse rapide.
C'est pas une usine ici... les gens ne sont pas là pour te pondre un code clé en main au pied levé, il serait bien d'être un peu patient et polie (Le bonjour en début de fil c'est quand même plus correct non?).

Tu as fait des recherches durant les 30 min qui t'on semblait être une éternité, si c'est le cas fait nous part de tes avancées stp, ça nous aidera peut-être à te fournir de l'aide.
07/05/2018, 12h49
lorao12

désolé :oops: