Discussion :

[jojolaterreur]

Bonjour,

J'ai un gros souci avec mon fichier! Merci par avance.

Voici le code, il m'affiche tel qu'il est erreur d'exécution 13.

J'ai en outre une autre question, dans mon classeur Planning {Listes,Planning_PR,Planning_Ag}, j'ai un fichier liste avec des RANGE bien définis et la feuille Planning est elle-même un tableau qui s'incrémente au fur et à mesure des saisies. Est-ce qu'il ne serait pas possible d'utiliser ces paramètres prédéfinis dans mon code VBA? Ou comment faire les déclarations pour qu'à chaque fois que j'incrémente ma table Planning cela soit pris en compte dans le code.

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
Option Explicit
Option Base 1
 
 
 
Sub PlanningAgent()
 
Dim NomAgents() As Variant 
Dim Planning() As Variant
Dim TestPlanning() As Variant
Dim AgentsPlanning() As Variant
Dim InitialesProjets() As Variant
Dim H As Byte
Dim I As Byte
Dim J As Byte
 
'Récupération de données
 
NomAgents = Sheets("Listes").Range("Q3:Q18")
 
Planning = Sheets("Planning_PR").Range("S8:HR29")
AgentsPlanning = Sheets("Planning_PR").Range("R8:R29")
InitialesProjets = Sheets("Planning_PR").Range("B8:B29")
 
ReDim TestPlanning(UBound(NomAgents, 1), UBound(Planning, 2))
 
 
'Rechercher les projets de chaque Agent par demi-semaine de planning
 
For H = 1 To UBound(Planning, 2)
For I = 1 To UBound(NomAgents, 1)
For J = 1 To UBound(Planning, 1)
 
If ((Planning(J, H) <> 0) And (AgentsPlanning(J, H) = NomAgents(I))) Then
TestPlanning(I, H) = InitialesProjets(J, 1) & TestPlanning(I, H)
End If
 
Next J
Next I
Next H
 
 
'Afficher les valeurs trouvées dans le fichier prévu
 
Sheets("Planning_Ag").Select
Sheets("Planning_Ag").Range("C8:HB22") = TestPlanning
 
'Effacer les données du tableau
 
Erase TestPlanning
 
End Sub

[pgz]

Bonsoir.

Quelle ligne lève l'erreur?
Sans savoir, tu peux essayer de déclarer H, I et J en entier, ou long, plutôt qu'en Byte.

Ensuite, dans

Code :

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

If ((Planning(J, H) <> 0) And (AgentsPlanning(J, H) = NomAgents(I))) Then

tu utilises le tableau NomAgents comme s'il n'avait qu'1 dim, mais il en a 2.

Pour ta question sur le planning, il y a plusieurs solutions.

• Si une feuille lui est consacrée, tu peux faire

  Code :

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

  Planning = ThisWorkbook.WorkSheets("Planning_PR").UsedRange.Value

• Tu peux aussi donner un nom à la plage
• ...

Cordialement,

PGZ

[jojolaterreur]

Merci Pierre,

J'ai fait la première correction pour les dimensions de NomAgents mais le problème persiste, c'est au niveau de la ligne 19.

Code :

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

NomAgents = Sheets("Listes").Range("Q3:Q18")

Je me dis qu'il narrive pas à faire l'affectation demandée. Pour cela j'ai procédé ainsi:

Code :

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

1
2
Sheets("Listes").Activate
NomAgents = Sheets("Listes").Range("Q3:Q18")

Mais il n'en est rien, j'ai toujours le même message d'erreur.

[Marc-L]

Bonjour, bonjour !

Comme indiqué dans le code de pgz, c'est Worksheets ‼ Consulter l'aide VBA intégrée, elle ne mord pas !

Ensuite, si la feuille de calculs n'est pas dans le classeur contenant le code, il faudrait respecter le B-A-BA d'Excel :
la hiérarchie ! Classeur / Feuille / Cellule / méthode ou propriété …

Pointer une feuille par son nom ne souffre d'aucune faute d'orthographe !
Si la feuille appartient au classeur contenant le code, il est plus simple de la préciser par son CodeName …

[jojolaterreur]

Bonjour Marc,

J'ai pris en compte tes remarques en utilisant le CodeName, j'ai refait le code en me servant de mes listes prédéfinies dans mon fichier et pour le coup, je me retrouve avec Erreur d'exécution 1004.

En utilisant le débogage, je me rends compte que mon code s'arrête toujours au niveau de la première affectation de valeurs.

Il s'agit de mon premier code VBA! Pitié!

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
Option Explicit
Option Base 1
 
 
Sub PlanningAgent()
 
Dim NomAgents() As Variant
Dim Planning() As Variant
Dim TestPlanning() As Variant
Dim AgentsPlanning() As Variant
Dim InitialesProjets() As Variant
Dim H As Integer
Dim I As Integer
Dim J As Integer
 
'Supprimer le contenu du planning Agents
Planning_Ag.Range("PlanningAgent").ClearContents
 
'Récupération de données
 
NomAgents = Listes.Range("rAgentNom")
Planning = Planning_PR.Range("Planning")
AgentsPlanning = Planning_PR.Range("rAgentPlanning")
InitialesProjets = Planning_PR.Range("rInitialesProjet")
 
ReDim TestPlanning(UBound(NomAgents, 1), UBound(Planning, 2))
 
 
'Rechercher les projets de chaque Agent par demi-semaine de planning
 
For H = 1 To UBound(Planning, 2)
    For I = 1 To UBound(NomAgents, 1)
        For J = 1 To UBound(Planning, 1)
 
        If ((Planning(J, H) <> 0) And (AgentsPlanning(J, H) = NomAgents(I, 1))) Then
TestPlanning(I, H) = InitialesProjets(J, 1) & TestPlanning(I, H)
        End If
 
        Next J
    Next I
Next H
 
 
'Afficher les valeurs trouvées dans le fichier prévu
 
Planning_Ag.Select
Planning_Ag.Range("PlanningAgent") = TestPlanning
 
'Effacer les données du tableau
 
Erase TestPlanning
 
End Sub

[pgz]

Bonjour.

Si "rAgentNom" est un nom défini de plage, ce nom a pour étendu le classeur ou seulement une feuille.
Si l'étendue est le classeur

Code :

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

nomAgents = Thisworkbook.names("rAgentNom").refersToRange.Value

Si l'étendue est limitée à la feuille Listes

Code :

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

nomAgents = Thisworkbook.Worksheets("Listes").Names.RefersToRange.Value

Cordialement,

PGZ

[Marc-L]

J'ai pris en compte tes remarques en utilisant le CodeName, j'ai refait le code en me servant de mes listes prédéfinies dans mon fichier et pour le coup, je me retrouve avec Erreur d'exécution 1004.

Et faut-il deviner le n° de la ligne déclenchant l'erreur ?‼

Sinon j'ai l'impression que tu as confondu nom d'une feuille et son CodeName !
Par exemple si tu ouvres un nouveau classeur et tu nommes la première feuille "Test", son CodeName est "Feuil1".
Et faut-il encore que la feuille appartienne au classeur contenant le code …

[jojolaterreur]

Bonjour pgz, Bonjour Marc-L,

j'ai refait le code avec vos différentes corrections. Mon code marche à présent! merci!!!!