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 : Sélectionner tout - Visualiser dans une fenêtre à part
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