Erreur d'exécution 13 Incompatibilité de type
Résolu
Bonjour,
J'ai ce message qui apparaît régulièrement depuis que j'ai mis le code suivant dans une feuille. Il a l'air de boqué au niveau de la ligne oVal = Target
De quoi cela vient-il ?
J'ai ce message qui apparaît régulièrement depuis que j'ai mis le code suivant dans une feuille. Il a l'air de boqué au niveau de la ligne oVal = Target
Public oVal As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
oVal = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oRng As Range
Dim n As Integer
If Target.Count = 1 Then
If Not Application.Intersect(Target, Columns(6)) Is Nothing Then
If Target > "0" Or Target <> oVal Then
Set oRng = Range("F12")
Feuil18.Range("A37:A50").ClearContents
Feuil18.Range("E37:E50").ClearContents
For i = 0 To Cells(Cells.Rows.Count, 2).End(xlUp).Row - 1
If UCase(oRng.Offset(i, 0)) > "0" Then
n = n + 1
Feuil18.Range("A36").Offset(n, 0) = oRng.Offset(i, -2)
End If
Next i
End If
End If
End If
End Sub
De quoi cela vient-il ?
3 réponses
-
Salut,
C'est parce que tu essaye de rentrer un objet dans une variable string.
-
Comment dois-je corriger ma formule ?
-
ModérateurBonjour,
Private Sub Worksheet_SelectionChange(ByVal Target As Range) oVal = Target.Value End Sub
-
-
Modérateur@bidounet84Je n'ai pas ce message d'erreur.
Que contient donc ta colonne F? -
@pijakuNon c'est bon j'ai rajouté cette ligne :
If Target.Count = 1 Then oVal = Target.Value
-
