Copier ligne determiné d'une colonne "marqué"

bonjour,

tous es marqué dans le fichier ci joint

cordialement merci d'avance

bonne journée

Bonjour,

Une proposition

A+

C est super merci j'ai a peu pres compris le fonctionnement

Par contre j'ai essayer de transposer la macro dans mon vrai fichier

j'ai bien copier la macro dans la feuille et non dans un module

j'ai creer un "bouton" mais comment je lui affecte la macro en question ?

merci d'avance et merci de ton aide

Il faut que tu insères un bouton de commande (Contrôle ActiveX) et que tu lui donnes le nom "Copier" (clic droit > Propriétés > Name).

A+

C EST SUPER merci !!

bon week end à toi

En passant a t on moyen "d'optimiser" la durée de la macro ?

La elle gère environ un peu plus de 300 lignes mais elle dure plus ou moins 2mn 2mn30, à ton//votre avis ?

Tu peux tenter le blocage du recalcul automatique

Private Sub Copier_Click()
Dim Plages
Dim Ligne As Long
Dim Col As Integer, L As Integer
Dim Cel As Range
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Plages = Array("5:8", "10:11", "13:14")
    Col = Cells(2, 1).End(xlToRight).Column
    Cells(3, Col + 1) = "Actual"
    Cells(3, Col + 1).Font.ColorIndex = xlAutomatic
    Cells(2, Col).Clear
    For L = 0 To UBound(Plages)
        For Each Cel In Application.Intersect(Rows(Plages(L)), Columns(Col))
            Cel.Offset(0, 1).Formula = Cel.Formula
            Cel.AutoFill Destination:=Cel.Resize(1, 2), Type:=xlFillDefault
        Next Cel
    Next L
    Application.Calculation = xlCalculationAutomatic
End Sub

A+

nickel ca repond parfaitement la macro ne met que 3 ou 4s merci

Par contre qu es que ca implique de ne plus recalculer derrière ? Pour ne pas me faire surprendre bettement

Tu peux constater une lenteur lorsqu'un classeur contient de nombreuses formules car à chaque changement quelconque d'une cellule, Excel recalcule tout.

Il est alors intéressant de mettre en début de macro l'instruction de blocage du recalcul automatique avec l'instruction

Application.Calculation = xlCalculationManual

Il faut juste penser à le remettre à automatique en fin de macro avec l'instruction:

Application.Calculation = xlCalculationAutomatic

A+

ok merci je comprend la lenteur vu que le fichier doit contenir plus de 30 macros 10 000 lignes et un nb incalculable de formules ^^"

En tt cas merci beaucoup je clos la demande

bonne fin de journée