Bonjour,
J'ai besoin d'aide pour copier une plage de cellules vers un autre classeur.
Je n'arrive pas à copier les données contenues dans ma feuille source en A😛 à copier dans l'autre classeur en A😛.
Voici la macro:
Sub Bouton15_QuandClic()
'les 2 classeurs doivent être ouverts !!!
Dim cell As Range, RngSource As Range
Dim cellDest As Range, RngDestination As Range
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Données source")
Set RngSource = .Range("A1😛" & .Range("A65536").End(xlUp).Row)
End With
Windows("T2A.xls").Activate
With ActiveWorkbook.Worksheets("Feuille cible")
Set RngDestination = .Range("A1😛" & .Range("A65536").End(xlUp).Row)
End With
For Each cell In RngSource
For Each cellDest In RngDestination
If cellDest = cell Then
cellDest.Offset(0, 1) = cell.Offset(0, 1)
Exit For
End If
Next cellDest
Next cell
Application.ScreenUpdating = True
End Sub
Avec cette macro, la première cellule copiée en feuille source est en F, elle est copiée en B sur la feuille cible.
Une question subsidiaire, comment modifier la macro pour ouvrir, modifier, sauvegarder et refermer le classeur cible.
Merci.
J'ai besoin d'aide pour copier une plage de cellules vers un autre classeur.
Je n'arrive pas à copier les données contenues dans ma feuille source en A😛 à copier dans l'autre classeur en A😛.
Voici la macro:
Sub Bouton15_QuandClic()
'les 2 classeurs doivent être ouverts !!!
Dim cell As Range, RngSource As Range
Dim cellDest As Range, RngDestination As Range
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Données source")
Set RngSource = .Range("A1😛" & .Range("A65536").End(xlUp).Row)
End With
Windows("T2A.xls").Activate
With ActiveWorkbook.Worksheets("Feuille cible")
Set RngDestination = .Range("A1😛" & .Range("A65536").End(xlUp).Row)
End With
For Each cell In RngSource
For Each cellDest In RngDestination
If cellDest = cell Then
cellDest.Offset(0, 1) = cell.Offset(0, 1)
Exit For
End If
Next cellDest
Next cell
Application.ScreenUpdating = True
End Sub
Avec cette macro, la première cellule copiée en feuille source est en F, elle est copiée en B sur la feuille cible.
Une question subsidiaire, comment modifier la macro pour ouvrir, modifier, sauvegarder et refermer le classeur cible.
Merci.