On Error Resume Next

Version imprimable

Bonjour tout le monde et merci messieurs les bénévoles
à l'aide d'un USF je récupère les données figurant sur une feuille Excel mais mon problème c'est lorsqu'il y a pas des cellules correspondante. Sur internet j'ai trouver que je dois mettre au début de mon code "On Error Resume Next" mais ça pas marcher et bloque le travail
voila mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton5_Click() Dim z As Long Dim Plage As Range On Error Resume Next If MsgBox("êtes vous sûr de vouloir enregistrer?", vbExclamation + vbYesNo) = vbYes Then Set Plage = Sheets("reglement").Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeConstants).Cells For z = Plage.Cells.Count To 1 Step -1 If Plage.Cells(z).Value = ComboBox1.Value Then Plage.Cells(z).EntireRow.Delete End If Next
comme vous constatez si il y a des données le code efface les anciens puis une autre partie du code insert les nv données...ça fonctionne s'il y a des données mais se bloque si est vide
merci d'avance

12/01/2015, 11h53
Marc-L

Bonjour, bonjour !

Copier / Coller n'est donc pas coder ‼

Mettre un point d'arrêt sur la ligne n°8 et vérifier dans la fenêtre des Variables locales la variable Plage,
comment apparaît-elle donc lorsqu'il n'y a pas de cellules correspondantes ?

__________________________________________________________________________________________________
Tous unis, tous Charlie
12/01/2015, 12h03
BENNASR

Merci monsieur de votre réponse
je vais joindre mon fichier et un une description
a l'aide de l'USF "ajout de contrat je saisie le nv contrat et j'enregistre sur excel et ça fonctionne
maintenant je vais faire des règlement sur ce meme contrat
je choisie le contrat mais le problème existe si il y a pas de cellule correspondante c'est a dire lors du premier reglement
merci d'avance
12/01/2015, 12h10
Marc-L

Citation:

Envoyé par Marc-L

Mettre un point d'arrêt sur la ligne n°8 et vérifier dans la fenêtre des Variables locales la variable Plage,
comment apparaît-elle donc lorsqu'il n'y a pas de cellules correspondantes ?

__________________________________________________________________________________________________
Tous unis, tous Charlie