Discussion :

[BENNASR]

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

[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

[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

[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