Une cellule de valeur '#N/A' ne supporte pas un test pour savoir si elle est vide

**Novice_vba** · 14/08/2013, 10h45

Bonjour,

Voici mon problème : Le code suivant ne veut pas fonctionner quand je tombe sur une cellule (i,46) qui est en erreur (valeur "#N/A") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Iserror(Cells(i,46))=True And Cells(i,46) <> "" then
[blabla]
Endif
End Sub

En effet, il semblerait que vba ne tolère pas que je fasse de test sur une cellule #N/A. Même le code suivant ne marche pas :
If Cells(i,46) <> "" then
Ou le code suivant : If Cells(i,46) = "" then

Dans tous les cas, vba écrit qu'il y a incompatibilité de type.
POurquoi ?
Comment pourrais-je m'en sortir ?

**mayekeul** · 14/08/2013, 11h07

bonjour,

je ferais ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If not Iserror(Cells(i,46)) then
    if Cells(i,46) <> "" then
        [blabla]
    End If
End If

Il faut d'abord tester si c'est en erreur avant de tester le reste
dans ton code, tu demande si c'est en erreur ET si c'est différent de "".

**Novice_vba** · 14/08/2013, 11h21

Bonjour mayekeul,

Merci de m'avoir répondu tout dabord.
J'avais également pensé à ta solution, mais je en suis pas certain que cela marche avec mon code en entier. En effet, j'ai déjà plusieurs If imbriqués...
Le voici en entier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
For i = 1 To 100
    If Not IsError(Cells(i + 1, 56)) And Cells(i + 1, 56) <> "" Then
        Cells(i + 1, ColDestination) = Cells(i + 1, 56)
    Else
        If Not IsError(Cells(i + 1, 57)) And Cells(i + 1, 57) <> "" Then
            Cells(i + 1, ColDestination) = Cells(i + 1, 57)
            Else
                If Not IsError(Cells(i + 1, 58)) And Cells(i + 1, 58) <> "" Then
                    Cells(i + 1, ColDestination) = Cells(i + 1, 58)
                    Else
                        If Not IsError(Cells(i + 1, 55)) And Cells(i + 1, 55) <> "" Then
                        Cells(i + 1, ColDestination) = Cells(i + 1, 55)
                        End If
                End If
        End If
    End If
Next i

L'idée était de récupérer en priorité la valeur de la colonne 56 en priorité, puis 57 si la colonne 56 n'était ni en erreur ni vide, puis 58 si... (et ainsi de suite).
Seulement, si je mets deux if, je ne vois pas quel Else je dois utiliser pour tester la colonne d'après

**mayekeul** · 14/08/2013, 11h33

je vois ;o)

Alors pour donner une idée de la marche à suivre dans ce cas

on procedera plus comme ceci ( enfin moi je procederai plus comme ça

)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
for i=1 to 100
    for j=56 to 10000
        if not iserror(cells(i+1,j)) then
            if cells(i+1,j)<>"" then
                cells(i+1,coldestination)=cells(i+1,j)
                exit for
            end if
        end if
    next j
next i

j'ai pas testé... mais c'est l'idée

**Novice_vba** · 14/08/2013, 11h40

Bonjour mayekeul,

Tu as peut-être mal lu mon code (ce sont des +1, non des j que j'utilise dedans).
Le problème ne vient pas de la boucle for, mais des If imbriqués (finalement, la priorisation de mes colonnes ne se fait que sur quatre colonnes, donc je n'avais pas besoin d'utiliser une boucle for).

Peut-être est-ce moi aussi qui ait mal compris ce que tu me proposais.

**mayekeul** · 14/08/2013, 12h01

alors , le j, c'est le numéro de ta colonne

l'idée que je te propose est :
on enumere de la colonne 56 à la colonne x (valeur de l'énumération est j)
on teste la cellule dans la colonne j
dès que le test est positif, on sort de l'énumération

ainsi, on ne réalise qu'une même série de test sur le nombre de colonne désiré
et le code est plus clair...
pas moi peut-être par contre

**Novice_vba** · 14/08/2013, 12h24

Bonjour mayekeul;

C'est une bonne idée, à la seule nuance que la conne 55 est celle que j'ai le moins envie de prendre, ... mais je peux toujours la changer de place pour la mettre en colonne 59 à la limite.

Je vais tester ton code,
Merci !

**mayekeul** · 14/08/2013, 12h30

dans ce cas, je procederais plus comme ça

je prends la valeur de la colonne 55
ensuite je debute l'énumération.
ainsi, si elle n'aboutis pas, pas besoin de faire une condition supplémentaire et si l'énumération abouti, ben elle remplace la valeur de la colonne 55

de rien et bonne chance