Erreur d'exécution 13 Incompatibilité de type

Résolu/Fermé

bidounet84 Messages postés 412 Date d'inscription jeudi 28 août 2008 Statut Membre Dernière intervention 22 mai 2023 - 7 avril 2016 à 14:23
bidounet84 Messages postés 412 Date d'inscription jeudi 28 août 2008 Statut Membre Dernière intervention 22 mai 2023 - 7 avril 2016 à 16:06

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 ?

A voir également:

Erreur d'exécution 13 vba
Erreur 0x80070643 - Accueil - Windows
Redmi note 13 5g test - Accueil - Téléphones
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 1001 outlook - Accueil - Bureautique
Erreur 38 free ✓ - Forum Mobile

3 réponses

Réponse 1 / 3

Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
7 avril 2016 à 14:26

Salut,

C'est parce que tu essaye de rentrer un objet dans une variable string.

Réponse 2 / 3

bidounet84 Messages postés 412 Date d'inscription jeudi 28 août 2008 Statut Membre Dernière intervention 22 mai 2023 80
7 avril 2016 à 14:27

Comment dois-je corriger ma formule ?

Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
7 avril 2016 à 14:27

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

ça te sert à quoi?

Réponse 3 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
7 avril 2016 à 14:40

Bonjour,

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

bidounet84 Messages postés 412 Date d'inscription jeudi 28 août 2008 Statut Membre Dernière intervention 22 mai 2023 80
7 avril 2016 à 16:02

Non j'ai toujours le message d'erreur.

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751 > bidounet84 Messages postés 412 Date d'inscription jeudi 28 août 2008 Statut Membre Dernière intervention 22 mai 2023
7 avril 2016 à 16:05

Je n'ai pas ce message d'erreur.
Que contient donc ta colonne F?

bidounet84 Messages postés 412 Date d'inscription jeudi 28 août 2008 Statut Membre Dernière intervention 22 mai 2023 80 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
7 avril 2016 à 16:06

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

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

VBA erreur 1004

Erreur d'exécution 13 Incompatibilité de type

Erreur de lecture sur iptv smarters

Erreur vidéo inconnue sur le Freebox Player