Peut on traduire #N/A en VBA ?

[Amilo]

Bonsoir le forum,

j'ai une petite question, comment peut-on écrire par ex :

If [BBBB] = "#N/A" then

BBBB est par ex le nom de ma cellule A1

Merci d'avance

 

[ledzepfred]

Re : Peut on traduire #N/A en VBA ?

Bonsoir Amilo,

essayes comme ceci :

If Application.WorksheetFunction.IsNA(Range("BBBB")) = True Then

a+

 

[Gael]

Re : Peut on traduire #N/A en VBA ?

Bonsoir Amilo, Lepzedfred

Regarde aussi l'aide sur "valeurs d'erreurs de cellule", tu y trouveras notament la procédure suivante qui regroupe tous les tests d'erreurs:

Worksheets("Sheet1").Activate
If IsError(ActiveCell.Value) Then
    errval = ActiveCell.Value
    Select Case errval
        Case CVErr(xlErrDiv0)
            MsgBox "#DIV/0! error"
        Case CVErr(xlErrNA)
            MsgBox "#N/A error"
        Case CVErr(xlErrName)
            MsgBox "#NAME? error"
        Case CVErr(xlErrNull)
            MsgBox "#NULL! error"
        Case CVErr(xlErrNum)
            MsgBox "#NUM! error"
        Case CVErr(xlErrRef)
            MsgBox "#REF! error"
        Case CVErr(xlErrValue)
            MsgBox "#VALUE! error"
        Case Else
            MsgBox "This should never happen!!"
    End Select
End If

@+

Gael

 

[Amilo]

Re : Peut on traduire #N/A en VBA ?

Bonsoir Amilo, Lepzedfred

Regarde aussi l'aide sur "valeurs d'erreurs de cellule", tu y trouveras notament la procédure suivante qui regroupe tous les tests d'erreurs:

Worksheets("Sheet1").Activate
If IsError(ActiveCell.Value) Then
    errval = ActiveCell.Value
    Select Case errval
        Case CVErr(xlErrDiv0)
            MsgBox "#DIV/0! error"
        Case CVErr(xlErrNA)
            MsgBox "#N/A error"
        Case CVErr(xlErrName)
            MsgBox "#NAME? error"
        Case CVErr(xlErrNull)
            MsgBox "#NULL! error"
        Case CVErr(xlErrNum)
            MsgBox "#NUM! error"
        Case CVErr(xlErrRef)
            MsgBox "#REF! error"
        Case CVErr(xlErrValue)
            MsgBox "#VALUE! error"
        Case Else
            MsgBox "This should never happen!!"
    End Select
End If

@+

Gael

Merci à vous pour votre réponse, je vais pouvoir les tester

Bonne nuit à tous

 

[vbacrumble]

Re : Peut on traduire #N/A en VBA ?

Bonsoir à tous


Ou comme cela pour rester dans le ton

Bonsoir le forum,

j'ai une petite question, comment peut-on écrire par ex :

If [BBBB] = "#N/A" then

BBBB est par ex le nom de ma cellule A1

Merci d'avance

Sub macro()
If [IsNA(range("BBBB"))] = True Then MsgBox "test"
End Sub

EDITION: pas rafraichi avant de poster, désolé.

 

[Amilo]

Re : Peut on traduire #N/A en VBA ?

Bonsoir le forum,

j'ai une petite question, comment peut-on écrire par ex :

If [BBBB] = "#N/A" then

BBBB est par ex le nom de ma cellule A1

Merci d'avance

RE Bonsoir le forum,

désolé c'est encore moi, je pensais réussir mon code avec ceci mais il ne se passe rien, que la cellule nommée "no_ligne_facture" de l'onglet "formulaire" indique un N/A ou un chiffre !!

Voyez vous une erreur dans cette macro ??

En français, je veux dire que si la cellule nommée "no_ligne_facture" alors sors de la macro sinon supprime la ligne 2 de l'onglet "formaulaire"

Merci d'avance

Sub supprimer_facture()
'
' supprimer_facture Macro

If [IsError(range(no_ligne_facture))] = True Then Exit Sub
Sheets("Base de données").Rows("2:2").Delete Shift:=xlUp
Sheets("Formulaire").Select

End Sub

 

[ledzepfred]

Re : Peut on traduire #N/A en VBA ?

RE... et bonsoir à gael et vbacrumble

attention à la syntaxe : en plus des guillemets, il suffisait d'enlever les crochets []

Sub supprimer_facture()
'
' supprimer_facture Macro
If IsError(Range([COLOR="Red"][B]"[/B][/COLOR]no_ligne_facture[COLOR="red"][B]"[/B][/COLOR])) = True Then Exit Sub
Sheets("Base de données").Rows("2:2").Delete Shift:=xlUp
End Sub

a+

 

[Amilo]

Re : Peut on traduire #N/A en VBA ?

RE... et bonsoir à gael et vbacrumble

attention à la syntaxe : en plus des guillemets, il suffisait d'enlever les crochets []

Sub supprimer_facture()
'
' supprimer_facture Macro
If IsError(Range([COLOR="Red"][B]"[/B][/COLOR]no_ligne_facture[COLOR="red"][B]"[/B][/COLOR])) = True Then Exit Sub
Sheets("Base de données").Rows("2:2").Delete Shift:=xlUp
End Sub

a+

C'est toujours moi car je n'y ai toujours pas réussi, il ne se passe rien avec le code ci-dessus.

J'espère vous envoyer un fichier ex ce samedi après midi.

Bonne nuit à tous

 

[ledzepfred]

Re : Peut on traduire #N/A en VBA ?

bizarre...

chez moi ça fonctionne....
La plage nommée no_ligne_facture existe-elle bien dans ton fichier?
Si oui, définie-elle bien une cellule unique et non une plage de cellules?
Si oui, Es-tu sur de l'orthographe de cette plage nommée reprise dans le code?

regarde le fichier joint, en A1 j'ai nommé la cellule no_ligne_facture, lances la procédure supprimer_facture et tu verras que rien ne se passe.
en D1, j'ai nommé la cellule no_ligne_facture2, si tu lances la procédure supprimer_facture2, la ligne 2 du feuillet Base de données est bien supprimée.

a+

 

[Gael]

Re : Peut on traduire #N/A en VBA ?

Bonjour à tous,

Juste une petite remarque, le "=True" n'est pas nécessaire dans cette instruction; on peut écrire:

If IsError(Range([B][COLOR=black]"[/COLOR][/B]no_ligne_facture[B][COLOR=black]"[/COLOR][/B])) Then Exit Sub

@+

Gael

 

[Amilo]

Re : Peut on traduire #N/A en VBA ?

Bonjour à tous,

Juste une petite remarque, le "=True" n'est pas nécessaire dans cette instruction; on peut écrire:

If IsError(Range([B][COLOR=black]"[/COLOR][/B]no_ligne_facture[B][COLOR=black]"[/COLOR][/B])) Then Exit Sub

@+

Gael

Bonjour le Forum, bonjour Ledzepfred, bonjour Gael, bonjour Vbacrumble

je viens de recomparer tous les codes et effectivement j'ai commis une erreur de crochets [].

Je n'ai pas fait attention à la phrase de Ledzepfred qui disait ceci
"attention à la syntaxe : en plus des guillemets, il suffisait d'enlever les crochets []"

Un des codes qui fonctionne et que j'utilise est donc (sans les crochets et avec ou sans True).


Sub supprimer_facture()

If IsError(Range("no_ligne_facture")) = True Then
Exit Sub
Else:
With Sheets("Base de données")
.Activate
.Rows([no_ligne_facture]).Delete Shift:=xlUp
End With
End If
End Sub

Mille Excuses pour ma maladresse, mille merci à tous !

Bon Week End à tous