XL 2013 Erreur si vide

[Appo1985]

Bonjour .
J’ai pu adapter les codes qui permettent de faire une recherche intuitive à mon userform

Cependant il y a toujours deux erreurs que je voudrais que vous m’aidiez à corriger.

En effet, premièrement quand je supprime tous les données de la feuille tout en laissant seulement la première ligne (l’entête) il y a un message d’erreur qui s’affiche à l’ouverture du userform.

Deuxièmement, quand j’efface le contenu du combobox1, il y a aussi un message d’erreur. Je voudrais donc si possible ne pas autoriser l’effacement du contenu du combobox1 ou a défaut une autre solution pour éviter l’erreur.
ci-joint le fichier
Merci par avance

 

[patty58]

Bonjour Appo1985, bonjour à tous
Dans ton module1 :

Sub Rectangleàcoinsarrondis1_Cliquer()
Set f = Sheets("BDD")
   If Application.CountA(f.Range("A:A")) = 1 Then
       MsgBox "BDD vide"
       Exit Sub
   End If

UserForm2.Show
End Sub

Puis dans le code Combobox1_Change , en première ligne:

If Me.ComboBox1 = "" Then Exit Sub

Bonne journée

 

[sylvanu]

Bonjour Appo, Patty,
Un essai en PJ, avec :
Dans UserForm_Initialize :

DL = f.[a65000].End(xlUp).Row
If DL = 1 Then Exit Sub ' Car BDD vide

Dans ComboBox1_Change :

If Me.ComboBox1 = "" Then Exit Sub ' Car Combobox vide

 

[Appo1985]

Bonjour Appo1985, bonjour à tous
Dans ton module1 :

Sub Rectangleàcoinsarrondis1_Cliquer()
Set f = Sheets("BDD")
   If Application.CountA(f.Range("A:A")) = 1 Then
       MsgBox "BDD vide"
       Exit Sub
   End If

UserForm2.Show
End Sub

Puis dans le code Combobox1_Change , en première ligne:

If Me.ComboBox1 = "" Then Exit Sub

Bonne journée

Merci.
Pour le combobox ça marche parfaitement.
Pour l'ouverture du userform ça marche : erreur '424'
Objet requis

 

[patty58]

Bonjour Appo1985, sylvanu

Chez moi, cela marche nickel.
Eventuellement renvoie ton fichier ou as-tu vu ce que sylvanu t'a dit ?
A plus

 

[Appo1985]

Bonjour Appo, Patty,
Un essai en PJ, avec :
Dans UserForm_Initialize :

DL = f.[a65000].End(xlUp).Row
If DL = 1 Then Exit Sub ' Car BDD vide

Dans ComboBox1_Change :

If Me.ComboBox1 = "" Then Exit Sub ' Car Combobox vide

Merci bien.
Il ya un autre problème.
Si on supprime les données, même l'entête disparaît au niveau du listebox( ce n'est pas grave)
Si on écrit maintenant une ligne en dessous de l'entête sur la feuille, un message d'erreur s'affiche à l'ouverture du userform

 

[sylvanu]

Tout est lié, s'il n'y a pas d'enregistrement votre offset(-1) pose problème.
J'ai pallié avec :

titre = Application.Index(f.Range("A2:F" & DL + 1).Offset(-1).Value, 1)

Et pour les titres j'ai pallié en prenant DL=2 lorsque DL=1

 

[Appo1985]

Bonjour Appo, Patty,
Un essai en PJ, avec :
Dans UserForm_Initialize :

DL = f.[a65000].End(xlUp).Row
If DL = 1 Then Exit Sub ' Car BDD vide

Dans ComboBox1_Change :

If Me.ComboBox1 = "" Then Exit Sub ' Car Combobox vide

Effectivement ça résoud bien le problème.
Merci grandement pour l'aide.
Merci bien @patty58

 

[patty58]

Contente que ton problème soit résolu.
Sylvanu t'a bien aidé aussi.
Bonne soirée à tous