Bonjour,

Je débute sur VBA et j'essaye de faire mes premières boucles. Pour l'instant, elles sont très basiques mais malgré ça je n'arrive pas à faire fonctionner la dernière. Je voudrais sur une plage de cellule précise multiplier par 1 les cellules dont la valeur est différente de zéro (dans l'absolu je voudrais faire cette opération si la cellule est non vide mais ça me paraît trop dur pour mon petit niveau).

Voilà le code que j'ai entré :

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
Sub Macro1()
 
    Application.ScreenUpdating = False
 
        Dim Cell As Range
 
            Dim k As Byte, LR As Long
            k = 1
            LR = Range("A65536").End(xlUp).Row
 
            For Each Cell In ActiveSheet.Range(Cells(2, 2), Cells(LR, 2))
            If Cell.Value Is Not Null Then Cell.Value = Cell.Value * k
            Next Cell
 
    Application.ScreenUpdating = True
 
End Sub
Mais lors de l'exécution de la macro, j'ai un message d'erreur avec "Object required". Je ne sais pas du tout comment corriger ce problème qui me bloque

Pourriez-vous SVP m'expliquer ce qui ne marche pas et éventuellement le code que je dois rentrer à la place du mien ?

Merci d'avance !

Runsh