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