Rapport de message :*
 

Bug avec code VBA lors d'une copie

Titre du sujet : Bug avec code VBA lors d'une copie
par ascal44 le 29/05/2008 21:57:35

Rebonsoir, voilà lorsque je change de feuille j'ai une macro qui recopie certaines valeures sur cette feuille.
Or une erreure se produit à ce moment là : ' Erreur d'exécutione '13' incompatibilité de type
?>

Option Explicit
Dim MaValeur 
As Variant
Private Cell As Variant
Private Cel As Variant
Private As Variant
Private As Variant

Private flag As Boolean





Private Sub commandbutton1_Click()
Sheets("VERT").Visible True
Macro24 
'macro de copie de certaines valeures dans la feuilles "VERT"

End Sub





'
copie N° remplacé à coté
Private Sub Worksheet_Change(ByVal Target As Range)



If 
flag Then Exit Sub
flag 
True
If flag And Not Intersect(TargetRange("C6:C26,H6:H30,M6:M37,R6:R39")) Is Nothing Then
    Target
.Offset(01) = MaValeur
  End 
If


flag False


End Sub


'copie N° remplacé à coté
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If flag Then Exit Sub
flag = True

 If Target.Column = 3 Or Target.Column = 8 Or Target.Column = 13 Or Target.Column = 18 Then
If Target.Value <> "" And Target.Font.Color <> 8421504 Then
         For Each Cell In Sheets("PARC").Range("C7:C300")
           If Target.Value = Cell.Value Then
           
           x = Target.Borders.LineStyle
           y = Target.Borders.Value
           
           Cell.Copy
    Target.PasteSpecial Paste:=xlPasteAllExceptBorders
           
           Target.Borders.LineStyle = x
           Target.Borders.Value = y
           End If
         Next Cell
     End If
End If
flag = False

If Not Intersect(Target, Range("C6:C26,H6:H30,M6:M37,R6:R39")) Is Nothing Then
    MaValeur = Target.Value
  End If
 
End Sub


J'espère que j'ai bien procédé à la rédaction de ce sujet.
Aussi que faut-il faire quand un sujet est résolu ?

Merci à vous