[Débutant] Aide pour "Object required"

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:

---

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

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:

---

If Cell.Value <> 0 Then

---

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

Code:

---

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

---

préfères

Code:

---

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

---

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

Morceau de code

Code:

---

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

---

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:

---

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:

---

Cell.Value = Cell.Value * k

---

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

Merci !

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

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...

comme je ne comprends pas et qu'il s'agit de texte, s'il faut mettre "1" en fin de cellule, :

Code:

---

Cell.Value = Cell.Value & k

---

ou avec espace

Code:

---

Cell.Value = Cell.Value & " " & k

---

Bonjour,
A priori, multiplier par 1 une chaîne de caractères contenant des / ou des - ne permettra pas de la convertir en nombre...
Voici un bout de code qui peut éliminer les caractères non numériques du Cell.Value.
Déclarations en début de procédure :

Code:

---

1 2	Dim strCompte as String Dim intCompteur as Integer

---

Dans le code :

Code:

---

1 2 3 4 5 6 7 8 9 10

For Each Cell In .Range(Cells(2, 2), Cells(LR, 2)) strCompte = "" If Cell.Value <> "" Then For intCompteur = 1 To Len(Cell.Value) If IsNumeric(Mid(Cell.Value, intCompteur, 1)) Then strCompte = strCompte & Mid(Cell.Value, intCompteur, 1) End If Next intCompteur End If Next Cell

---

Est-ce que le résultat est correct ?

Merci pour ce bout de code tedo01, mais j'exprime trop mal mon but.
Mes numéros de comptes étant tous au format texte, ce que je veux est les convertir au format standard. Les numéros de compte contenant des "/" ou des "-" sont corrects, et quand je fais la manip de tous multiplier par 1, ça ne change rien pour ces comptes là, mais pour ceux étant du numérique au format texte, ça me les convertit bien en standard.
Vous prenez pas la tête, je vais me débrouiller autrement.
Merci pour vous être penché sur le sujet et avoir fait votre possible pour comprendre la finalité :-)