Discussion :

[YANN001]

Salut,

Je sollicite votre aide pour adapter une macro à mon fichier

la fonctionnalité de macro est d'importer les données depuis un tableau situé à la feuille 4 et les colles sur les plages dans la feuille 1 selon les acronymes qui sont dans les plages à la feuille 1
à l'exécution de la macro un message d'erreur s'affiche : "Variable objet ou variable de bloc With non définie"

mon fichier ci-joint, merci d'avance

exemple-to-do.xlsm

[ARTURO83]

Bonjour,

Si la macro concernée est "EcrireLesDonnees" et si cette dernière est appelée en cliquant sur le bouton "Test" alors, quelles sont les valeurs de "F_1", "RwF1" et "rw"?, car aucune valeur n'est attribuée à ces variables. Il faudrait commencer par là.

Cdlt

[jurassic pork]

Hello,
comme le dit Arturo83, même si les variables sont déclarées au début d'un module, il faut les initialiser avant de pouvoir les utiliser (surtout si ce sont des objets).
Ami calmant, J.P

[YANN001]

Bonjour le fil,

Je n'ai pas bien compris pourriez-vous le corriger dans mon fichier exemple svp

merci bcp

[jurassic pork]

on ne peut pas corriger ton code car on ne sait pas quelle partie tu veux exécuter et à quoi servent les autres parties. Sont-elles utiles d'ailleurs ?

[YANN001]

je comprends, mais vous pouvez faire une macro à mon besoin ?

si possible je souhaite importer les données depuis la feuille 4 a la feuille 1 et cela est matchée selon acronyme (S,Q,D,C,P)

sur la feuille 1 j'ai des plages par acronyme

Statut sur la feuille 4 = Feuil1 "C30"

Merci bcp

[Franc]

Salut, voici une macro qui fait la copie des données de "BD_TODO" en fonction de la date en C26 et de l'acronyme.
Attention, dans BD_TODO ton entête "Date objectif" contient un caractère "passage à la ligne" qui l'affiche en 2 lignes dans ta barre de formule et donc provoque une erreur dans la macro,
tu dois la renommer "Date objectif" avec juste 1 espace.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Sub CopyData()
    Dim ws1 As Worksheet, ws4 As Worksheet ' Déclaration des feuilles de calcul
    Dim BD_TODO As ListObject ' Déclaration de la table
    Dim searchDate As Date ' Date de recherche
    Dim i As Long ' Variable de boucle
    Dim acro As String ' Acronyme
 
    ' Assignation des feuilles de calcul et de la table
    Set ws1 = ThisWorkbook.Sheets("Feuil1")
    Set ws4 = ThisWorkbook.Sheets("Feuil4")
    Set BD_TODO = ws4.ListObjects("BD_TODO")
 
    searchDate = ws1.Range("C26").Value ' Récupération de la date de recherche
 
    With ws1
        ' Parcours des lignes de la table
        For i = 1 To BD_TODO.ListRows.Count
            ' Vérification si la date correspond à la date de recherche
            If BD_TODO.ListColumns("Date").DataBodyRange(i) = searchDate Then
                acro = BD_TODO.ListColumns("Acronyme").DataBodyRange(i) ' Récupération de l'acronyme
 
                ' Traitement en fonction de l'acronyme
                Select Case acro
                    Case "S"
                        ' Remplissage des cellules correspondantes pour l'acronyme "S"
                        .Range("C29").Value = BD_TODO.ListColumns("Statut").DataBodyRange(i)
                        .Range("C31").Value = BD_TODO.ListColumns("Description du problème").DataBodyRange(i)
                        .Range("G31").Value = BD_TODO.ListColumns("Action(s) à mener").DataBodyRange(i)
                        .Range("D36").Value = BD_TODO.ListColumns("Pilote assigné").DataBodyRange(i)
                        .Range("H36").Value = BD_TODO.ListColumns("Société").DataBodyRange(i)
 
                        ' Vérification de la présence d'une date de clôture, si vide on copie date objectif
                        If IsEmpty(BD_TODO.ListColumns("Date de clôture").DataBodyRange(i)) Then
                            .Range("I36").Value = "Date objectif"
                            .Range("J36").Value = BD_TODO.ListColumns("Date objectif").DataBodyRange(i)
                        Else
                            .Range("I36").Value = "Date de clôture"
                            .Range("J36").Value = BD_TODO.ListColumns("Date de clôture").DataBodyRange(i)
                        End If
                    Case "Q"
                        ' Remplissage des cellules correspondantes pour l'acronyme "Q"
                        .Range("C39").Value = BD_TODO.ListColumns("Statut").DataBodyRange(i)
                        .Range("C41").Value = BD_TODO.ListColumns("Description du problème").DataBodyRange(i)
                        .Range("G41").Value = BD_TODO.ListColumns("Action(s) à mener").DataBodyRange(i)
                        .Range("D46").Value = BD_TODO.ListColumns("Pilote assigné").DataBodyRange(i)
                        .Range("H46").Value = BD_TODO.ListColumns("Société").DataBodyRange(i)
 
                        ' Vérification de la présence d'une date de clôture
                        If IsEmpty(BD_TODO.ListColumns("Date de clôture").DataBodyRange(i)) Then
                            .Range("I46").Value = "Date objectif"
                            .Range("J46").Value = BD_TODO.ListColumns("Date objectif").DataBodyRange(i)
                        Else
                            .Range("I46").Value = "Date de clôture"
                            .Range("J46").Value = BD_TODO.ListColumns("Date de clôture").DataBodyRange(i)
                        End If
                    Case "D"
                        ' Remplissage des cellules correspondantes pour l'acronyme "D"
                        .Range("C48").Value = BD_TODO.ListColumns("Statut").DataBodyRange(i)
                        .Range("C50").Value = BD_TODO.ListColumns("Description du problème").DataBodyRange(i)
                        .Range("G50").Value = BD_TODO.ListColumns("Action(s) à mener").DataBodyRange(i)
                        .Range("D55").Value = BD_TODO.ListColumns("Pilote assigné").DataBodyRange(i)
                        .Range("H55").Value = BD_TODO.ListColumns("Société").DataBodyRange(i)
 
                        ' Vérification de la présence d'une date de clôture
                        If IsEmpty(BD_TODO.ListColumns("Date de clôture").DataBodyRange(i)) Then
                            .Range("I55").Value = "Date objectif"
                            .Range("J55").Value = BD_TODO.ListColumns("Date objectif").DataBodyRange(i)
                        Else
                            .Range("I55").Value = "Date de clôture"
                            .Range("J55").Value = BD_TODO.ListColumns("Date de clôture").DataBodyRange(i)
                        End If
                Case "C"
                    ' Remplissage des cellules correspondantes pour l'acronyme "C"
                    .Range("C57").Value = BD_TODO.ListColumns("Statut").DataBodyRange(i)
                    .Range("C59").Value = BD_TODO.ListColumns("Description du problème").DataBodyRange(i)
                    .Range("G59").Value = BD_TODO.ListColumns("Action(s) à mener").DataBodyRange(i)
                    .Range("D64").Value = BD_TODO.ListColumns("Pilote assigné").DataBodyRange(i)
                    .Range("H64").Value = BD_TODO.ListColumns("Société").DataBodyRange(i)
 
                    ' Vérification de la présence d'une date de clôture
                    If IsEmpty(BD_TODO.ListColumns("Date de clôture").DataBodyRange(i)) Then
                        .Range("I64").Value = "Date objectif"
                        .Range("J64").Value = BD_TODO.ListColumns("Date objectif").DataBodyRange(i)
                    Else
                        .Range("I64").Value = "Date de clôture"
                        .Range("J64").Value = BD_TODO.ListColumns("Date de clôture").DataBodyRange(i)
                    End If
            End Select
        End If
    Next i
End With
 
MsgBox "Traitement terminé !"
 
End Sub

[YANN001]

Salut Franc,
merci beaucoup pour votre code, c'est parfait : D
À part des cellules qu'ont été décalées en haut mais je les ai ajoutés.