Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour à tous,
Actuellement j'utilise ce code :
Private Sub Txt_code_Change()
Dim DL As Integer
Dim list_nombre As Integer
Dim ligne As Integer
If Txt_code <> "" Then
Sheets(4).ListObjects(1).ListRows.Add
DL = Sheets(4).Range("b9999").End(xlUp).Row
Sheets(4).Range("b" & DL) = Me.Txt_code...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.