Message d'erreur

Bonjour, je fais appel a vous pour me venir en aide . j'ai un fichier avec lequel je souhaite gérer ma cave à vin. Lorsque je souhaite ajouter un nouveau millesime , je rentre les donnees dont j'ai besoin et losque je valide j'ai un message d'erreur La methode '_defaut de l'objet 'Range' a échoué . Merci à celui ou à celle qui pourra m'aider

Bonjour

Tu devrais regarder dans Formule >>Gestionnaire de noms >>>>>liste millésime

remplacer la formule existante par celle-ci

=Bdd_cave!$C$3:$C$500

Cordialement

Bonjour,

Pour ma part, j'ai essayé et ne suis pas arrivé au message d'erreur.

Mettez un point d'arrêt sur la première ligne de la macro, ouvrez le formulaire et faites une saisie d'une nouvelle entrée puis, validez, poursuivez le code en pas à pas, analysez le code au fur et à mesure de l'avancement jusqu'à ce que l'erreur se produise.

Sinon, quelle est la ligne où s'arrête le code lors de du message d'erreur?

Cdlt

Bonsoir Arturo83

Si j'ai bien compris c'est quand il rentre un nouveau millesime dans sa base de données qu'il a le problème

Dans le gestionnaire de noms la plage de la liste n'est pas assez longue.

Bonjour le fil,

Perso cela m'a planté carrément Excel

Pour un bon développement sans souci, il faut à minima :
1) Utiliser : Option Explicit
2) Déclarer toutes ses variables

Voici le code modifié

Option Explicit    ' Permet de plus facilement déboguer les projets

' Définir ici les variables utiles pour l'USF
Dim Col As Integer, Bas As Long

Private Sub BtnValider_Click()
  Dim Sht As Worksheet
  Dim DerLigne As Long
  ' Petite question
  If MsgBox("Confirmez-vous l'ajout de ce millésime ?", vbYesNo, "Confirmation") = vbNo Then Exit Sub
  ' Définir la feuille de travail
  Set Sht = Sheets("cave")
  DerLigne = Sht.Range("A456541").End(xlUp).Row + 1
  ' ajout des données concernant le domaine
  Sht.Cells(DerLigne, 11) = Me.CbbRegion.Value
  Sht.Cells(DerLigne, 1) = Me.CbbAppellation.Value & " " & Me.CbbClassement.Value & " " & Me.CbbClimat.Value & " " & Me.CbbMillesime.Value
  Sht.Cells(DerLigne, 2) = Me.CbbDomaine.Value
  Sht.Cells(DerLigne, 3) = Me.TxtNom.Value
  Sht.Cells(DerLigne, 12) = Me.TxtAdresse.Value
  Sht.Cells(DerLigne, 13) = Me.TxtCp.Value
  Sht.Cells(DerLigne, 14) = Me.TxtPortable.Value
  Sht.Cells(DerLigne, 15) = Me.TxtTel.Value
  Sht.Cells(DerLigne, 16) = Me.TxtMail.Value
  Sht.Cells(DerLigne, 17) = Me.TxtInternet.Value
  Sht.Cells(DerLigne, 4) = Me.TxtDateSaisie.Value
  Sht.Cells(DerLigne, 6) = Me.CbbCouleur.Value
  Sht.Cells(DerLigne, 7) = Me.CbbQuantite.Value
  Sht.Cells(DerLigne, 8) = Me.CbbEmplacement.Value & "." & Me.CbbNiveau.Value
  Sht.Cells(DerLigne, 9) = Me.TxtPrixU.Value
  Sht.Cells(DerLigne, 10) = Me.CbbApogee.Value
  Sht.Cells(DerLigne, 5) = Me.TxtCepage.Value
  ' Effacer la variable objet
  Set Sht = Nothing
End Sub

Et le fichier

Plus de souci à priori

@+

Bonjour Bruno

Je viens de faire un essai de ton fichier j'ai un beug ici

 Sht.Cells(DerLigne, 11) = Me.CbbRegion.Value

Bonsoir

Le tableau dans la feuille cave est mise en format tableau structuré, on pourrait faire le code en tenant compte du format du tableau aussi

Du coup plus besoin de définir la variable "derlign". On peut utiliser l'intruction Listadd

Sinon Pinte est un petit vigneron de Savigny je vois...

Cordialement

merci a tous pour vos reponses mais j'ai toujours le meme probleme

Bonjour phil107,

Merci de nous faire des copies d'écran du message et de la ligne surlignée en débogage

@+

Bonjour, j'ai modifié less codes pour valider mes données, ca a l'air de fonctionner. Encore merci pour vos aides