Bonjour et bonne année à tous,
je vais essayer de faire au mieux pour me faire comprendre, et pour ce faire je fais utiliser un fichier exemple..
J'ai demandé à un professeur de m'aider, et il m'a fourni ce fichier exemple (ci-joint) qui vous permettra de voir ce que je cherche à faire et la macro utilisée (Si on change la semaine ou la couleur d'un article en Feuil1, il doit changer automatiquement en Feuil2).
Or, en essayant d'adapter sa macro à mon fichier, cela me fait une erreur d'éxecution 1004 : "Erreur définie par l'application ou par l'objet".
Voici la macro que j'ai modifié pour mon fichier, focalisée sur la ligne ou s'affiche l'erreur :
En vous remerciant d'avance pour votre aide,
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 Sub Planning() (...) 'suppression des données de Plan2 Sheets("Plan2").Select Rows("6:30").Select 'les lignes 6 à 30 sont supprimées (augmenter si nécessaire) Selection.Delete Shift:=xlUp Cells(6, 1).Select 'sélection de la feuille des données de départ Plan_Proto Sheets("Plan_Proto").Select 'sélection de la case de titre d'action Cells(4, 7).Select 'Parcourir toute la liste des actions jusqu'à arriver à une case vide (normalement fin de la liste) Do Until Selection.Value = "" 'sélection de la case en dessous pour passer à l'action suivante Selection.Offset(1, 0).Select 'récupération des informations de l'action Action = Selection.Value 'Récupération de la valeur de la case action couleur = Selection.Interior.ColorIndex 'Récupération de la couleur de la case action semaine = Selection.Offset(0, 37).Value 'Récupération de la la valeur de la semaine à droite de la case action 'sélection de la feuille du planning (Plan2) Sheets("Plan2").Select 'sélection de la première date Cells(5, 1).Select 'recherche de la semaine sur la Feuil7 de la colonne correspondante ou non trouvée Do Until Selection.Value = semaine Or Selection.Value = "" Selection.Offset(0, 1).Select Loop 'Recherche de la première ligne vide Do Selection.Offset(1, 0).Select Loop Until Selection.Value = "" 'copie de la valeur et de la couleur Selection.Value = Action Selection.Interior.ColorIndex = couleur 'sélection de la première date Cells(5, 1).Select 'sélection de la feuille des données de départ (Feuil5) Sheets("Plan_Proto").Select Loop 'sélection de la feuille du planning (Feuil7)'pour visualiser le planning Sheets("Plan2").Select 'Activer la mise à jour de l'écran Application.ScreenUpdating = True End Sub
Cordialement.
Partager