Code VBA en utilisant les données de 3 feuilles différentes d'un même classeur

Version imprimable

20/09/2017, 16h41
mika745

Code VBA en utilisant les données de 3 feuilles différentes d'un même classeur

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
20/09/2017, 16h52
Philippe Tulliez

Bonjour,
cette ligne

Citation:

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

n'est pas du code VBA.
20/09/2017, 16h58
mika745

mon code VBA est:

Code:

Worksheets("step 3").Range("D10")
20/09/2017, 17h10
Philippe Tulliez

Bonjour,

Citation:

mon code VBA est:

Code:

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:

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

soit à une variable

Code:

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

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

Code:

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

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

Code:

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

ou encore la valeur d'une variable

Code:

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

soit la valeur d'une autre cellule

Code:

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.

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

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

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

Code:

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

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:

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

21/09/2017, 08h50
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:

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:

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:

If Workbooks("monClasseur.xlsx").Worksheets("Trame").Range("cw13").Value > 0 Then
21/09/2017, 10h37
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?
21/09/2017, 13h55
Philippe Tulliez

Bonjour,

Citation:

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