Menu deroulant date avec boucle

Le 17/12/2018 à 20:50

Euh j'ai déjà envoyer le fichier

Le 17/12/2018 à 20:52

Je vous ai envoyer le fichier

Le 17/12/2018 à 21:09

>Je te renvoie celui qui fonctionne avec la modification

1test.xlsm (155.16 Ko)

Le 17/12/2018 à 21:14

vous pouvez pas le faire sur celui que je vous envoyé ?

Le 17/12/2018 à 21:15

je sais que le votre fonctionne mais le problemec'est que je ne peut pas mettre les noms et inserer une colonne ou etendre les cellules

Le 17/12/2018 à 21:25

Il y a 2 macros :

une dans module 1

Sub Extraire()

colonne = [A2]

    Columns("B:D").Select
    Selection.Clear

    Sheets("GEN").Select
    Range(Cells(4, colonne), Cells(32, colonne + 2)).Select
    Selection.Copy

    Sheets("Extrait selon date").Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

une autre dans la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Not IsError(Range("A2")) Then Extraire
End Sub

1steven.xlsm (152.50 Ko)

Le 17/12/2018 à 21:34

ON ne s'est pas compris je n'arrive pas a copier la macro sur ce fichier

0nouveau-petitpain.xlsm (162.78 Ko)

Le 17/12/2018 à 22:24

JAI enlever les fusions et modifier la macro mais le fichier plante toujours

1nouveau-petitpain.xlsm (163.65 Ko)

Le 18/12/2018 à 02:12