Erreur de syntaxe
mornebulle
Messages postés
1
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
bonjour à toutes et tous,
j'ai créé la macro ci dessous :
Sub oct()
If [as27] = 1 Then
[au27].PrintPreview
[as27] = "OK"
[ao27].Copy
[ao27].PasteSpecial Paste:=xlPasteValues
[ap27].Copy
[ap27].PasteSpecial Paste:=xlPasteValues
[am27] = ""
[an27] = ""
Dim plage As Range
Set plage = ThisWorkbook.Worksheets("stock").Range("ag27:ag300")
Monchiffre = [ao27]
For Each cell In plage
If cell.Value = Monchiffre Then
cell.Value = 0
End If
Next cell
Monchiffre = [ap27]
For Each cell In plage
If cell.Value = Monchiffre Then
cell.Value = 0
End If
Next cell
End If
End Sub
Elle fonctionne très bien, mais j'ai essayé de faire une boucle de la ligne 27 à la ligne 300 (avec la commande for ), j'ai des erreurs de syntaxe.
Je vous remercie d'avance pour votre aide
j'ai créé la macro ci dessous :
Sub oct()
If [as27] = 1 Then
[au27].PrintPreview
[as27] = "OK"
[ao27].Copy
[ao27].PasteSpecial Paste:=xlPasteValues
[ap27].Copy
[ap27].PasteSpecial Paste:=xlPasteValues
[am27] = ""
[an27] = ""
Dim plage As Range
Set plage = ThisWorkbook.Worksheets("stock").Range("ag27:ag300")
Monchiffre = [ao27]
For Each cell In plage
If cell.Value = Monchiffre Then
cell.Value = 0
End If
Next cell
Monchiffre = [ap27]
For Each cell In plage
If cell.Value = Monchiffre Then
cell.Value = 0
End If
Next cell
End If
End Sub
Elle fonctionne très bien, mais j'ai essayé de faire une boucle de la ligne 27 à la ligne 300 (avec la commande for ), j'ai des erreurs de syntaxe.
Je vous remercie d'avance pour votre aide
A voir également:
- Erreur de syntaxe
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur de lecture reconnecté en 3s - Forum TV & Vidéo
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
1 réponse
Bonjour,
En dehors du fait qu'une seule boucle suffit, pas d'erreur
En dehors du fait qu'une seule boucle suffit, pas d'erreur
Sub oct()
Dim plage As Range
If [AS27] = 1 Then
[AU27].PrintPreview
[AS27] = "OK"
[AO27].Copy
[AO27].PasteSpecial Paste:=xlPasteValues
[AP27].Copy
[AP27].PasteSpecial Paste:=xlPasteValues
[AM27] = ""
[AN27] = ""
Set plage = ThisWorkbook.Worksheets("stock").Range("AG27:AG300")
Monchiffre1 = [AO27]
Monchiffre2 = [AP27]
For Each cell In plage
If cell.Value = Monchiffre1 Or cell.Value = Monchiffre2 Then
cell.Value = 0
End If
Next cell
End If
End Sub
