Erreur dans la sortie entree

Bonjour je voudrai avoir de l'aide voici mon probleme quand j'essaye de effectuer une sortie ou une rentré j'ai une erreur quelque'un peut t'il verifier ? et j'aimerais supprimer aussi le indice vitesse , indice charge le modéle et aussi modifier la marque en eplacement sur excel

Bonjour Ali1212 et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum

Ainsi que sur les fonctionnalités du nouveau forum

Merci d'exprimer votre demande clairement SVP
Problème avec une sortie ou un entrée... de quoi, où, quel est le problème/message !?

Bonjour voici ma demande enfait ma question c'est a chaque fois que j'essaye de faire une sortie de stock j'ai une erreur qui s affiche run time error 13* type mismatch si quelqu'un peut resoudre le probleme s'il vous plait merci et ma 2éme question c'est de supprimer le indice vitesse , indice charge le modéle et aussi modifier la marque en eplacement quand on ajoute de stock sur pneus c'est pour cela que j'ai directement mits mon projet de excel si desous.

Re,

Désolé, mais je n'ai pas se problème une petite copie d'écran avec la ligne surlignée en jaune serait la bienvenue

A+

voici l'image je comprends rien j'ai fait pas mal de recherche mais je n'arrive pas a trouvé le probléme

Re,

C'est en cliquant sur enregistrer alors

dl = Worksheets("Entrée - sortie").Range("B" & Rows.Count).End(xlUp).Row

Et non

dl = Worksheets("Entrée - sortie").Range("b9999").End(xlUp).Rows

".Row" ne prends pas de "S"

A+

cool merci je recois plus de message mais maintenant quand j'enregistre le numero des pneus sur la ligne rien s'affiche la ligne saute en vide ? peut tu m'aider sur se coups merci. !!!

Re,

Mais rien ne fonctionne

Commence par corriger ce genre d'erreur

Voici c'est corige un bug mais la si tu choisi une autre ref sa ajoute comme meme pas, tu peut choisir plusieur article pour ajouter sa rajoute des case vide

Re,

Il y a des incohérences dans le code , d'où des lignes inscrites en contrebas

Le voici corrigé

Private Sub CommandButton2_Click()
  ' Variables Objet
  Dim Sht As Worksheet, LObj As ListObject
  Dim List_nombre As Long
  Dim Ligne As Long, Dl As Long

  List_nombre = Me.list_order.ListCount - 1
  If Me.list_order.ListCount >= 0 Then
    'demande confirmation
    If MsgBox(" voulez vous ajouter un mouvement?", vbYesNo) = vbYes Then
      Set Sht = Sheets("Entrée - sortie")
      Set LObj = Sht.ListObjects(1)
      For Ligne = 0 To List_nombre
        LObj.ListRows.Add
        Dl = LObj.HeaderRowRange.Row + LObj.ListRows.Count
        'insere infos
        Sht.Range("B" & Dl) = "test"
      Next Ligne
      Set LObj = Nothing: Set Sht = Nothing
      ThisWorkbook.Save
      Unload Add_pneumouv
    End If
  Else
    MsgBox "Pas de commande disponible"
  End If
End Sub

A+

Merci !!! sa fonctionne corectement

J’ai un soucis sur le bouton enregistrer.
Quand je click dessus la ligne s’ajoute mais il ya seulement Test qui est s’écrit dedans pouvez vous trouver une solution car j'arrive pas trouvé

?

Re,

Vous êtes sérieux là quand vous posez la question

Vous n'arrivez pas à trouver, vous ne devez pas chercher beaucoup je pense.
https://www.google.com/search?q=VBA+Excel+récupéré+données+d'une+listbox

On peut trouver ceci
https://forum.excel-pratique.com/excel/recuperer-les-donnees-dune-listbox-dans-un-userform-t97746.ht...

A+

je suis un débutant lool je vais voir :D meme si sa va me prendre des heure personne peut me le faire je pense pour des expert sa prends 2 minutes

Re,

C'est ça

Nota : Prendre des heures, je pense qu'il ne faut pas pousser

oke merci comme meme je vais essayer de trouvé mais je coprends rien .s

Re,

Il suffit de faire une boucle sur chaque colonne de la ListBox comme indiqué dans le post

Je n'irai pas plus en avant, désolé

okeey merci mais la j'ai trouvé voici mes voici mon list box ou je doit le coller ?

car j'ai essayé de mettre mets sa ne marche pas.

Function copy_with_repeat()
Dim LastRow As Long
LastRow=ThisWorkbook.Sheets("Entrée - Sortie").Range("B1000000").End(xlUp).Row
LastRow = LastRow + 1
With ThisWorkbook.Sheets("Entrée - Sortie")
.Range("C" & LastRow)= option_entree.Value
.Range("C" & LastRow)= option_sortie.Value
.Range("B" & LastRow)= txt_date.Value
.Range("D" & LastRow)= txt_facture.Value
.Range("E" & LastRow)= cbx_pneu.Value
.Range("H" & LastRow)= txt_nombre.Value
End With
End Function