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,

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