Bonjour à tous,
Je viens de terminer le code ci-dessous, cependant il y a une erreur dans l'execution "imcompatibilité de type" sur la ligne "If Cells(X, 18) = "REMBOURSEMENT" Then"
Est il possible de faire une boucle et de renvoyer les références de cette même boucle dans une autre cellule dans la même ligne? Le code sera plus explicatif.
Merci pour votre aide précieuse.
Ci-joint mon 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 Sub test() X = 2 While IsEmpty(Cells(X, 1)) = False If Cells(X, 18) = "CHANGEMENT" Then Cells(X, 13) = Cells(X, 9) End If If Cells(X, 18) = "REMBOURSEMENT" Then Cells(X, 14) = Cells(X, 9) End If X = X + 1 Wend End Sub
Partager