Discussion :

[Blaiz58]

Bonjour,

J'ai un tableau qui se remplit grâce à une série de contraintes. Et dès que je change une valeur dans une cellule, cela change dans les autres autres colonnes calculées via le code mais le problème c'est que à chaque fois c'est tout le tableau qui est recalculé alors que je voudrais uniquement la ligne où je modifie les valeurs.

Je voudrais que quand je change une valeur dans l'encadré 1, cela change uniquement les valeurs de l'encadré 2 (qui je le rappelle se calcul grace à un code sous VBA) . Pour l'instant quand je change une valeur dans l'encadrée 1, cela change tout le tableau de droite donc cela fait ramer Excel.

Je vous montre ci-dessous :




Merci pour votre aide

[casefayere]

Bonjour,

qui je le rappelle se calcul grace à un code sous VBA

Publies ton code

[Blaiz58]

Voila le code

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
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 
Dim x As Integer, last_line As Integer
 
last_line = Cells(Rows.Count, 1).End(xlUp).Row
 
If Not Intersect(Target, Range(Cells(13, 7), Cells(last_line, 9))) Is Nothing Then
 For i = 13 To last_line
 
 Points = 0
 points_sauvegardés = 0
 points_non_sauvegardés = 0
 propres_points = Feuil2.Cells(i, 9)
 points_accordés = Feuil2.Cells(i, 8)
 point_de_sauvegarde = Feuil2.Cells(i, 7)
 points_suspendus = 0
 
 
 
    If propres_points <= points_accordés Then
        Points = propres_points
        points_sauvegardés = Points
        If Points > point_de_sauvegarde Then
            points_sauvegardés = point_de_sauvegarde
            points_non_sauvegardés = propres_points - point_de_sauvegarde
            Points = points_sauvegardés + points_non_sauvegardés
        End If
    Else
       'propres_points >points_accordés
        If propres_points > point_de_sauvegarde Then
            If points_accordés > point_de_sauvegarde Then
                points_sauvegardés = point_de_sauvegarde
                points_non_sauvegardés = points_accordés - points_sauvegardés
                Points = points_sauvegardés + points_non_sauvegardés
            End If
            If points_accordés <= point_de_sauvegarde Then
                points_sauvegardés = points_accordés
                points_non_sauvegardés = 0
                Points = points_sauvegardés + points_non_sauvegardés
            End If
        End If
        If propres_points <= point_de_sauvegarde Then
            points_sauvegardés = propres_points
            points_non_sauvegardés = 0
            Points = points_sauvegardés + points_non_sauvegardés
        End If
    End If
 
    If propres_points > Points Then
        points_suspendus = propres_points - Points
    Else
        points_suspendus = 0
    End If
 
Feuil2.Cells(i, 10) = Points
Feuil2.Cells(i, 11) = points_sauvegardés
Feuil2.Cells(i, 12) = points_non_sauvegardés
Feuil2.Cells(i, 13) = points_suspendus
 
Next i
End If
 
End Sub

[casefayere]

je pense, sans analyser ton code plus en profondeur qu'il suffit d'éliminer la boucle et remplacer i par Target.Row, je répète, j'écris ça à vue de nez

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
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 
Dim x As Integer, last_line As Integer
 
last_line = Cells(Rows.Count, 1).End(xlUp).Row
 
If Not Intersect(Target, Range(Cells(13, 7), Cells(last_line, 9))) Is Nothing Then
 
 Points = 0
 points_sauvegardés = 0
 points_non_sauvegardés = 0
 propres_points = Feuil2.Cells(Target.Row, 9)
 points_accordés = Feuil2.Cells(Target.Row, 8)
 point_de_sauvegarde = Feuil2.Cells(Target.Row, 7)
 points_suspendus = 0
 
 If propres_points <= points_accordés Then
        Points = propres_points
        points_sauvegardés = Points
        If Points > point_de_sauvegarde Then
            points_sauvegardés = point_de_sauvegarde
            points_non_sauvegardés = propres_points - point_de_sauvegarde
            Points = points_sauvegardés + points_non_sauvegardés
        End If
    Else
       'propres_points >points_accordés
        If propres_points > point_de_sauvegarde Then
            If points_accordés > point_de_sauvegarde Then
                points_sauvegardés = point_de_sauvegarde
                points_non_sauvegardés = points_accordés - points_sauvegardés
                Points = points_sauvegardés + points_non_sauvegardés
            End If
            If points_accordés <= point_de_sauvegarde Then
                points_sauvegardés = points_accordés
                points_non_sauvegardés = 0
                Points = points_sauvegardés + points_non_sauvegardés
            End If
        End If
        If propres_points <= point_de_sauvegarde Then
            points_sauvegardés = propres_points
            points_non_sauvegardés = 0
            Points = points_sauvegardés + points_non_sauvegardés
        End If
    End If
 
    If propres_points > Points Then
        points_suspendus = propres_points - Points
    Else
        points_suspendus = 0
    End If
 
Feuil2.Cells(Target.Row, 10) = Points
Feuil2.Cells(Target.Row, 11) = points_sauvegardés
Feuil2.Cells(Target.Row, 12) = points_non_sauvegardés
Feuil2.Cells(Target.Row, 13) = points_suspendus
 
End If
 
End Sub

[Blaiz58]

Eh bien tu as une bonne vue ahah
ça à l'air de bien fonctionner !

Merci beaucoup

[Blaiz58]

En fait, il reste un petit problème mineur mais bien embêtant quand même. Il m'arrive parfois, au lieu de rentrer une valeur pas une valeur dans les cellules, de faire un copier coller d'une rangée de cellules mais la c'est le drame ^^ les calcules ne s'effectuent pas automatiquement. En fait, le calcul se fait juste pour la ligne où je fais le clique droit et copier coller mais pour les lignes en dessous rien ne se passe ... :/

Avez vous une idée ?

Merci d'avance