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

C

Compte Supprimé 979

Guest

• 5 Février 2021

• #2

Bonjour,

Vous aimez les majuscules apparemment

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 5 Février 2021

• #3

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

 

Pièces jointes

• PROJET EXCEL filtre avancé.xlsm

  29.2 KB · Affichages: 5

Vote positif 0 Vote négatif

T

TOUTOU03

XLDnaute Junior

• 5 Février 2021

• #4

ok super

merci beaucoup

bonne journée

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 5 Février 2021

• #5

Bonjour à tous,

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

JHA

 

Pièces jointes

• PROJET EXCEL filtre avancé.xlsm

  29.4 KB · Affichages: 5

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 5 Février 2021

• #6

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

 

Pièces jointes

• PROJET EXCEL.xlsx

  30.4 KB · Affichages: 5

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2021

• #7

Bonjour Toutou,
Un essai en PJ avec :

VB:

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.

 

Pièces jointes

• PROJET EXCEL.xlsm

  27.1 KB · Affichages: 4

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 5 Février 2021

• #8

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2021

• #9

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.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 5 Février 2021

• #10

Bonjour à tous

Je vous propose ce fichier

@Phil69970

 

Pièces jointes

• PROJET EXCEL-V1.xlsm

  35.1 KB · Affichages: 3

Vote positif 0 Vote négatif

T

TOUTOU03

XLDnaute Junior

• 5 Février 2021

• #11

merci à tous pour votre aide précieuse

bon week-end

 

Vote positif 0 Vote négatif