Erreur de compilation: erreur de syntaxe
Bonjour,
Je viens vous demander une petite aide concernant un code VBA que je construis. Je ne peux partager le fichier malheureusement qui est confidentiel. Voici le code:
Sub chiffreaffaires()
Dim i As Integer
For i = 2 To 10001
If Range("F" & i).Value Like "*Genas*" Then
If Range("E" & i).Value Like "*LCD*" Then
If Range("G" & i).Value = 1 Then
If Range("M" & i).Value > 0 Then
If Range("P" & i).Value = "dimanche" Then
Sheets(teliway).Range("AF" & i).Value = Sheets(Grille).Range(L14).Value + Sheets(Grille).Range(B29).Value + Sheets(Grille).Range(B28).Value
Else
Sheets(teliway).Range("AF" & i).Value = Sheets(Grille).Range(L14).Value + Sheets(Grille).Range(B29).Value
End If
End If
If Range("M" & i).Value > 50 Then
If Range("P" & i).Value = "*dimanche*" Then
Range("AF" & i).Value = Sheets(Grille).Range(L14).Value + Sheets(Grille).Range(B29).Value + Sheets(Grille).Range(B28).Value + Sheets(Grille).Range(F3).Value
Else
Range("AF" & i).Value = Sheets(Grille).Range(L14).Value + Sheets(Grille).Range(B29).Value + Sheets(Grille).Range(F3).Value
End If
End If
If Range("M" & i).Value > 100 Then
If Range("P" & i).Value = "*dimanche*" Then
Range("AF" & i).Value = Sheets(Grille).Range(L14).Value + Sheets(Grille).Range(B29).Value + Sheets(Grille).Range(B28).Value + Sheets(Grille).Range(F4).Value
Else
Range("AF" & i).Value = Sheets(Grille).Range(L14) + Sheets(Grille).Range(B29) + Sheets(Grille).Range(F4)
End If
End If
End If
End If
End If
Next
End Sub
L' erreur se situe au niveau de la ligne 9 :
Sheets(teliway).Range("AF" & i).Value = Sheets(Grille).Range(L14).Value + Sheets(Grille).Range(B29).Value + Sheets(Grille).Range(B28).Value
J'ai donc deux feuilles différentes, une "teliway" et une "Grille". L' erreur peut paraitre évidente pour certains mais je suis encore débutant!
J'ai bien sur essayé de rechercher par moi-même des réponses sur le forum mais je n'ai pu trouver quelque chose de similaire.
Je tiens à préciser que toute les valeurs utilisées sont bien numériques.
J'attends vos réponses avec impatience!
Merci :)
Bonjour, l'erreur est la même partout. le nom des feuilles s'incrit entre guillemets.
Sheets("teliway")
Sheets("Grille")
Bonjour,
Je dirai même plus! les Range s'écrivent également entre guillemets
Range("L14")
ou bien [Grille!L14] au lieu de Sheets("Grille").Range("L14")
Aaaah, je me disais bien que c'était tout bête, il faut sérieusement que je revois tout cela! En tout cas merci à vous deux pour ces réponses rapides!
Passez une bonne soirée :)