Et de conseille pour VBA

Question

Bonjour je débute en Visual Basic et j'ai besoin d'un peut d'aide

Voila pour un projet de stage, je dois créer une macro ou il me faut récupérer une donnée (temps calculé : colonne E) dans une feuille excel (qui ce nomme Import_Chroneo) tout en prenant compte un matricule et d'une date (colonne A), pour ensuite copié coller cette données dans une autre feuille excel (qui est Planning_chantier) dans une cellule "Chronéo" tout en respectant le matricule et la date ( une sorte de "triangulation"), et cela pour plusieurs agents, et a l'avenir sur plusieurs jours.

Voila je sais que c'est pas facile a comprendre mais j’espère que quelqu'un ici pourra m'aider

je vous met mon code ainsi que le fichier excel a disposition

Option Compare Text
Sub test_recup_chroneo()

'''
'''Definition des variables
'''

Dim Chantier As Workbook
Dim Planing_chantier As Worksheets
Dim Import_chroneo As Worksheets

'Set Chantier = Workbooks.Open("C:\Users\Quentin Adriaenssens\Desktop\Projet_stage")
'Set planning_chantier = Chantier.Worksheets("Planning_chantier")

'Set Import_chroneo = Chantier.Worksheets("Import_Chroneo")

'''temps travailler
Dim Temps

'''date pour Import Chroneo
Dim date_travaillerIC

'''date pour planning chantier
Dim date_travaillerPC

'''le matricule de l'agent import chroneo
Dim matriculeIC

'''le matricule de l'agent planning chantier
Dim matriculePC

'''
'''fin definition variable
'''

'''
'''Reporter les données chronéo dans planning chantier + mettre absent si pas de donnée chroneo
'''

'''debut en E99 import chroneo pour 1er matricule
Worksheets("Import_chroneo").Select
Temps = Range("e99").Select

'''pour chaque chaque matricule et chaque date
'''recupere le temps travailler (colone E)
For Each date_travaillerIC In Worksheets("import_chroneo").Range("A:A")
    '''copy de l'heure travailler
    Temps = ActiveCell.Copy

    '''direction date travailler
    date_travaillerIC = ActiveCell.Offset(0, -4).Select

    '''direction planning chantier
    Worksheets("Planning_chantier").Activate

    date_travaillerPC = Range("C:C").Select

    '''pour les date de c7 a c736 de planning_chantier
    For date_travaillerPC = C7 To C736

        Cells.Find(What:=date_travaillerIC).Activate

    Next

    For Each matriculeIC In Worksheets("Import_Chroneo").Range("A:A")
        '''si date = date
        If date_travaillerIC Is date_travaillerPC Then

        ''' si les date sont les même recher les matricule
        '''et si les matricule sont les même
        '''coller la donnée dans la colonne chroneo de l'agent

        End If

        'For Each matriculePC In Worksheets("Planning_chantier").Row("5")
             'matriculeIC = ActiveCell.Offset(0, -1).Select

            'If matriculeIC = matriculePC And date_travaillerIC = date_travaillerPC Then

                'Temps = ActiveCell.Paste

            'End If
        'Temps = ActiveCell.Offset(2, -4).Select

        Next
    Next

'''
'''Fin Report
'''

End Sub

23chantier.xlsm (700.21 Ko)

gmb · Answer

Un essai à tester. Te convient-il ? Bye ...