Bonjour,

Je voudrais faire une macro pour que dans une suite de cellules x (appartenant à la même ligne mais colonnes n+1) si la valeur donnée dans une cellule Y (appartenant à la même ligne mais colonnes n+1)<4 alors ajouter cellule x+ 24.

Tant que y<4 alors x+24.

J'ai essayé de créer quelque chose mais je ne sais pas trop comment faire:

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
Sub MacroLea()
Dim F1 As Worksheet
cell_value As Range
Plage As Range
Dim Calcul As Integer
 
Set F1 = Worksheets("Stock Equation")
With F1
Set Plage = .Range("CC146:EC146")
cell_value = Range("CG50")
Calcul = Range("CG146")
For Each cell In Plage
 
Do While cell.Value < 4
Calcul = Calcul + 24
 
Loop
Wend
End Sub
Quelqu'un peut-il m'aider ?

Merci

L