Problème transmission formulaire vers Excel

Bonjour à tous,

J'ai un petit soucis de transmission de formulaire vers Excel.

J'ai la possibilité d'avoir des donnée dans un combobox et dans une textbox et je souhaite selon ce qui est complété l'envoyer dans une cellule d'une colonne exemple en J et qui s'incrémente a chaque fois.

Il est donc possible d'avoir soit des données dans cb6 soit dans T5 ou de ne pas avoir de données.

Voici mon code :

Dim ligne As Long

Sheets("BD").Select 'sélectionner la feuille du bon classeur
ligne = Range("A65536").End(xlUp).Row + 1 'se mettre dans ligne de la colonne A dans la première case vide

If Cb6.ListIndex <> 0 Then
 Range("J" & ligne).Value = Cb6.Value
 ElseIf T5 <> "" Then
 Range("J" & ligne).Value = T5.Value
End If

Bien cordialement,

Bonjour,

ça ne serait pas ça plutôt ?

P.

If Cb6.ListIndex <> 0 Then
 Range("J" & ligne).Value = Cb6.Value
End If
If T5 <> "" Then
 Range("J" & ligne).Value = T5.Value
End If

Non sa ne marche toujours pas.

Enfin c'est surtout s'il y a valeur dans la combobox elle ne se met pas dans le tableau excel ...

Sans fichier...

Boule de cristal en panne

P.

Je viens de créer un petit fichier test je le transmet

Je laisse ma place, 21 juillet oblige et de plus, les userform, je n'utilise jamais ...

P.

Bonjour,

Quelqu'un d'autre pour mon soucis ?

Merci Patrick1957 pour ton aide.

Je viens de réussir a trouver un truck qui me convient.