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