Discussion :

[mika745]

Bonjour,

Depuis ce matin je galère. Je dois écrire un code VBA en utilisant les données de 3 feuilles différentes d'un même classeur.
J'ai essayé pas mal de choses, mais ça fini toujours par bloquer.
Y a t'il des choses particulières à faire pour me permettre de réaliser ce code?

J'utilise par exemple pour sélectionner des cellules: Worksheets("step 3").Range("D10") -> STEP 3 est le nom d'une des trois feuilles

Merci de votre aide

[Philippe Tulliez]

Bonjour,
cette ligne

Worksheets("step 3").Range("D10") -> STEP 3

n'est pas du code VBA.

[mika745]

mon code VBA est:

Code :

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

Worksheets("step 3").Range("D10")

[Philippe Tulliez]

Bonjour,

mon code VBA est:

Code :

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

Worksheets("step 3").Range("D10")

Et bien ce code est incomplet
Soit on passe la valeur de la cellule D10 de la feuille nommée step 3 à l'affichage par une fonction comme MsgBox

Code :

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

MsgBox Worksheets("step 3").Range("D10").Value

soit à une variable

Code :

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

maValeur = Worksheets("step 3").Range("D10").Value

soit encore à une autre cellule de la même feuille ou d'une autre feuille

Code :

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

Worksheets("step 1").Range("A2").Value = Worksheets("step 3").Range("D10").Value

ou bien on assigne la valeur d'une constante à cette cellule

Code :

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

Worksheets("step 3").Range("D10").Value=20

ou encore la valeur d'une variable

Code :

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

Worksheets("step 3").Range("D10").Value=maValeur

soit la valeur d'une autre cellule

Code :

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

Worksheets("step 3").Range("D10").Value=Worksheets("step 1").Range("A2").Value

etc., etc., etc;
et idéalement pour éviter les problèmes on ajoute le nom du classeur.

[mika745]

j'ai essayé avec ce code simple pour essai:

Code :

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

1
2
3
4
5
Sub STEP_33333333()
If Worksheets("Opérateur1").Range("cw13") > 0 Then
    Worksheets("Opérateur1").Range("cw13").Value = Worksheets("Opérateur1").Range("cw13").Value + 1
End If
End Sub

Mais j'obtiens sur la deuxième ligne l'erreur suivante: erreur d'exécution 9

[mika745]

ou alors avec ce code, j'obtiens la même erreur sur la ligne 30

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
'Je déclare les variables'
Dim x As Integer
Dim y As Integer
Dim i As Integer
Dim j As Integer
Dim tableau() As Single
 
 
 
'Taille du tableau'
x = 1   'Nombre de ligne du tableau'
y = 21  'Nombre de colonnes du tableau'
ReDim Tableau_Simulation_3_Temps(1 To x, 1 To y)
 
 
'Calcul des données'
Range("ct13") = 0
Range("cw13") = 3
Range("cz13") = 1
Range("dc13") = 0
Range("df13") = 0
Range("df9") = 0
 
While Range("ct13") < 20
        If Range("dc13") < Range("cw21") Then
        Range("dc13") = Range("dc13") + 5
        Else
        For i = 1 To x
            For j = 1 To y
            tableau(i, j) = Range("cw21")
            tableau(i + 1, j) = Range("dk21")
            Range("df13") = Range("df13") + 1
            Range("ct13") = Range("ct13") + 1
            Range("dc13") = 0
            Next j
            Next i
            End If
            Wend

[mika745]

j'ai refait un code et toujours cette satanée erreur: erreur 9; l'indice n'appartient pas à la sélection
erreur qui apparaît sur la ligne 43

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
Sub STEP_3_Opérateur1()
 
 
'Je déclare les variables'
Dim x As Integer
Dim y As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim tableau() As Single
 
 
'Taille du tableau1'
x = 2   'Nombre de ligne du tableau'
y = 20  'Nombre de colonnes du tableau'
ReDim Tableau1(1 To x, 1 To y)
 
 
'Taille du tableau2'
x = 12  'Nombre de ligne du tableau'
y = 20  'Nombre de colonnes du tableau'
ReDim Tableau2(1 To x, 1 To y)
 
 
 
 
 
'Calcul des données'
Worksheets("Opérateur 1").Range("ct13") = 0
Worksheets("Opérateur 1").Range("cw13") = 3
Worksheets("Opérateur 1").Range("cz13") = 1
Worksheets("Opérateur 1").Range("dc13") = 0
Worksheets("Opérateur 1").Range("df13") = 0
Worksheets("Opérateur 1").Range("df9") = 0
 
 
 
While ((Worksheets("Opérateur 1").Range("ct13") < 20) Or (Worksheets("Opérateur 2").Range("df13")))
 
        If Worksheets("Opérateur 1").Range("dc13") > Worksheets("Opérateur 1").Range("cw21") Then
            For j = 1 To y
            Tableau1(i, j) = Worksheets("Opérateur 1").Range("cw21")
            Tableau1(i + 1, j) = Worksheets("Opérateur 1").Range("dk21")
            Worksheets("Opérateur 1").Range("df13") = Worksheets("Opérateur 1").Range("df13") + 1
            Worksheets("Opérateur 1").Range("ct13") = Worksheets("Opérateur 1").Range("ct13") + 1
            Worksheets("Opérateur 1").Range("dc13") = 0
            Next j
            End If
 
 
 
 
        If Worksheets("Opérateur 1").Range("df13") > Worksheets("Opérateur 2").Range("cw21") Then
 
            For l = 1 To y
            Tableau2(i, j) = Worksheets("Opérateur 2").Range("cw21")
            Tableau2(i + 1, j) = Worksheets("Opérateur 2").Range("dk21")
            Worksheets("Opérateur 2").Range("df13") = Worksheets("Opérateur 2").Range("df13") + 1
            Worksheets("Opérateur 2").Range("ct13") = Worksheets("Opérateur 2").Range("ct13") + 1
            Worksheets("Opérateur 2").Range("dc13") = 0
            Next l
            End If
 
 
 
 
            Worksheets("Opérateur 1").Range("dc13") = Worksheets("Opérateur 1").Range("dc13") + 5
     Wend
 
 
'donnéesdans tableau'
Worksheets("Résultats").Activate
 
 
Range(Cells(4, 4), Cells(5, 23)) = Tableau1
Range(Cells(10, 4), Cells(10, 23)) = Tableau2
 
 
 
 
End Sub

[Philippe Tulliez]

Bonjour,
D'abord ce serait bien de mettre tes codes entre les balises prévues à cet effet (le croisillon # qui se trouve à la fin de la deuxième ligne de l'éditeur)
Une erreur est toujours accompagnée d'un texte plus explicite. Ainsi le texte qui s'affiche pour l'erreur 9 est l'indice n'appartient pas à la sélection.
C'est à dire par exemple pour ta ligne

Code :

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

If Worksheets("Opérateur1").Range("cw13") > 0 Then

Le classeur actif au moment où tu lances ta procédure ne contient pas de feuille nommée Opérateur1.
Il est important pour éviter tout problème de préciser de quel classeur il s'agit comme par exemple ci-dessous

Code :

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

If ThisWorkbook.Worksheets("Trame").Range("cw13").Value > 0 Then

ou encore si le classeur qui contient la feuille nommée n'est pas le classeur où se trouve le code VBA et bien entendu à condition qe celui-ci soit ouvert

Code :

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

If Workbooks("monClasseur.xlsx").Worksheets("Trame").Range("cw13").Value > 0 Then

[mika745]

Merci pour ta réponse.
Je vais modifier mon code en conséquence.

Pour les balises, je dois en mettre une au début et une à la fin?

[Philippe Tulliez]

Bonjour,

Pour les balises, je dois en mettre une au début et une à la fin?

Quand tu cliques sur le croisillon, les balises de début et fin sont automatiquement placées