Astuces Excel
  1. Astuces Excel
  3. Revenir à la boucle for du handheld d'erreur dans VBA
Intereting Posts
Modification de la reference de l'échelle nommée Copier le lien à partir du contenu de la cellule Erreur d'aide: Ajout aux plages à l'aide de Application.Union Les parameters Excel QueryTable ne lient pas les parameters Sql correspondant à deux colonnes en excel avec une légère différence dans l'orthographe Script Excel-Vba pour append plusieurs lignes dans les cellules après le nombre + dot char Enregistrer Cell.Address dans le tableau et l'utiliser comme variable dans la formule cellulaire Critères AutoFilter Utilisation de la masortingce (erreur) – Chaîne trop grande? Le moyen le plus simple d'get LibreOffice Calc ou Excel pour importer les dates de la date ISO8601 Trier datatables classées dans Excel tout en répertoriant les duplicates en tant que différents nombres entiers Utilisation d'une API dans Excel La définition d'un classur ne fonctionne pas correctement Capture de mot de passe basée sur les sélections sur formulaire Génération de dossiers et de files en fonction des données dans la feuille de calcul Comment remplir / compléter des cellules null / zéro avec un nombre fixe dans une table Excel?

Revenir à la boucle for du handheld d'erreur dans VBA

Comment revenir de Errorhandler dans VBA à la boucle? 

for x = 1 to 1000 On error goto errorhandler Sheets("Sheet1").Cells(x, "B") = x * Sheets("Sheet1").Cells(x, "A").Value continue: Next Exit sub Errorhandler: Sheets("Sheet1").Cells(x,"B") = "Error occured" Resume continue

Cela ne fonctionne pas. Je veux que, si une erreur se produit dans la boucle for, elle écrira dans la cellule "Erreur survenue", puis continue la boucle. Comment faire? 

 On Error GoTo Errorhandler 'put once, outside loop For x = 1 To 1000 'use value2 if you dont work with date/time Sheets("Sheet1").Cells(x, "B").Value2 = x * Sheets("Sheet1").Cells(x, "A").Value2 Next Exit Sub Errorhandler: Sheets("Sheet1").Cells(x, "B").Value2 = "Error occured" Resume Next '<< Answer to original question. The Resume to continue label should also work

Votre code fonctionne lorsque je le teste, alors je ne suis pas sûr de savoir quel problème spécifique vous rencontrez, mais vous pouvez envisager de refactoriser le code pour éviter les instructions GoTo , ce qui améliorera sa lisibilité: 

 Sub foo() Dim x As Long Dim val For x = 1 To 1000 On Error Resume Next val = x * Sheets("Sheet1").Cells(x, "A").Value If Err.Number <> 0 Then Sheets("Sheet1").Cells(x, "B") = "Error occured" Else: Sheets("Sheet1").Cells(x, "B") = val End If On Error GoTo 0 Next End Sub