XL 2013 EXCEL-COPIE/COLLE EN TENANT COMPTE D'UNE DATE

[TOUTOU03]

Bonjour,



Sur le fichier ci-joint, qui comporte deux onglets



Je veux que sur l’onglet 1 (repère rouge), soit recopiées automatiquement les informations inscrites sur l’onglet 2 MAIS uniquement celles qui sont précédées d’une dates (située dans la colonne A) correspondantes à celle indiquée dans la cellule A1



SVP : comment puis-je faire ?



Avec tous mes remerciements

 

[Compte Supprimé 979]

Bonjour,

Vous aimez les majuscules apparemment 🙄

Il serait sympa de rééditer votre post et de modifier le titre tout en majuscule 😱

 

[JHA]

Bonjour à tous,

Un essai avec une plage nommée dynamique, un filtre avancé et un bouton pour automatiser l'opération.
Cliquer sur le bouton filtre avancé.

JHA

 

[TOUTOU03]

ok super

merci beaucoup

bonne journée

 

[JHA]

Bonjour à tous,

Petite modification du code pour supprimer les données précédentes.

JHA

 

[Jocelyn]

Bonjour le Forum,
Bonjour TOUTOU03,

dans le fichier joint j'ai mis un exemple sans formules matricielle car vu le nombre de ligne prévu dans ton onglet 2 les matricielle vont être très lourdes

ne pas passer par des matricielles implique d'ajouter un colonne dans l'onglet 2 qui peut etre masquée sans soucis

si vraiment tu tiens a ne pas ajouter de colonne dans l'onglet 2 nous pourrons te monter comment faire avec des matricielle

Cordialement

EDIT : Oup's bonjour BrunoM45 🙂, JHA 🙂, désolé pour la collision pas rafraichi le post mais content de vous croiser

 

[sylvanu]

Bonjour Toutou,
Un essai en PJ avec :

Sub Worksheet_Activate()
    Dim ligne%, L%, C%
    Application.ScreenUpdating = False
    Range("A4:H1000").ClearContents
    ligne = 4
    For L = 3 To Sheets("2").Range("A65500").End(xlUp).Row
        If Sheets("2").Cells(L, "A") = [A1] Then
            For C = 1 To 8
                Cells(ligne, C) = Sheets("2").Cells(L, C)
            Next C
            ligne = ligne + 1
        End If
    Next L
End Sub

La macro s'exécute automatiquement lorsque la feuille "1" est sélectionnée.

 

[Compte Supprimé 979]

Toujours le même bordel ICI on laisse faire 🙄
Bravo messieurs, je n'étais que de passage... pas la peine de répondre

 

[sylvanu]

Bonjour Bruno,
Article 2 du RGPD :

Les forums doivent rester conviviaux. Donc, les échanges doivent être courtois, respectueux et garder la bonne humeur. Les propos agressifs ne sont donc pas tolérés.

 

[Phil69970]

Bonjour à tous

Je vous propose ce fichier

@Phil69970

 

[TOUTOU03]

merci à tous pour votre aide précieuse

bon week-end