Probleme VBA Ecxel
redyou
-
ego -
ego -
J'ai un souci avec mon code vba, svp aidez moi c'est urgent!!
le code d'erreur "erreur d'execution '424' objet requis"
Sub Prime_assu()
Dim part_age As Double
Dim part_sex As Double
ReDim Tableau_Résultats(43, 1) As Variant
Worksheets("BD").Activate
For i = 4 To 43
Sexe = Cells(i, "F").Select
If Sexe = "M" Then
part_sex = Worksheets("Seuils").Range("D4")
Else
part_sex = Worksheets("Seuils").Range("D5")
End If
Age = Cells(i, "E").Select
If (Age < 26 & Age > 17) Then
part_age = Worksheets("Seuils").Range("B4")
ElseIf (Age < 50 & Age > 25) Then
part_age = Worksheets("Seuils").Range("B5")
Else
part_age = Worksheets("Seuils").Range("B6")
End If
Worksheets("BD").Activate
Tableau_Résultats(i - 4, 1).Value = (part_sex * part_age )
Cells(i - 4, "K").Value = Tableau_Résultats(i - 4, 1)
Next i
End Sub
le code d'erreur "erreur d'execution '424' objet requis"
Sub Prime_assu()
Dim part_age As Double
Dim part_sex As Double
ReDim Tableau_Résultats(43, 1) As Variant
Worksheets("BD").Activate
For i = 4 To 43
Sexe = Cells(i, "F").Select
If Sexe = "M" Then
part_sex = Worksheets("Seuils").Range("D4")
Else
part_sex = Worksheets("Seuils").Range("D5")
End If
Age = Cells(i, "E").Select
If (Age < 26 & Age > 17) Then
part_age = Worksheets("Seuils").Range("B4")
ElseIf (Age < 50 & Age > 25) Then
part_age = Worksheets("Seuils").Range("B5")
Else
part_age = Worksheets("Seuils").Range("B6")
End If
Worksheets("BD").Activate
Tableau_Résultats(i - 4, 1).Value = (part_sex * part_age )
Cells(i - 4, "K").Value = Tableau_Résultats(i - 4, 1)
Next i
End Sub
Configuration: Windows XP Firefox 2.0.0.11
3 réponses
-
Bonsoir,
Ca serait sympa sur un pb comme ça de dire sur quelle ligne tu l'as qu'on ne soit pas obligé de copier ton prg pour le faire en pas à pas...
Tableau_Résultats(i - 4, 1= (part_sex * part_age )
.value c'est pour les cellules, pas pour un tableau
et tu vas avoir un autre soucis avec Cells(i - 4, "K").Value = Tableau_Résultats(i - 4, 1)
vu que i commence à 4 => Cells(0, "K").value
eric -
tu es sur de la synyaxe cells(i,"F") ?
il me semblait que la fonction cells ne marchait qu'avec des index
cells(i,5) devrait mieux aller que cells(i,"E").
enfin je crois
sinon y a range("E" & i).value qui marche bien aussi
@+ -
piuis tu peux eviter les va et vient inutiles
Sexe = Cells(i, "F").Select peux aussi etre compris par sexe=range("F" & i).value.
pas la peine de se rendre physiquemlent sur une cellule pour en savoir sa valeur.
