Erreur 13 dans Excel 2007

Question

Bonjour,
Je cherche à aider quelqu'un qui a le problème suivant : Erreur d'exécution 13, incompatibilité de type dans une macro VBA.
Voici la macro (qui fonctionnait en 2000 et 2003) :

Sub Retrait_Ligne_Heures_Dispos()

FinListe = False
Compteur = 1
While FinListe = False
    Compteur = Compteur + 1
    Range("G" & Compteur).Select
    TempVal = Selection.Value
    If Left(TempVal, 2) = "HD" Then<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

        Rows(Compteur).Select

        Selection.Delete Shift:=xlUp

        Compteur = Compteur - 1

    End If    If TempVal "" Then FinListe True

Wend

End Sub

L'erreur se produit sur la ligne "If Left(Tempval, 2) = "HD" Then"
Je suis néophyte en VBA, merci de me parler lentement ...
Merci d'avance,
Gd183

Cirec · Answer

Changement effectué

Attention à poser vos question au bon endroit ... Merci

 
@+
Cirec

<hr siz="" />

cs_Exploreur · Answer

Salut et bonsoir à tous,

Et comment est déclaré ta variable : TempVal ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

Erreur 13 dans Excel 2007

2 réponses

Votre réponse

Discussions similaires