XL 2010 VBA - Macro Copier une selection en dessous d'un Test

sp0ty · 21 Février 2018

Bonjour,

J'ai deux fichiers : A (Données) et B (Synthèse)
Mon objectif est de copier les données de mon tableau du fichier A,
Et insérer dans le fichier B, à chaque fois qu'une cellule nommée "Synthèse" est détectée, en dessous de cette cellule mon tableau copié.

J'ai une macro existante qui se termine par Selection.Copy. (Fichier B)

La ou je pêche, étant débutant dans le VBA c'est de créer une boucle pour pouvoir insérer (Coller) mes données en dessous à chaque fois que Synthèse apparait.

J'ai éssayé des If avec Find, Range, adress sans succès...
Est-ce vous pouvez m'aider svp?
sp0ty

pierrejean · 21 Février 2018

Bonjour Spoty

Macro a mettre dans B
Sub copie()
Set wA = Workbooks("A.xlsx")
Set wB = ThisWorkbook
For n = 1 To Range("B" & Rows.Count).End(xlUp).Row
If Range("B" & n) = "Synthèse" Then
wA.Sheets("Feuil1").Range("B2:F6").Copy Destination:=Range("B" & n + 1)
End If
Next
End Sub

Lone-wolf · 21 Février 2018

Bonjour pierrejean , sp0ty , le Forum

Un autre exemple plus ou moins identique

VB:

Option Explicit

Sub test()
Dim plage As Range, derlig As Long, i As Long
Dim WbA As Workbook, WbB As Workbook

    Set WbA = Workbooks.Open("A.xlsx")

    With WbA.Sheets("Tableaux")
        Set plage = .Range("b2:f6")
    End With

    Set WbB = ThisWorkbook

    With WbB.Sheets("Synthèse")
        derlig = .Range("b" & Rows.Count).End(xlUp).Row

        For i = 4 To derlig 
            If .Cells(i, 2) = "Synthèse" Then plage.Copy .Cells(i + 1, 2)
        Next i
    End With

End Sub

Attention! Une fois le tableau copié il faut éffacer "Synthèse".

sp0ty · 21 Février 2018

Parfait, les 2 ont été testés et marchent,

Petite préférence pour la 1ere solution que j'ai un peu modifié avec mes données d'entrées.

Merci Beaucoup!!!!!

XL 2010 VBA - Macro Copier une selection en dessous d'un Test

sp0ty

XLDnaute Nouveau

Pièces jointes

pierrejean

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

sp0ty

XLDnaute Nouveau

Discussions similaires