Discussion :

[manal001]

Bonjour,
Je n'arrive pas à savoir quelle est la partie que je dois rectifier dans le code suivant:
Quand je clique sur débogage c'est les trois dernières lignes qui sont concernées.

voici 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
Sub calcul00()
 
Dim j As Integer
 
Application.ScreenUpdating = True
 
Sheets("SDP").Range(Sheets("SDP").Cells(33, 2), Sheets("SDP").Cells(33, 25)).ClearContents
 
For j = 2 To 25
 
Sheets("SDP").Cells(32, j).GoalSeek goal:=0, changingcell:=Sheets("SDP").Cells(33, j)
 
Next
 
End Sub

[ARTURO83]

Bonjour,

Question: en Cells(32, j), il y a bien une formule?

Cdlt

[manal001]

Oui il y a la les cellules de la ligne 29 moins les cellules de la ligne 33.

[manal001]

Je viens de checker les cells (32;j) la formule n'était pas saisie dans toute les colonnes. Vous aviez raison. Le problème est résolu. Je vous Remercie ARTURO83.