macro lente

[julienha]

bonjour, dans le fichier ci joint j'ai une macro qui me permet de copier en feuill1 les colonnes de la feuill2, en fonction du menu déroulant. Mais malheuresement cette macro est tres lente. y aurait t il une autre macro plus rapide, meme avec un bouton.


merci bcp

 

[Banzai64]

Re : macro lente

Bonjour

A voir

 

[Efgé]

Re : macro lente

Bonjour julienha, Banzai64,
Pas compris la même chose que Banzai64... alors je poste...
Cordialement

 

[Banzai64]

Re : macro lente

re

Désolé j'avais travaillé à l'envers

Merci Efgé

 

[kjin]

Re : macro lente

Bonjour, salut Banzaï 🙂,
Pas sûr d'avoir compris...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, T
If Target.Address <> "$A$5" Then Exit Sub
If Target.Value = "" Or Target.Count > 1 Then Exit Sub
Columns("D:E").Clear
With Sheets("Feuil2")
    Set c = .Rows(2).Find(Target.Value, , xlValues, xlWhole)
    If Not c Is Nothing Then
        T = .Range(.Cells(3, c.Column), .Cells(65000, c.Column + 1).End(xlUp)).Value
        ActiveSheet.Range("D12").Resize(UBound(T, 1), UBound(T, 2)) = T
    End If
End With
End Sub

A+
kjin