[VBA] : Précision sur "On error goto"
QuebecLibre
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'aimerai une petite précision sur le "On error goto [étiquette]".
J'ai un fichier dans lequel j'ai des doublons.
Pour les reconnaitres, j'ai placé le mot doublon dans la cellule des lignes étant/ayant un doublon avec une autre ligne.
Lorsque le mot "DOUBLON" est trouvé, les cellules vides de la lignes doublées sont remplacées par les cellules remplies de la ligne doublon. Ensuite la ligne doublon est supprimée.
Donc, apres chaque suppression, je vais avoir un #REF à la place du mot DOUBLON, d'ou une erreur.
Je voudrai lorsque cette erreur est trouvée, sauté de ligne en allant à l'étiquette "suivant". Hélas, il reste bloqué sur le "if" et ne descend pas sur le "On error goto".
Comment je dois m'y prendre pour qu'il passe au "On error goto" ?
J'aimerai une petite précision sur le "On error goto [étiquette]".
J'ai un fichier dans lequel j'ai des doublons.
Pour les reconnaitres, j'ai placé le mot doublon dans la cellule des lignes étant/ayant un doublon avec une autre ligne.
Lorsque le mot "DOUBLON" est trouvé, les cellules vides de la lignes doublées sont remplacées par les cellules remplies de la ligne doublon. Ensuite la ligne doublon est supprimée.
Donc, apres chaque suppression, je vais avoir un #REF à la place du mot DOUBLON, d'ou une erreur.
Je voudrai lorsque cette erreur est trouvée, sauté de ligne en allant à l'étiquette "suivant". Hélas, il reste bloqué sur le "if" et ne descend pas sur le "On error goto".
If Workbooks("TEST").Sheets("Feuil1").Cells(i, 45) = "DOUBLON" Then 'Colonne AS
On Error GoTo suivant
If Workbooks("TEST").Sheets("Feuil1").Cells(i + 1, 45) = "DOUBLON" Then
Comment je dois m'y prendre pour qu'il passe au "On error goto" ?
A voir également:
- [VBA] : Précision sur "On error goto"
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
2 réponses
Bonsoir,
Pour utiliser On Error Goto, il faut qu'il soit placé avant la commande qui risque de produire l'erreur :
Dans ton cas, je pense qu'il vaudrait mieux faire un test sur la valeur de la cellule avec IsError
@+
Pour utiliser On Error Goto, il faut qu'il soit placé avant la commande qui risque de produire l'erreur :
On Error Goto Suivant ' Lignes de codes Suivant: ' Lignes de codes On Error Goto 0 'Pour annuler la gestion d'erreurs
Dans ton cas, je pense qu'il vaudrait mieux faire un test sur la valeur de la cellule avec IsError
@+
