chaelie2015
XLDnaute Accro
Bonsoir
je souhaite encore développer le code de PAF ( Merci) ( le lien :https://www.excel-downloads.com/threads/transfere-copier-renommer.227757/)
ci dessous le code complet
la partie concernée est
je souhaite ajouté d'autre plages et les limitées
la 1 plage est de B25:B40
la 2eme plage de B47:B56
et la 3 eme plage de B58:B67
Salutations
je souhaite encore développer le code de PAF ( Merci) ( le lien :https://www.excel-downloads.com/threads/transfere-copier-renommer.227757/)
ci dessous le code complet
PHP:
Private Sub CommandButton6_Click()
Dim DerLig As Integer, NumLig As Integer, WCible As Worksheet, TabTmp, FeuilleExistante
Application.ScreenUpdating = False
Sheets("Canevas").Visible = True
With Worksheets("FNA")
'vérifie que la feuille à créer n'existe pas
FeuilleExistante = IsError(Evaluate("='" & .Range("T10") & "'!A1"))
If Not FeuilleExistante Then
MsgBox " impossible de poursuivre. La feuille " & .Range("T10") & " existe déjà"
Exit Sub
End If
'Création nouvelle feuille
Worksheets("Canevas").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = .Range("T10")
Set WCible = ActiveSheet
MsgBox " Une Copie de la Note " & .Range("T10") & " a été crée."
WCible.Visible = xlVeryHidden
' Copie des données
DerLig = .Range("B" & Rows.Count).End(xlUp).Row
TabTmp = .Range("B25:B" & DerLig)
WCible.Range("B14").Resize(UBound(TabTmp)) = TabTmp
'copie des différentes cellules
WCible.Range("D2") = .Range("E14")
WCible.Range("E4") = .Range("E15")
WCible.Range("E6") = .Range("E13")
WCible.Range("E8") = .Range("M17")
WCible.Range("K8") = .Range("Q22") '
WCible.Range("B10") = .Range("T10")
WCible.Range("H10") = .Range("T9")
WCible.Range("E12") = .Range("T20")
'..... à compléter
End With
Sheets("Canevas").Visible = xlVeryHidden
Application.ScreenUpdating = True
CommandButton_valider_note.Visible = True
End Sub
la partie concernée est
PHP:
' Copie des données
DerLig = .Range("B" & Rows.Count).End(xlUp).Row
TabTmp = .Range("B25:B" & DerLig)
WCible.Range("B14").Resize(UBound(TabTmp)) = TabTmp
la 1 plage est de B25:B40
la 2eme plage de B47:B56
et la 3 eme plage de B58:B67
Salutations
Dernière édition: