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
1 août 2019
-
Messages postés
401
Date d'inscription
jeudi 28 août 2008
Statut
Membre
Dernière intervention
1 août 2019
-
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
8553
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
489
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
1 août 2019
59
Comment dois-je corriger ma formule ?
Messages postés
8553
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
489
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

oVal = Target
End Sub

ça te sert à quoi?
Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
2 466
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
1 août 2019
59
Non j'ai toujours le message d'erreur.
Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
2 466 >
Messages postés
401
Date d'inscription
jeudi 28 août 2008
Statut
Membre
Dernière intervention
1 août 2019

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
1 août 2019
59 >
Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020

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