Discussion :

[vins86]

Bonjour,

Je me permet de demander votre aide afin de mettre une feuille de mon classeur en relation sur une autre feuille du même classeur avec la condition que les date soit <31 jours de la date du jour.

Merci de votre aide.

Cordialement,

vincent

PS: Excusez moi, pour l'explication. j'ai été trop vite dans la rédaction.

[mercatog]

Allez y, personne ne vous empêche

Sérieusement, relis ton post, penses-tu que quelqu'un peut comprendre ce que tu as écris ou deviner ce que tu veux faire. Même un effort de bien expliquer et expliciter la problématique est absent.

[nibledispo]

bonjour,

c'est un peu court jeune homme !

voici cependant :

Code :

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

1
2
3
4
5
6
7
8
 
Sub copiefeuilleconditionnelle()
    With Sheets("Feuil1")
     If .Range("a1") > 31 Then
        .Cells.Copy Sheets("Feuil2").Range("a1")
     End If
    End With
End Sub

j'ai supposé que la valeur à comparer se trouvait sur la cellule A1 de la feuil1 à copier.

Edit : bonjour Mercatog : nos messages se sont croisés
cordialement,

[vins86]

Escusez moi pour l'explication je l'ais refait.

Le code fonctionne sauf qu'il me met toute les données sauf que je souhaite les 31 jours d'avant aujourd'hui.

J'espère être plus conpréhensible.

Cordialement,

vincent

@ nibledispo

("a1") est en format 00/00/0000

[nibledispo]

re...,

et si tu joignais ta feuille excel exemple de données etpar rapport à cet exemple la copie que tu souhaistes obtenir ce serait clair pour tous.

en attendant, il suffit de mettre :
- sur mon code >30 par <31
- sur la feuille à copier tes cellules au format que tu veux.

cordialement,

[vins86]

re,

en attendant, il suffit de mettre :
- sur mon code >30 par <31
- sur la feuille à copier tes cellules au format que tu veux.

J'ai essayer et cela ne change rien.
Je vous joint un fichier expliquant mes besoins. sans macro de créer.

Cordialement,

vincent

[nibledispo]

bonsoir,

je ne comprends plus rien à ta demande et ton fichier n'ajoute rien à la compréhension.
essaie d'exprimer clairement ton besoin même si cela n'est pas chose aisée pour toi.
exemple
- j'ai un fichier avec en colonne A des dates qui se suivent sans interruption.
dire ce que représentent ces dates, .....
- je veux voir en colonne I (je ne sais quoi ) si telles et telles conditions sont remplies.....
- je veux ensuite copier la feuille sur une autre feulle si telle condition est remplie .....

etc... etc...

cordialement,

[vins86]

Bonjour,

Je vous expliques

j'ai dans le fichier dans la feuil2 avec plus date qu'y vient d'une base de données.

Je souhaite sur la feuil1 tout les dates compris entre la date du jour et 1 mois précédent

exemple:

les dates compris entre la date du jour donc le 06/11/2013 et la date du mois précédent le 06/10/2013 et demain entre le 07/11/2013 et le 07/10/2013.

J'espère avoir été plus claire.

Cordialement,

Vincent

[nibledispo]

Bonjour,

Je comprends :
- que tu as une base de donnée feuille 2
- que tu veux récupérer dans cette feuille 2 les dates courant de la date du jour (la dernière de la liste) au même jour du mois précédent.

C'est d'ailleurs le résultat que l'on trouve en colonne A de ta dernière pièce jointe.

mais dans cette pièce jointe quelle est alors l'utilité de la colonne I ?

Par ailleurs:
- la feuille 2 évolue-t-elle chaque jour (dernière date = date jour) ?
- le traitement doit-il être automatique à l'ouverture du classeur ou demandé par l'opérateur ?

Cordialement

[vins86]

Bonjour,

la colonne I permet tout simplement d'expliquer si le jour se décaler comme dans l'exemple précédent.

- la feuille 2 évolue-t-elle chaque jour (dernière date = date jour) ?

Non la dernière date n'est pas toujours la date du jour. la dernière date est dans une cellule pour un filtrage

-le traitement doit-il être automatique à l'ouverture du classeur ou demandé par l'opérateur ?

Le traitement doit se faire à chaque modification sur la feuil2 met çà je connais.

Cordialement,

vincent

[nibledispo]

re....,

vois ci le code ci-dessous correspond à ta demande.

tu peux le tester avec le fichier joint.

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
 
Sub copiefeuilleconditionnelle()
    Feuil1.Range("A2:A40").ClearContents
    With Sheets("Feuil2")
 
         derlig = .[A2].End(xlDown).Row
 
         If derlig > 32 Then
            .Range(Cells(derlig - 31, 1), Cells(derlig, 1)).Copy Sheets("Feuil1").Range("a2")
         End If
 
         For J = 1 To 31
           Feuil1.Range("I" & J + 1) = Now + J - 1
         Next J
 
    End With
End Sub

[vins86]

re,

Merci pour l'aide, mais il y a une erreur sur la ligne

Code :

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

.Range(Cells(derlig - 31, 1), Cells(derlig, 1)).Copy Sheets("Feuil1").Range("a2")

erreur d'éxécution 1004

cordialement,

vincent

[nibledispo]

étonnant ce que tu me dis !

je viens de refaire l'essai sur ma version Excel 2013 et le resultat est bien là sans message d'erreur.

tu as fait l'essai avec le fichier que je t'ai joint ?

A+

[casefayere]

et si tu essayais ça :

Code :

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

Sheets("Feuil1").Range("a2:a34").Value = .Range(.Cells(derlig - 31, 1), .Cells(derlig, 1)).Value

[vins86]

Merci nibledispo et casefayere,

sa fonctionne par contre j'obtiens sur le fichier envoyer maintenant + 31 jours alors que je souhaiterais maintenant - 31 jours.

Cordialement,

vincent

[nibledispo]

Bonjour VinS86 et Casefayere

Vins86 :il faut t'efforcer d'être plus précis dans tes commentaires.

Ça fonctionne après l'apport de Casefayere ou avant.

De quel +31 parles tu : colonne I ou colonne A de la feuille 1.

Remarque : le code pour la colonne I n'est pas assez étoffé. En effet, il traite même si la date ne se trouve pas colonne A.

J'ai tenté de le modifié en conséquence mais il me renvoie une erreur 1004 à la ligne :

Code :

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

1
2
 
plage = .Range(Cells(2, 1), Cells(derlig1, 1))

du code ci-dessous:

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
 
Sub copiefeuilleconditionnelle()
    Dim derlig1 As Integer
    Dim derlig2 As Integer
    Dim plage As Object
 
    Feuil1.Range("A2:A40").ClearContents
    With Sheets("Feuil2")
         derlig2 = .[A2].End(xlDown).Row
         If derlig2 > 32 Then
            .Range(Cells(derlig2 - 31, 1), Cells(derlig2, 1)).Copy Sheets("Feuil1").Range("a2")
         End If
    End With
 
    With Sheets("Feuil1")
         derlig1 = .[A2].End(xlDown).Row
         plage = .Range(Cells(2, 1), Cells(derlig1, 1))
         If Application.Match(Now, plage, 0) Then
            For J = 1 To 31
                .Range("I" & J + 1) = Now + J - 1
            Next J
         End If
    End With
End Sub

Casefayere : vois-tu mon erreur ?
il n'est pas exclu qu'il bloque ensuite à la ligne suivante

Cordialement,

[casefayere]

Re à tous les deux,

essayes en ajoutant les"." à cells

Code :

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

plage = .Range(.Cells(2, 1),.Cells(derlig1, 1))

[nibledispo]

J'ai déjà tenté l'ajout des points avant de poser question mais dans ce cas, il renvoie l'erreur 1004 (j'ai inversé les message d'erreur dans ma question initiale)

alors que sans, il renvoie l'erreur 91 (variable objet ou variable de bloc with non définie)

[casefayere]

Code :

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

set plage = .Range(.Cells(2, 1),.Cells(derlig1, 1))

J'ai oublié de dire plage à déclarer en "Range"

Code :

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

Dim plage as range

[nibledispo]

C'est bon, je mériterais une claque pour cette évidence.

C'est à présent, comme je le craignais, sur la ligne suivante que cela coince.
il me renvoie ERREUR 13 (incompatibilité de type) que je mette plage ou plage.value. Pourtant Now ne peut-être qu'une date et la colonne correspondant à plage est bien au format date
.plage n'est pas valable non plus.