XL 2010 vba pour copier une plage de cellules variable

job75 à dit:

Bonjour anbar,

Exécutez cette macro :

VB:

Sub Copier_ACIER()
Application.ScreenUpdating = False
On Error Resume Next 'sécurité
Rows(1).Insert 'insère une ligne pour décaler le tableau
With Feuil2 'CodeName de la feuille de destination
    .Cells.Delete 'RAZ
    Range(Cells.Find("ACIER", , xlValues).MergeArea, Cells.Find("ALU")(0)).Copy .[A1]
    .Activate 'facultatif
End With
Rows(1).Delete 'supprime la ligne insérée
End Sub

A+

Cliquez pour agrandir...

laurent3372 à dit:

J'ai été doublé par @job75

Voici ma solution qui suppose qu'on insère une ligne vide avant chaque titre de section.
On peut passer une variable en paramètre à la fonction.

VB:

Option Explicit
Private Sub CommandButton1_Click()
    Worksheets("Feuil2").UsedRange.ClearContents        'On effaca le contenu
    getRange("ALU", 11).Copy Destination:=Worksheets("Feuil2").Range("A1")
End Sub

Function getRange(name As String, nbCol As Long) As Range
    Dim derLigne As Range
   
    Set getRange = Range(name).Resize(1, 1)
    Set derLigne = getRange.End(xlDown)
    Set getRange = getRange.Resize(derLigne.Row - getRange.Row + 1, nbCol)
End Function

Cliquez pour agrandir...