Discussion :

[Runsh63]

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

[tedo01]

Bonjour,
C'est la syntaxe "Is Not Null" qui est ici mal employée. Elle ne doit être utilisée qu'avec un objet, pour vérifier qu'il est bien initialisé.
Pour tester la valeur de Cell, il suffit d'écrire

Code :

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

If Cell.Value <> 0 Then

[casefayere]

Bonsoir,
Un petit conseil :
tu travailles avec excel 2007 alors plutot que

Code :

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

LR = Range("A65536").End(xlUp).Row

préfères

Code :

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

LR = Range("A" & rows.count).End(xlUp).Row

car la V2007 a plus de 100 000 lignes, au cas où....

Morceau de code

Code :

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

1
2
3
4
5
6
With ActiveSheet
   LR = .Range("A" & .Rows.Count).End(xlUp).Row
   For Each Cell In .Range(Cells(2, 2), Cells(LR, 2))
      If Cell.Value <> 0 Then Cell.Value = Cell.Value * k
   Next Cell
End With

[Runsh63]

Bonjour Messieurs,

Merci à tous les deux pour vos réponses très utiles et très bien expliquées.
Vous souhaitant une bonne journée !

Runsh

Re bonjour,

Maintenant j'ai un nouveau problème malheureusement avec le bout de code nouvellement écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
With ActiveSheet
 
    Dim k As Byte, LR As Long
    k = 1
    LR = .Range("A" & .Rows.Count).End(xlUp).Row
 
        For Each Cell In .Range(Cells(2, 2), Cells(LR, 2))
      If Cell.Value <> "" Then Cell.Value = Cell.Value * k
   Next Cell
End With

J'ai un message d'erreur "Type mismatch" et c'est ce bout de code qui est surligné en jaune :

Code :

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

Cell.Value = Cell.Value * k

D'où celà vient-il ? Comment le corriger SVP ?

Merci !

[casefayere]

Bonjour,
es-tu sur que Cell.Value est une valeur numérique ?

[Runsh63]

Non justement, ce sont des numéros de compte que j'exporte d'Access, dans lequel le champ "compte" est laissé en texte car certain étant de type 354/1 ou en encore 60221-23, je n'ai pas pu faire un CNum sur le champ sous peine de perdre les données.
Normalement, la manip' à faire en "manuel" sous Excel est de sélectionner tous les numéros de compte et de coller en valeur avec l'opération multiplier une cellule sur laquelle on a mis 1. Dans l'absolu, je peux faire cette macro en passant par l'enregistreur, mais j'ai lu dans les cours proposés par ce forum que c'est du développement "à la papa" et que ce n'est pas comme celà qu'on progresse. Je tâtonne beaucoup mais je me suis dit que le faire via une boucle pouvait être sympa et me faire progresser. L'embêtant c'est que je ne suis pas assez confirmé, d'où mon besoin d'aide toutes les deux minutes...