Bonjour,
j'ai un problème avec cette macro. Si je déclare ma valeurs "Parcours" comme ci-dessous "Const Parcours = 6", mon script ne fonctionne pas alors que si je déclare "Dim Parcours as integer", Parcours =6" aprés le Sub, cela fonctionne. Ma constante est mal déclarée ?
Merci de votre aide.
Option Explicit
Const Parcours = 6
Sub Données_Parcours()
'remplit les lignes dont le champs Parcours est rempli
Dim premiereligne, derniereligne, Parcours As Integer
Dim i, j As Integer
premiereligne = Application.InputBox("premiere ligne")
derniereligne = Application.InputBox("derniere ligne")
For i = premiereligne To derniereligne
If Cells(i, Parcours).Value = "Oursinieres" Then
Cells(i, Parcours - 4).Value = "course à pieds"
Cells(i, Parcours - 3).Value = 14.27
Cells(i, Parcours - 2).Value = 360
ElseIf Cells(i, Parcours).Value = "A/Boulot" Then
Cells(i, Parcours - 4).Value = "vélo"
Cells(i, Parcours - 3).Value = 6
Cells(i, Parcours - 2).Value = 0
ElseIf Cells(i, Parcours).Value = "R/Boulot" Then
Cells(i, Parcours - 4).Value = "vélo"
Cells(i, Parcours - 3).Value = 6
Cells(i, Parcours - 2).Value = 0
ElseIf Cells(i, Parcours).Value = "R/Corniche" Then
Cells(i, Parcours - 4).Value = "course à pieds"
Cells(i, Parcours - 3).Value = 8.68
Cells(i, Parcours - 2).Value = 279
ElseIf Cells(i, Parcours).Value = "Piste_Cyclable" Then
Cells(i, Parcours - 4).Value = "course à pieds"
Cells(i, Parcours - 2).Value = 0
ElseIf Cells(i, Parcours).Value = "boulotA" Then
Cells(i, Parcours - 4).Value = "course à pieds"
Cells(i, Parcours - 3).Value = 5.97
Cells(i, Parcours - 2).Value = 0
ElseIf Cells(i, Parcours).Value = "boulotR" Then
Cells(i, Parcours - 4).Value = "course à pieds"
Cells(i, Parcours - 2).Value = 0
ElseIf Cells(i, Parcours).Value = "BoulotV" Then
Cells(i, Parcours - 4).Value = "vélo"
Cells(i, Parcours - 2).Value = 0
ElseIf Cells(i, Parcours).Value = "boulotA/R" Then
Cells(i, Parcours - 4).Value = "vélo"
Cells(i, Parcours - 3).Value = 12
Cells(i, Parcours - 2).Value = 0
End If
Next i
End Sub