Calendrier & Gestion de projet

Le 27/06/2018 à 11:08
Bonjour,
Je cherche à faire une liste déroulante qui va dépendre de 2 (voire 3) facteurs. Celles-ci sont dynamiques car je souhaite pouvoir rentrer deux éléments pour que la liste s'affiche en prenant en compte de ces 2 contraintes.
Concrêtement, je souhaite faire un calendrier pour mieux gérer mes projets. Pour se faire j'ai créé une base de donnée avec formulaire via Access. Access renvoie directement les information à Excel. A partir de cette base de donnée J'ai plusieurs colonnes : Année / Type / Nom / ... / . J'aimerai dans un formulaire pouvoir entrer l'année et le type pour avoir une liste en fonction de ces 2 éléments.
Merci d'avance pour votre aide, d'habitude j'arrive à me débrouiller mais ca fait quelques jours que je cale complêtement. Le peu d'information qui pourrai m'intéresser ne fonctionnent pas.
PS : Dans le fichier, Task One / Two / Three (ainsi que la date) sera automatiquement remplacée en fonction des 3 éléments précédents.
EDIT #1 : J'ai réussi à créer une liste (que je pourrai après la mettre en liste déroulante) mais je me retouve avec des duplications, je cherche dans "Data Validation"
EDIT #2 : J'ai bidouillé quelque chose de convenable mais j'ai 2 problèmes :
Il faut rafraichir le fichier a chaque changement pour sélectionner l'événement
Il faut appuyer sur un bouton pour remettre le calendrier correctement
22visual-calendar.xlsx (22.77 Ko)
29visual-calendar.xlsm (49.54 Ko)
Le 27/06/2018 à 22:24
Bonsoir,
ci-jointe une proposition
20visual-calendar1.xlsm (44.51 Ko)
Le 02/07/2018 à 16:24
Merci, malheuresement ça ne correspondait pas exactement à ce que je cherchais, sur le calendirer je souhaitais pouvoir sélectionner un événement et avoir uniquement les tâche en rapport avec l'événement.
J'ai aussi pas mal avancé :
Création de formulaire pour rajouter un élément et eviter de passer pas access
Bouton "Rescale" & "Refresh"
Je me retrouve avec 2 problèmes :
J'ai besoin de créer un formulaire pour modifier le tableau. Je vois comment faire pour éxtraire les informations dans le formulaire mais je ne vois pas comment je peux changer les cellules concernées.
Mon code pour rentrer les données est beaucoup trop long
 Sub SubMoveData()

    Dim Data As Worksheet
    Dim NewE As Worksheet
    Dim lngDestLrow  As Long

    'Define Worksheets
    Set NewE = Sheets("New Event")
    Set Data = Sheets("Data")

    'Move Data
    'Main Event
    lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
    Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
    Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
    Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
    Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
    Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D5") 'Enter the form Field C on the next available row
    Data.Cells(lngDestLrow + 1, "F") = NewE.Range("D7") 'Enter the form Field C on the next available row
    Data.Cells(lngDestLrow + 1, "G") = NewE.Range("D8") 'Enter the form Field C on the next available row
    Data.Cells(lngDestLrow + 1, "H") = NewE.Range("D6") 'Enter the form Field C on the next available row

        'Task#1
    If IsEmpty(NewE.Range("D12").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D12") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E12") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E12") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G12") 'Enter the form Field C on the next available row
    End If

        'Task#1
    If IsEmpty(NewE.Range("D13").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D13") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E13") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E13") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G13") 'Enter the form Field C on the next available row
    End If

        'Task#2
    If IsEmpty(NewE.Range("D14").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D14") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E14") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E14") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G14") 'Enter the form Field C on the next available row
    End If

        'Task#3
    If IsEmpty(NewE.Range("D15").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D15") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E15") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E15") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G15") 'Enter the form Field C on the next available row
    End If

        'Task#4
    If IsEmpty(NewE.Range("D16").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D16") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E16") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E16") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G16") 'Enter the form Field C on the next available row
    End If

        'Task#5
    If IsEmpty(NewE.Range("D17").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D17") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E17") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E17") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G17") 'Enter the form Field C on the next available row
    End If

        'Task#6
    If IsEmpty(NewE.Range("D18").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D18") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E18") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E18") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G18") 'Enter the form Field C on the next available row
    End If

        'Task#7
    If IsEmpty(NewE.Range("D19").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D19") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E19") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E19") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G19") 'Enter the form Field C on the next available row
    End If

        'Task#8
    If IsEmpty(NewE.Range("D20").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D20") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E20") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E20") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G20") 'Enter the form Field C on the next available row
    End If

        'Task#9
    If IsEmpty(NewE.Range("D21").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D21") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E21") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E21") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G21") 'Enter the form Field C on the next available row
    End If

        'Task#10
    If IsEmpty(NewE.Range("D22").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D22") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E22") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E22") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G22") 'Enter the form Field C on the next available row
    End If

        'Task#11
    If IsEmpty(NewE.Range("D23").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D23") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E23") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E23") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G23") 'Enter the form Field C on the next available row
    End If

        'Task#12
    If IsEmpty(NewE.Range("D24").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D24") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E24") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E24") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G24") 'Enter the form Field C on the next available row
    End If

        'Task#13
    If IsEmpty(NewE.Range("D25").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D25") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E25") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E25") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G25") 'Enter the form Field C on the next available row
    End If

        'Task#14
    If IsEmpty(NewE.Range("D26").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D26") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E26") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E26") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G26") 'Enter the form Field C on the next available row
    End If

        'Task#15
    If IsEmpty(NewE.Range("D27").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D27") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E27") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E27") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G27") 'Enter the form Field C on the next available row
    End If

        'Task#16
    If IsEmpty(NewE.Range("D28").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D28") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E28") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E28") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G28") 'Enter the form Field C on the next available row
    End If

        'Task#17
    If IsEmpty(NewE.Range("D29").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D29") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E29") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E29") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G29") 'Enter the form Field C on the next available row
    End If

        'Task#18
    If IsEmpty(NewE.Range("D30").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D30") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E30") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E30") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G30") 'Enter the form Field C on the next available row
    End If

        'Task#19
    If IsEmpty(NewE.Range("D31").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D31") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E31") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E31") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G31") 'Enter the form Field C on the next available row
    End If

        'Task#20
    If IsEmpty(NewE.Range("D32").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D32") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E32") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E32") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G32") 'Enter the form Field C on the next available row
    End If

        'Task#21
    If IsEmpty(NewE.Range("D33").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D33") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E33") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E33") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G33") 'Enter the form Field C on the next available row
    End If

        'Task#22
    If IsEmpty(NewE.Range("D34").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D34") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E34") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E34") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G34") 'Enter the form Field C on the next available row
    End If

        'Task#23
    If IsEmpty(NewE.Range("D35").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D35") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E35") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E35") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G35") 'Enter the form Field C on the next available row
    End If

        'Task#24
    If IsEmpty(NewE.Range("D36").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D36") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E36") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E36") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G36") 'Enter the form Field C on the next available row
    End If

        'Task#25
    If IsEmpty(NewE.Range("D37").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D37") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E37") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E37") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G37") 'Enter the form Field C on the next available row
    End If

        'Task#26
    If IsEmpty(NewE.Range("D38").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D38") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E38") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E38") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G38") 'Enter the form Field C on the next available row
    End If

        'Task#27
    If IsEmpty(NewE.Range("D39").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
        Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D39") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E39") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E39") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G39") 'Enter the form Field C on the next available row
    End If

        'Task#28
    If IsEmpty(NewE.Range("D40").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
          Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D40") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E40") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E40") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G40") 'Enter the form Field C on the next available row
    End If

        'Task#39
    If IsEmpty(NewE.Range("D41").Value) Then
        Exit Sub
            Else
        lngDestLrow = Data.Cells(Rows.Count, "A").End(xlUp).Row 'Define Destination Sheet Lrow
        Data.Cells(lngDestLrow + 1, "A") = NewE.Range("E7") 'Enter the form Field A on the next available row
        Data.Cells(lngDestLrow + 1, "B") = NewE.Range("D3") 'Enter the form Field B on the next available row
          Data.Cells(lngDestLrow + 1, "C") = NewE.Range("D5") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "D") = NewE.Range("D6") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "E") = NewE.Range("D41") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "F") = NewE.Range("E41") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "G") = NewE.Range("E41") 'Enter the form Field C on the next available row
        Data.Cells(lngDestLrow + 1, "H") = NewE.Range("G41") 'Enter the form Field C on the next available row
    End If

End Sub
Je sais qu'il 1000X plus court mais je ne connais pas assez le VBA pour ça.
20visual-calendar.xlsm (95.99 Ko)
Rechercher des sujets similaires à "calendrier gestion projet"