Discussion :

[zebeginer]

Bonjour,

Dans le fichier ci joint l'utilisateur devra renseigner :
- Type of project
- Where
- Type of service
- Duration of the project
- Workforce

Je veux lui indiquer quels seront les differents HSE requirements lies (voir feuille HSE : 432 scenarios possibles)

Voici la macro :

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
Sub RA()
Dim i As Integer
Dim x1, x2, x3, x4, x5 As String
 
' x1 = Type of project'
' x2 = Where'
' x3 = Type of water'
' x4 = Duration'
' x5 = Workforce'
 
x1 = Sheets("HSE").Range("B4").Value
x2 = Sheets("HSE").Range("D4").Value
x3 = Sheets("HSE").Range("B6").Value
x4 = Sheets("HSE").Range("D6").Value
x5 = Sheets("HSE").Range("B10").Value
 
For i = 5 To 436
     If Sheets1("B" & i).Value = x1 And Sheets1("C" & i).Value = x2 And Sheets1("D" & i).Value = x3 And Sheets1("E" & i).Value = x4 And Sheets1("F" & i).Value = x5 Then
 
        Sheets("HSE").Range("H4").Value = Sheets1("A" & i).Value
 
        End If
 
    Next i
 
 
End Sub

Quelque soit le nom de la procedure choisi le message suivant s'affiche : "Sub or function not defined"

Pouvez vous m’éclairer ?

Merci beaucoup !

[Theze]

Bonjour,

C'est

Code :

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

Sheets("B" & i)

et non

Code :

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

Sheets1("B" & i)

Hervé.

[SfJ5Rpw8]

bonjour,

d'ou viens ton :

Code :

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

 Sheets1(

[Philippe Tulliez]

Bonjour,
Afin que la lecture de ton code soit aisée, merci de le placer entre les balises prévues à cet effet. (bouton symbolisé pas un croisillon # dans l'éditeur)
Ensuite indiquer le n° de la ligne où l'erreur est signalée serait un plus.
Sans avoir examiné tout ton code, je vois déjà un problème ici

Code :

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

If Sheets1("B" & i).Value = x1 And Sheets1("C" & i).Value = x2 And Sheets1("D" & i).Value = x3 And Sheets1("E" & i).Value = x4 And Sheets1("F" & i).Value = x5 Then

Sheets1 n'est pas un Range
Attention aussi à cette ligne

Code :

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

Dim x1, x2, x3, x4, x5 As String

Seul x5 est un String, les autres sont de type Variant
La bonne syntaxe est
Dim x1 as String, x2 as String, etc...

[zebeginer]

Merci beaucoup pour vos premières remarques.

Code :

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

If Sheets1("B" & i).Value = x1

Comment puis je faire référence au contenu de la cellule en question qui se trouve sur la feuille 1 ?

[SfJ5Rpw8]

ben si ta feuille se nomme "Feuille 1" cela donne :

Code :

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

If ThisWorkbook.Sheets("Feuille 1").range("B" & i).Value = x1

[zebeginer]

Voici le code rectifie :

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
Sub RA()
 
Dim i As Integer
Dim x1 As String, x2 As String, x3 As String, x4 As String, x5 As String
 
' x1 = Type of project'
' x2 = Where'
' x3 = Type of water'
' x4 = Duration'
' x5 = Workforce'
 
x1 = Sheets("HSE").Range("B4").Value
x2 = Sheets("HSE").Range("D4").Value
x3 = Sheets("HSE").Range("B6").Value
x4 = Sheets("HSE").Range("D6").Value
x5 = Sheets("HSE").Range("B10").Value
 
For i = 5 To 436
     If ThisWorkbook.Sheets("Sheet 1").Range("B" & i).Value = x1 And ThisWorkbook.Sheets("Sheet 1").Range("C" & i).Value = x2 And ThisWorkbook.Sheets("Sheet 1").Range("D" & i).Value = x3 And ThisWorkbook.Sheets("Sheet 1").Range("E" & i).Value = x4 And ThisWorkbook.Sheets("Sheet 1").Range("F" & i).Value = x5 Then
 
        ThisWorkbook.Sheets("HSE").Range("H4").Value = ThisWorkbook.Sheets("Sheet 1").Range("A" & i).Value
 
 
        Else
 
        End If
 
    Next i
 
 
 
End Sub

J'obtiens désormais le message : "Subscript out of range"

[SfJ5Rpw8]

lorsque tu obtiens ce message l'affichage doit te montrer la ligne de code en cause .. qu'elle est cette ligne ?