Discussion :

[had4789]

Bonjour à tous,

Je souhaite appliquer cette formule pour plusieurs colonne

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
Sub A3()
'test 3 avec sum fonctionne
 
Application.ScreenUpdating = False
 
Dim i As Integer
 
With ThisWorkbook.Sheets("GESQUIERE Ludovic (2)")
 
For i = 2 To 13
 
 
If Range("F" & i) - Range("F" & 2) < 366 And WorksheetFunction.Sum(Range("H2:H" & i)) >= 90 Then
 
.Range("K" & i).Value = Range("F" & i) - Range("F" & 2) ' "=SUM(H2:H4)"
 
Else
  .Range("K" & i).Value = 0
 
End If
Next i
End With
 
 
End Sub

Pour cela j'ai essayé cette formule mais là plus rien ne se passe:

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
Sub A4()
'test V1 avec sum et j
 
Application.ScreenUpdating = False
 
Dim i As Integer
Dim j As Integer
 
For j = 12 To 13
 
 
With ThisWorkbook.Sheets("GESQUIERE Ludovic (2)")
Columns(j).Select
For i = 2 To 13
 
If Range("F" & i) - Range("F" & j) < 366 And WorksheetFunction.Sum(Range("H2:H" & i)) >= 90 Then
 
.Cells(j & i).Value = Range("F" & i) - Range("F" & 2) ' "=SUM(H2:H4)"
 
End If
Next i
End With
 
Next j
 
 
End Sub

Est-ce que quelqu'un peut me dire comme faire?

Merci par avance

[keygen08]

Bonjour
Dabors il faudrait réactiver le rafraichissement d'ecran
si

Code :

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

Application.ScreenUpdating = False

alors

Code :

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

Application.ScreenUpdating = true

serait bien en fin de macro

[had4789]

Certes mais ce n'est pas ce qui change répond à mon problème

[keygen08]

Code :

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

1
2
3
If Range("F" & i) - Range("F" & j) < 366 And WorksheetFunction.Sum(Range("H2:H" & i)) >= 90 Then
 
.Cells(j & i).Value = Range("F" & i) - Range("F" & 2) ' "=SUM(H2:H4)"

revient a dire pour i = 2
j = 12

si f2-f12 < 366 et somme(h2:h2)>=90 alors L2 = f2-f2
je pense pas que se soit le resultat a obtenir

je comprends pas "=SUM(H2:H4)" se refere a quoi

Code :

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

.Cells(i,j).Value

serait l'ortographe exact de .Cells(j & i).Value
et Columns(j).Select ne sert a rien

[keygen08]

pour resumé

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub A5()
Dim i As Integer, j As Integer
With ThisWorkbook.Sheets("GESQUIERE Ludovic (2)")
    For j = 12 To 13
        For i = 2 To 13
            If Range("F" & i) - Range("F" & j) < 366 And WorksheetFunction.Sum(Range("H2:H" & i)) >= 90 Then .Cells(i,j).Value = Range("F" & i) - Range("F2")
        Next i
    Next j
End With
End Sub

est fonctionnelle, mais sans garantie du resultat