Erreur d'exécution 13 Incompatibilité de type [Résolu/Fermé]

Signaler
Messages postés
401
Date d'inscription
jeudi 28 août 2008
Statut
Membre
Dernière intervention
30 avril 2021
-
Messages postés
401
Date d'inscription
jeudi 28 août 2008
Statut
Membre
Dernière intervention
30 avril 2021
-
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
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

Messages postés
8554
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
595
Salut,

C'est parce que tu essaye de rentrer un objet dans une variable string.
Messages postés
401
Date d'inscription
jeudi 28 août 2008
Statut
Membre
Dernière intervention
30 avril 2021
78
Comment dois-je corriger ma formule ?
Messages postés
8554
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
595
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

oVal = Target
End Sub

ça te sert à quoi?
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 620
Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    oVal = Target.Value
End Sub

Messages postés
401
Date d'inscription
jeudi 28 août 2008
Statut
Membre
Dernière intervention
30 avril 2021
78
Non j'ai toujours le message d'erreur.
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 620 >
Messages postés
401
Date d'inscription
jeudi 28 août 2008
Statut
Membre
Dernière intervention
30 avril 2021

Je n'ai pas ce message d'erreur.
Que contient donc ta colonne F?
Messages postés
401
Date d'inscription
jeudi 28 août 2008
Statut
Membre
Dernière intervention
30 avril 2021
78 >
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021

Non c'est bon j'ai rajouté cette ligne :
If Target.Count = 1 Then oVal = Target.Value