G
gerome1980
Guest
Bonjour,
débutant en VBA, j'ai un problème d''incompatibilité de type' dans la macro suivante, ligne 3:
Dim j As Integer
For j = 1 To 500
If ActiveSheet.Range('A' & j).Value = 1000001 Then
Range('C' & j).Offset(0, 3).Select
Selection.Cut
Rows(j).Select
Selection.Delete Shift:=xlUp
End If
Pourrriez-vous m'aider?
Merci
Jerome
débutant en VBA, j'ai un problème d''incompatibilité de type' dans la macro suivante, ligne 3:
Dim j As Integer
For j = 1 To 500
If ActiveSheet.Range('A' & j).Value = 1000001 Then
Range('C' & j).Offset(0, 3).Select
Selection.Cut
Rows(j).Select
Selection.Delete Shift:=xlUp
End If
Pourrriez-vous m'aider?
Merci
Jerome