Erreurd’exécution 13 dans une fonction If qui fonction si vrai

Version imprimable

Bonsoir à tous

J'ai un petit problème avec une fonction "If" qui fonctionne très bien en mode vrai mais pas en mode Else

Le problème se trouve sur la ligne:

Code:

If Worksheets("Optimus").Cells(Ligne, Cell_test).Value <> 0 Then

Quand le résultat est différent de 0 il m'affiche la msgbox
Mais quand le résultat est 0 J'ai un message d'erreur d’exécution 13
J'aurais Certainement le même problème dans le "If" suivant

Voici le code complet

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Date_action()
    Dim Ligne As Long
    Dim Colonne As Long
 
    Ligne = ActiveCell.Row
    Colonne = ActiveCell.Column
 
    Dim Cell_test As Long
    Cell_test = Colonne - 2
 
    Dim Ligne_Test As Long
    Ligne_Test = Ligne - 1
 
If Colonne <> 4 Then 'test si la bonne collone est selectionner
MsgBox "selectionnez la bonne colonne (D)"
 
Else  'tester si la ligne est vide
 
        If Worksheets("Optimus").Cells(Ligne, Cell_test).Value <> 0 Then
        MsgBox "Cette action est déja en cours"
 
        Else    'Tester la ligne du dessus est vide
 
                If Worksheets("Optimus").Cells(Ligne_Test, Cell_test).Value = 0 Then
                MsgBox "La ligne du dessus est vide"
                Else
                'Reste à programmer
                End If
        End If
End If
 
 
End Sub

Merci de vos réponses

Cordialement Eric

17/07/2016, 23h41
eriiic

Bonjour,

sans la ligne en erreur ni la feuille ni la cellule en cause ça va être difficile...
Peut-être ta cellule contient un texte et non un numérique (?). Un nombre s'aligne à droite, un texte à gauche.
Et contrôle aussi la ligne. Ligne - 1 peut te donner 0 et ça marchera beaucoup moins bien ce jour là.
eric
18/07/2016, 00h13
Zarkann

Bonsoir

Effectivement la cellule contient une formule avec une fonction SI qui renvoi "" Si la cellule d'à coté est vide
C'est une piste intéressante qu'il va falloir creuser :

J'ai tester en mettant 0 Au leu de ""
il ne me reste plus qu'a faire une mise en forme conditionnelle pour masquer les 0

Merci Eric

Cordialement Eric