H
hug
Guest
Bonjour,
Je suis dessus de puis le début de la journée, et après avoir toucher a un peu tout, je me rends!!
J'ai une erreur 13 (incompatibilité de type) sur le code suivant quand il est tourne avec une autre macro. Le code est:
Private Sub WorkSheet_Change(ByVal Target As Range)
Dim Cel As Range
y = Not LCase(Target.Value) = "oui" L'erreur viens de cette ligne!
Set isect = Application.Intersect(Range("modif"), Target)
If Not isect Is Nothing Then
For Each Cel In Range("M20:M350")
If Cel.Value <> "" And Cel.Value = 0 Then
Cel.EntireRow.Hidden = y
End If
Next
End If
End Sub
Elle me sert a rendre des lignes visibles ou non sous condition.
L'autre Macro est:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim VNom As String
VNom = ActiveSheet.Range("R15")
ActiveSheet.Name = VNom
If Target.Address = "$E$7" Then
For j = 1 To Range("E6")
Rows("35:45").Copy
Rows("46:46").Insert Shift:=xlDown
Next j
End If
Application.CutCopyMode = False
End Sub
Elle me sert a piloter l'insertion d'un tableau (de la ligne 35 a 45) un certain nombre de fois (E6)
Quelqu'un saurait quoi faire pour éviter cette erreur svp?
Je suis dessus de puis le début de la journée, et après avoir toucher a un peu tout, je me rends!!
J'ai une erreur 13 (incompatibilité de type) sur le code suivant quand il est tourne avec une autre macro. Le code est:
Private Sub WorkSheet_Change(ByVal Target As Range)
Dim Cel As Range
y = Not LCase(Target.Value) = "oui" L'erreur viens de cette ligne!
Set isect = Application.Intersect(Range("modif"), Target)
If Not isect Is Nothing Then
For Each Cel In Range("M20:M350")
If Cel.Value <> "" And Cel.Value = 0 Then
Cel.EntireRow.Hidden = y
End If
Next
End If
End Sub
Elle me sert a rendre des lignes visibles ou non sous condition.
L'autre Macro est:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim VNom As String
VNom = ActiveSheet.Range("R15")
ActiveSheet.Name = VNom
If Target.Address = "$E$7" Then
For j = 1 To Range("E6")
Rows("35:45").Copy
Rows("46:46").Insert Shift:=xlDown
Next j
End If
Application.CutCopyMode = False
End Sub
Elle me sert a piloter l'insertion d'un tableau (de la ligne 35 a 45) un certain nombre de fois (E6)
Quelqu'un saurait quoi faire pour éviter cette erreur svp?
Dernière modification par un modérateur:
