Rapport de message :*
 

Re: comment copier une cellule (qui contient une formule) toutes les 3 lignes

Titre du sujet : Re: comment copier une cellule (qui contient une formule) toutes les 3 lignes
par Mytå le 04/03/2012 03:04:51

 Salut le forum

Cette macro devrait convenir
Sub CopyFormula()
Dim Ligne As Long

'Début en ligne 3 avec un saut de 3 cellules pour la recopie
    For Ligne = 3 To Cells(Rows.Count, "A").End(xlUp).Row Step 3
'Resize(2,1) »»» 2 lignes de 1 colonnes à recopier
        Cells(3, "H").Resize(2, 1).Copy Cells(Ligne + 3, "H")
           
    Next Ligne

End Sub  
Mytå