Bonjour,
je voudrais savoir si c'ete possible d'ameliorer mon code car la ce n'est que une petite partie, j'ai 300 ligne comme sa.
Je pense que ce soit possible avec une boucle for (je vois comment faire en C mais pas en VBA ) . Si quelqu'un a une idée
Merci
je voudrais savoir si c'ete possible d'ameliorer mon code car la ce n'est que une petite partie, j'ai 300 ligne comme sa.
Je pense que ce soit possible avec une boucle for (je vois comment faire en C mais pas en VBA ) . Si quelqu'un a une idée
Merci
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 = "\\Angfs1\data\TKAF\R01\A427\_Commun-Agence\GENERAL\Dossier Camille\pda\"
Fichier = "pda.xls"
'***************************************
Application.ScreenUpdating = False
Set wk = Workbooks.Open(Chemin & Fichier)
Set shtbase = ThisWorkbook.Worksheets("base travaux")
Set shtpda = wk.Worksheets("pda")
shtbase.Range("C11,D11,E11,F11,G11,H11,N11,S11").Copy
shtpda.Range("A1").PasteSpecial
If shtbase.CheckBox8.Value = True Then
shtbase.Range("C12,D12,E12,F12,G12,H12,N12,S12").Copy
shtpda.Range("A2").PasteSpecial
End If
If shtbase.CheckBox9.Value = True Then
shtbase.Range("C13,D13,E13,F13,G13,H13,N13,S13").Copy
shtpda.Range("A3").PasteSpecial
End If
If shtbase.CheckBox10.Value = True Then
shtbase.Range("C14,D14,E14,F14,G14,H14,N14,S14").Copy
shtpda.Range("A4").PasteSpecial
End If
If shtbase.CheckBox11.Value = True Then
shtbase.Range("C15,D15,E15,F15,G15,H15,N15,S15").Copy
shtpda.Range("A5").PasteSpecial
End If
If shtbase.CheckBox12.Value = True Then
shtbase.Range("C16,D16,E16,F16,G16,H16,N16,S16").Copy
shtpda.Range("A6").PasteSpecial
End If
end sub