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
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
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
