j'y comprends plus rien : copier avec condition

[dj.run]

Bonjour à tous,

J'y comprends plus rein,
sur une simple expression comme ça, je ne trouve pas l'erreur.

cela me renvoit une erreur :

sur range("E2:F51").select
"la methode select de la classe range à échoué "


Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim CellChange As Range
Set CellChange = Range("B1")

If Not Application.Intersect(CellChange, Range(Target.Address)) _
Is Nothing Then

If Range("b1").Value = "GEL_CENTER" Then

Application.ScreenUpdating = False

Sheets("SALARIES").Activate
Range("E2:f51").Select
Selection.Copy
Sheets("TAB GEL CENTER").Activate
Range("A5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
End If

Application.ScreenUpdating = True

End Sub

si quelqu'un sait d'ou vient l'erreur, je l'en remercie d'avance de me le faire savoir.

merci à tous

dj.run

 

[ZON]

Bonsoir à tous,

Dj.run VBA n'aime pas trop les select, essaie ceci:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim CellChange As Range
Set CellChange = Range("B1")

If Not Application.Intersect(CellChange, Range(Target.Address)) _
Is Nothing Then

If Range("b1").Value = "GEL_CENTER" Then

Application.ScreenUpdating = False

Sheets("SALARIES").Range("E2:f51").Copy
Sheets("TAB GEL CENTER").Range("A5").Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
application.cutcopymode=false
End If
End If

Application.ScreenUpdating = True

End Sub


A+++

 

[ZON]

Bonsoir à tous,


Dj.run, comme Jean Marie me l'a fait remarqué sur le chat il y a une erreur:
remplacer Sheets("TAB GEL CENTER").Range("A5").Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _


par

Sheets("TAB GEL CENTER").Range("A5").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _


A+++

 

[dj.run]

Bonjour à toutes et à tous,

merci zon, pour tes conseils, mais entre temps, j'avais trouvée la solution sur un exemple du forum .

merci encore,

@+

dj.run