Discussion :

[revemane]

bonjour

je souhaiterai effectuer la manœuvre suivante

j'ai 2 feuilles ( feuil1 et feuil2)

des données s'inscrivent dans la feuille 2 à la suite l'une de l'autre su 2 colonnes la premiere avec du texte et la seconde colonne avec une date le tout depuis un userform

sur la feuille 1

j'ai en A3 la date qui se mets à jour toute seule et je souhaiterai que sur cette meme feuille apparraissent à la suite l'une de l'autre les donnée de la feuille 2 qui ont la meme date

par exemple
en A17 puis A18 puis A19 et ainsi de suite et ses donnée devront se mettre à jour en fonction de la date en A3

merci d avance pour votre aide

[Minick]

Salut,

Un petit exemple a placer dans le code de la Feuil1

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
 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim CptSrc As Integer, CptDst As Integer
 
    If Target.Address = "$A$3" Then
        Application.ScreenUpdating = False
        Range("A17:A" & Range("A17").End(xlDown).Row).Clear
 
        CptDst = 17
        For CptSrc = 2 To Feuil2.Range("A65536").End(xlUp).Row
          If Feuil2.Range("B" & CptSrc).Value = Target.Value Then
            Range("A" & CptDst).Value = Feuil2.Range("A" & CptSrc).Value
            CptDst = CptDst + 1
          End If
        Next
        Application.ScreenUpdating = True
    End If
End Sub

++
Minick

[revemane]

merci mais cela ne fonctionne pas je m'explique mieu

sur la feuille 1 j'ai la cellule B3 qui contient une date ( =aujourdhui () ) qui se met à jour en fonction de la date systeme

dans la feuille 2 j'ai deux colonnes qui se presente comme suit

A2 un texte et B2 une date chaque fois que j'encode un texte et une date depuis un userform les données s'inscrivent dans la feuille 2

sur la feuille 1 en cellule B45 jusque B55 j'aimerai faire apparaitre le texte des cellule de la feuille 2 en fonction de la date

donc vérifier les textes avec les dates qui correspondent avec la date de la feuille 1

et dès que la date systeme change s'affiche le contenu texte des cellule correspondant au date sinon il y a rien d'ecrit

[Minick]

Salut,

Essai comme ca, dans le code de Thisworkbook
Il y aura une mise a jour a chaque calcul du classeur.

les cibles ont change depuis ton 1er post...

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
 
Private Sub Workbook_SheetCalculate()
    Dim CptDst As Integer
 
    Application.EnableEvents = False
    Application.ScreenUpdating = False
 
    CptDst = 45
    Feuil1.Range("B" & CptDst & ":B" & Feuil1.Range("A" & CptDst).End(xlDown).Row).Clear
 
    For CptSrc = 2 To Feuil2.Range("A65536").End(xlUp).Row
      If Feuil2.Range("B" & CptSrc).Value = Feuil1.Range("B3").Value Then
        Feuil1.Range("B" & CptDst).Value = Feuil2.Range("A" & CptSrc).Value
        CptDst = CptDst + 1
      End If
    Next
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

++
Minick

[revemane]

Magnifique cela fonctionne
1000X merci

[revemane]

re

dans le fichier que je t'ai envoyé précédemment j'ai mis le code ci dessus pour fairre apparaitre les ligne de rapport journalier en fonction de la date et cela fonctionne tres bien

maintenant je souhaiterais faire la meme chose pour les cellules de la feuille check qui reprendrait les valeur des index journalier en fonction de la date systeme pour avoir une impression journaliere de mon rapport et qui se metterai a jour avec les données encodée depuis le user form 2 sachant que les valeurs source sont inscrites dans des feuilles différentes . ou s il existe une autre méthode pour réaliser une feuille A4 qui mettrait mes données journalière en forme e qui me sauverait uniquement cette feuille avec comme nom " rapport du + date du jour " avaec une new date par jour


merci pour ton aide