transfert du contenu d'un formulaire

[mcarjacker]

Bonjour à tous,

J'ai une macro qui me transfère des données d'une feuille à une autre, mais je n'arrive pas à transférer le contenu d'une liste déroulante.

Je pense que c'est dans la déclaration, mais je ne réussi pas à le faire correctement.

C'est ici la destination qui est concernée :



Sub PlanTraction()
Dim , P1, P2,lig As integer
Dim destination as string

poids = Range("d39")
volume = Range("e39")

If poids < 10000 And volume < 35000 Then

With Sheets("plan traction")

destination = .Range("d18")
P1 = .Range("c21")
P2 = .Range("E21")


End With

With Sheets("plan traction")
lig = .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

Cells(lig + 1, 2) = destination
Cells(lig + 1, 3) = P1
Cells(lig + 1, 4) = P2

End With

Else
MsgBox "chargement impossible"

End If


End Sub[/I][/I]

 

[kjin]

Re : transfert du contenu d'un formulaire

bonsoir,
Vois pas de liste déroulante !
Le fichier qui va bien permettrait de nous éclairé...surement
A+
kjin

 

[mcarjacker]

Re : transfert du contenu d'un formulaire

C'est ça le problème je ne sais pas comment déclarer une liste déroulante.

Dans la feuille plan de traction, il faut que la ville de destination se copie grâce au bouton camion 1 dans l'ajout de traction,

donc dans la macro plan de traction

 

[mcarjacker]

Re : transfert du contenu d'un formulaire

C'est ça le problème je ne sais pas comment déclarer une liste déroulante.

Dans la feuille plan de traction, il faut que la ville de destination se copie grâce au bouton camion 1 dans l'ajout de traction,

donc dans la macro plan de traction