transfert du contenu d'un formulaire

mcarjacker

XLDnaute Nouveau
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]
 

mcarjacker

XLDnaute Nouveau
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
 

Pièces jointes

  • Camionnage.xlsm
    197.7 KB · Affichages: 37

mcarjacker

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
311 712
Messages
2 081 802
Membres
101 819
dernier inscrit
lukumubarth