Facturation avec listes déroulantes VBA avec fichier

Bonjour à tous, j'ai oublié le fichier en PJ dans le message précédent.

je souhaiterais remplir une facture avec des produits que l'on sélectionne avec une liste déroulante, ça fonctionne, mais je ne parviens pas à remplir la facture en passant à la ligne suivante automatiquement (j'ai fait la même chose pour la liste des clients avec le code

suivant:

Dim no_ligne As Integer

no_ligne = Range("c65536").End(xlUp).Row

Cells(no_ligne, 3) = ComboBox1.Value

et là ça marche parce que le reste de la feuille est vide. Il faudrait que seules les lignes 41 à 53 soient prises en compte et non toute la page.

Merci pour votre aide.

Dul

Bonjour

Remplaces la macro actuelle par celle-ci

Private Sub CommandButton2_Click() 'valider
Dim no_ligne As Integer

  Sheets("Facturation").Select
  If Range("C53") <> "" Then
    MsgBox "Plus de ligne libre"
    Exit Sub
  End If
  no_ligne = Range("C53").End(xlUp).Row + 1
  Cells(no_ligne, 3) = ComboBox1.Value
  Unload Me
End Sub

Bonjour Banzai64,

Merci pour ta solution, elle fonctionne en plaçant le nouveau produit à la ligne suivante, mais comment indiquer que la première ligne est la ligne 41 lorsque c'est le premier produit saisi, car dans ce cas le produit est placé en C2 et suivantes. En PJ le fichier modifié avec ton code.

Cdlt

Dul

Bonjour

Modifies la macro

Private Sub CommandButton2_Click() 'valider
Dim no_ligne As Integer

  Sheets("Facturation").Select
  If Range("C53") <> "" Then
    MsgBox "Plus de ligne libre"
    Exit Sub
  End If
  no_ligne =Application.Max(41, Range("C53").End(xlUp).Row + 1)
  Cells(no_ligne, 3) = ComboBox1.Value
  Unload Me
End Sub

Merci beaucoup, c'est parfait!