pb macro

S

steve

Guest
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
 
S

steplof

Guest
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
 

Pièces jointes

  • macro_capricieuse.xls
    28.5 KB · Affichages: 39

Discussions similaires

Réponses
3
Affichages
550

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof