Re : Probleme Pour Copier Une Listebox Dans Une Feuille De Mon Classeur + Autres Prob
bonjour Gcfrg,Hasco le forum
le code du bouton valider,supprime cbétage_change
Private Sub BnAfficher_Click()
If Me.CBtype.Value <> "" Then
With Me.ListBox1
.AddItem CBétage 'Me.Label14
.List(.ListCount - 1, 1) = Me.Label22
.List(.ListCount - 1, 2) = Me.TBpieceF.Value
.List(.ListCount - 1, 3) = Me.TBdesingnF.Value
.List(.ListCount - 1, 4) = Me.CBlargF.Value & "X" & Me.CBhautF.Value
.List(.ListCount - 1, 5) = Me.TBquantiF.Value
.List(.ListCount - 1, 6) = Me.TBprixunitF.Value
.List(.ListCount - 1, 7) = Me.TBprixtotalF.Value
If .ListCount > 2 Then
If .List(.ListCount - 1, 0) = CBétage Then .List(.ListCount - 1, 0) = ""
If .List(.ListCount - 1, 2) = TBpieceF Then .List(.ListCount - 1, 2) = ""
End If
End With
Else
MsgBox "pas de données fenêtre"
End If
If Me.CHKV.Value = True Then 'volet
If TBprixensembleFV <> "" Then
With Me.ListBox1
.AddItem CBétage 'Me.Label14
.List(.ListCount - 1, 1) = "Volet Roulant"
.List(.ListCount - 1, 2) = Me.TBpieceV.Value
.List(.ListCount - 1, 3) = Me.Label8
.List(.ListCount - 1, 4) = Me.CBlargV.Value & "X" & Me.CBhautV.Value
.List(.ListCount - 1, 5) = Me.TBquantiV.Value
.List(.ListCount - 1, 6) = Me.TBprixUTTCV.Value
.List(.ListCount - 1, 7) = Me.TBprixtotalTTCV.Value
If .ListCount > 2 Then
If .List(.ListCount - 1, 0) = CBétage Then .List(.ListCount - 1, 0) = ""
If .List(.ListCount - 1, 2) = TBpieceF Then .List(.ListCount - 1, 2) = ""
End If
End With
End If
End If
Me.CHKV.Value = False
Call EffaceTextBox(Me, "TBpieceF", "CBétage") 'module ModPourUsf
BnEnvoi.Enabled = True
BnAfficher.Enabled = TBquantiF <> "" And TBprixunitF <> "" And TBprixtotalF <> ""
End Sub
à bientôt