Probleme VBA Ecxel

Question

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

eriiic · Answer

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

ego · Answer

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

ego · Answer

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.

Probleme VBA Ecxel

3 réponses

Discussions similaires

Newsletters