dim lance as integer

[koko_spv89]

Bonjour tout le monde

Voilà je sais pas comment faire :

J'ai une macro qui vient "scanner" ce qu'il y a dans une colonne :

Option Explicit

Const Entete = 4
Const NbLances = 8
-----------------------------------------------------
Private Sub calcul_lance()

Dim i As Byte
Dim lance As Integer

For i = 1 + Entete To Entete + NbLances
    If Feuil7.Range("c" & i) = "SC" & lance And [ext_tempo] = "Temporisation" Then Feuil1.Range("tempo_lance" & lance) = Feuil7.Range("D" & i) '* 60 / 1000
Next

End Sub

j'ai aucun soucis concernant la dimension de i car les valeurs se suivent (de 5à 12)

Par contre j'aimerai arriver à scanner de la meme façon avec lance. le pb voilà la liste des valeurs de lance :
1_1
1_2
1_3
1_4
2_1
2_2
2_3
2_4
3_1
3_2
3_3
3_4

comment faire?

 

[koko_spv89]

Re : dim lance as integer

merci pierrejean....
effectivement ce n'étais pas si compliqué

@ bientot