Copier une plage sur feuil1 en fonction d'une cellule feuil2

[starz]

Bonjour,

J'utilise depuis longtemps cette macro :

Sub Copie()
    Dim rOF As Integer
    Dim rCF As Integer
    Dim sOF As Worksheet
    Dim sCF As Worksheet

    Set sOF = Worksheets("RECAP")
    Set sCF = Worksheets("Feuil1")
   
    rCF = 3

    For rOF = 2 To 10000
        If sOF.Cells(rOF, 8).Text = "2" Then
            sOF.Range(sOF.Cells(rOF, 1), sOF.Cells(rOF, 1)).Copy sCF.Cells(rCF, 1)
            rCF = rCF + 1
        End If
    Next
    Application.CutCopyMode = False
End Sub

mais j'aimerais la modifier ( je ne sais pas faire ) pour obtenir le résultat suivant :

Copier une plage de cellule situé en [A1:A196] de la feuille RECAP si la valeur dans la plage [AF1:AF196] est égale

à la valeur situé sur la feuil1 en A3 puis

coller le résultat sur la plage [A9:A50] de la Feuil1.


Merci

 

[skoobi]

Re : Copier une plage sur feuil1 en fonction d'une cellule feuil2

Bonjour,

les tailles entre la plage de copie et celle de déstination ne sont pas les mêmes (A1:A196 -> A9:A50) 196 cellules pour 42, donc ?!?!

 

[starz]

Re : Copier une plage sur feuil1 en fonction d'une cellule feuil2

oups en effet erreur de ma part !
ce sont les memes plages

 

[skoobi]

Re : Copier une plage sur feuil1 en fonction d'une cellule feuil2

Re,

quelque chose comme ça:

If sOF.[AF1].Value = Sheets("Feuil1").[A3].Value Then sOF.[A1:A196].Copy Sheets("Feuil1").[A9]