VBA excel - Erreur '13' Type incompatible Résolu/Fermé

Question

Bonjour,

Je souhaite que tous les chiffres présents dans une colonne soient sur 2 caractères ( que 1 devienne 01, etc...).
J'ai donc écrit une boucle qui fonctionne avec excel 2003 mais qui me renvoie une erreur sur 97 : "Erreur  d'exécution 13 - Type incompatible".
La ligne qui est surbrillée suite à l'erreur est "If(Cells(ligne, 5).Value) < 10 Then

Mais je n'arrive pas à m'en sortir. Merci par avance de votre aide.


Voici mon code :

    Dim ligne As Long, finboucle As Long

    ligne = 1
    finboucle = 0
    Columns("E:E").Select
    Selection.NumberFormat = "@"
    
    While finboucle <> 1
        If (Cells(ligne, 5).Value) < 10 Then
            Cells(ligne, 5).Value = "0" & Cells(ligne, 5).Value
        End If
        If Cells(ligne + 1, 5).Value = "" Then
            finboucle = 1
        End If
        ligne = ligne + 1
    Wend

Encore merci de ce que vous pourrez faire.

Calvin

wilfried_42 · Answer

Bonjour

en definissant ta colonne E en format texte, ta colonne E est du texte

If  Val(Cells(ligne, 5).Value) < 10 Then

VBA excel - Erreur '13' Type incompatible

1 réponse

Discussions similaires