pb macro

[steve]

Bonjour la macro bloque dans worksheet

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = [e4]
If Target.Address = "$A$1" Then
Range("AD8:AN8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FRANCK").Select
Range("A9:K9").Select 'elle bloque la?
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("OLIVIER").Select
Application.CutCopyMode = False
Range("E2:F3").Select

End Select
End If
End Sub

merci d'avance

 

[steplof]

Salut,

Il me semble bizarre ton prob, mais bon les experts en vba auront ptetre une explication rationnelle à te donner,
j'ai réécrit ta macro en mettant les instructions dans un module macro1
Ton Selection change devient:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = [e4]
If Target.Address = "$A$1" Then
macro1

'End Select ça c'était en trop pour cette partie du code en tout cas
End If
End Sub

et là ça semble marcher, hasard ou logique???????

voir fichier joint si correspond à ce que tu voulais obtenir.

steplof

 

[steplof]

Le même un peu nettoyé, c macro2 qui s'exécute en fait.

Bonne journée

Steplof