Probleme d'affichage de resultats d'une macro

**redyou** · 24/01/2008, 20h29

Bonsoir à tous,

Comprendrais sans doute rapidement que je suis un vrai débutant en VBA

Mon problème, c'est l’affichage des résultats de ce bout de code quel est le souci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Sub Prime_assu()
 
    Dim part_age As Double
    Dim part_sex As Double
    Dim part_type As Double
    Dim part_mt As Double
    Dim part_ancien As Double
    Dim nb_clien As Integer
    ReDim Tableau_Résultats(nb_client, 1) As Variant
 
Worksheets("BD").Activate
 
nb_client = Selection.End(xlDown).Count
Columns("K:K").Select
Selection.Insert Shift:=xlToRight
 
For i = 4 To nb_client
 
    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
 
    Montant = Cells(i, "J").Select
    If (Montant <= 1500) Then
    part_mt = Worksheets("Seuils").Range("J4")
    ElseIf (Montant <= 5000 & Montant > 1500) Then
    part_mt = Worksheets("Seuils").Range("J5")
    Else
    part_mt = Worksheets("Seuils").Range("J6")
    End If
 
    Ancien = Cells(i, "F").Select
    If (Ancien <= 18) Then
    part_ancien = Worksheets("Seuils").Range("F4")
    ElseIf (Ancien <= 36 & Ancien > 18) Then
    part_ancien = Worksheets("Seuils").Range("F5")
    Else
    part_ancien = Worksheets("Seuils").Range("F6")
    End If
 
    Typ = Cells(i, "I").Select
    If (Typ = "2 roues") Then
    part_type = Worksheets("Seuils").Range("H4")
    Else
    part_type = Worksheets("Seuils").Range("H5")
    End If
 
    Cells(i, "K").Value = part_age * part_sex * part_mt * part_type * part_ancien
 
    Next i
 
End Sub

merci de me repondre car c'est urgent

**jfontaine** · 24/01/2008, 20h37

Bienvenue sur le forum

C'est quoi l'erreur

**redyou** · 24/01/2008, 20h41

merci pour ta reponse rapide

en faite ta raison ,, il n'y pas d'erreur à la compilation ,, mais j'ai pas d'affichage sur ma feuille ecxel

**jfontaine** · 24/01/2008, 20h45

as tu essayé de mettre un point d'arret au debut de ton code pour l'executer en pas a pas afin de voir si la boucle se passe bien?

**redyou** · 24/01/2008, 21h03

Je crois que mon probleme est au niveau du compteur nb_client, tout au debut du code, je crois qu'il est pas bon,, en faite je ne specifie pas la cellule de depart pour compter le nombre de client que j'ai dans ma base. et le souci je ne sais pas le faire