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?

 

[pierrejean]

Re : dim lance as integer

bonjour koko

A tester

leslances=Array("1_1","1_2", etc)
for i = Lbound(leslances) to Ubound(leslances)
    .....leslances(i).....
next i

 

[koko_spv89]

Re : dim lance as integer

merci pierrejean ça marche nikel le code est le suivant:

Private Sub calcul_lance()

Dim i, j As Byte
Dim lance As Integer
Dim leslances As Variant

leslances = Array("1_1", "1_2", "1_3")

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

par contre comment faire dans le cas ou j'ai 2 SC1_1 par exemple j'aimerais que ça s'additionne.....?!

 

[koko_spv89]

Re : dim lance as integer

arfffffff et m**** ça marque plus je sais pas pk.....

 

[pierrejean]

Re : dim lance as integer

Re

lance est un nombre
pour avoir l'identité de la lance c'est leslances(lance)

Teste:

Private Sub calcul_lance()
Dim i, j As Byte
Dim lance As Integer
Dim leslances As Variant

leslances = Array("1_1", "1_2", "1_3")

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

en supposant que j'aie compris bien sur !!

 

[koko_spv89]

Re : dim lance as integer

re

effectivement il manquait le leslances(lance) dans les 2 Formules....

par contre ça ne résoud pas mon pb à savoir s'il y a plusieurs SC1_1.... il n'existe pas comme pour une formule excel une fonction somme????

 

[pierrejean]

Re : dim lance as integer

Re

La je suis désolé mais je ne comprend pas !!

qu'est-il question d'additionner ?
et ou mettre le resultat ?

 

[koko_spv89]

Re : dim lance as integer

je te fais un petit fichier..... ça va me prendre 3/4 minutes

 

[koko_spv89]

Re : dim lance as integer

voilà le fichier j'ai pas mis les formules qui vont bien mais c juste pour que tu vois ce qu'il faut additionner

 

[pierrejean]

Re : dim lance as integer

Re

Ton fichier avec la macro adaptée

Attention quand tu utilises le codename des feuilles !!

j'ai egalement supprimé

And [ext_tempo] = "Temporisation"

dont je n'ai pas vu a quoi cela correspond

 

[koko_spv89]

Re : dim lance as integer

nouveau fichier avec les formules cette fois ci................

 

[pierrejean]

Re : dim lance as integer

Re

Voila

 

[koko_spv89]

Re : dim lance as integer

merci pierrejean pour toute ton aide encore une fois!

 

[koko_spv89]

Re : dim lance as integer

Re Pierrejean,

En utilisant ta formule je me suis rendu compte de qqch....

Si tu lances une première fois le calcul avec par exemple 2 lances dans SC1_1 puis qu'ensuite tu viens rajouter une 3ème lance dans SC1_1, ça double les valeurs des deux premières lances! ça additionne en fait à chaque fois que tu rajoute une lance... ça va pas du coup.....
c'est possible de modifier ça ou pas?

 

[pierrejean]

Re : dim lance as integer

Re

J'avais pensé que c'etait le role du bouton RAZ mais pas de probleme !

La macro fait la remise a 0 avant de faire les calculs