Discussion :

[lorao12]

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 :

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

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

[Wololol]

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 :

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

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

[lorao12]

, 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

[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 ?

[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

[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

[patricktoulon]

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