Export ligne dans autre classeur si checkbox coché

teamtat · 8 Juin 2010

Bonjour,
Je souhaite exporté des lignes vers un autre classeur
les lignes a exportés sont selectionner grace a des checkbox
Une fois que l'on a selectionné les lignes a exporté, on clique sur un bouton et les lignes coché se retrouve dans le nouveau classeur
je sais pas si c'est trés clair, je joint un fichier exemple
Merci

teamtat · 9 Juin 2010

Re : Export ligne dans autre classeur si checkbox coché

Personne n'a d'idée ?

Code:

Private Sub CommandButton1_Click()

If CheckBox1.Value = True Then
Range("C2").Select
Selection.Copy
Workbooks.Open Filename:="C:\Documents and Settings\peyret\Bureau\pda.Xls"
Workbooks("pda.xls").Worksheets("feuil1").Range("C2").Select
Selection.Paste
Else
Exit Sub
End If

End Sub

Quelqu'un a une idée pk cela ne fonctionne pas ?

teamtat · 9 Juin 2010

Re : Export ligne dans autre classeur si checkbox coché

Grace a ce code j'ai réussi a faire ce que je voulais
je voudrais savoir si je pouvais le simplifier ?
Comment coller dans le classeur de destination sur la prochaine ligne vide ?

Code:

Sub export()

Dim Chemin As String, Fichier As String
Dim wk As Workbook
Dim feuil1 As Variant, shtpda As Variant

'*******Variable à définir**************
Chemin = "C:\Documents and Settings\peyret\Bureau\"
Fichier = "pda.xls"
'***************************************
Application.ScreenUpdating = False


Set wk = Workbooks.Open(Chemin & Fichier)
Set feuil1 = ThisWorkbook.Worksheets("Feuil1")
Set shtpda = wk.Worksheets("pda")


If feuil1.CheckBox1.Value = True Then
feuil1.Range("C2,D2,E2,F2,G2,H2,N2,S2").Copy
shtpda.Range("A1").PasteSpecial
End If

If feuil1.CheckBox2.Value = True Then
feuil1.Range("C3,D3,E3,F3,G3,H3,N3,S3").Copy
shtpda.Range("A2").PasteSpecial
End If

If feuil1.CheckBox3.Value = True Then
feuil1.Range("C4,D4,E4,F4,G4,H4,N4,S4").Copy
shtpda.Range("A3").PasteSpecial
End If

If feuil1.CheckBox2.Value = True Then
feuil1.Range("C5,D5,E5,F5,G5,H5,N5,S5").Copy
shtpda.Range("A4").PasteSpecial
End If


End Sub

Export ligne dans autre classeur si checkbox coché

teamtat

XLDnaute Occasionnel

Pièces jointes

teamtat

XLDnaute Occasionnel

teamtat

XLDnaute Occasionnel

Discussions similaires