Erreur d'exécution 13 Incompatibilité de type

Résolu/Fermé

bidounet84 Messages postés 416 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 416 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 - Guide
Erreur d'execution 1004 ✓ - Forum Excel
Iptv erreur de lecture - Forum TV & Vidéo
Vba range avec variable ✓ - Forum VB / VBA
Vba erreur automation référence future non valide ✓ - Forum Word

3 réponses

Réponse 1 / 3

Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 645
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 416 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 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 645
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 743
7 avril 2016 à 14:40

Bonjour,

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

bidounet84 Messages postés 416 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 743 > bidounet84 Messages postés 416 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 416 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

VBA erreur 1004

Erreur d'exécution 13 Incompatibilité de type

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

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Discussions similaires

Newsletters