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 x As Variant
Private y 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(Target, Range("C6:C26,H6:H30,M6:M37,R6:R39")) Is Nothing Then
Target.Offset(0, 1) = 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
|