Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel [VBA] if cellule contient #NA then...

[VBA] if cellule contient #NA then...

12 réponses
Avatar
twinley
Bonsoir,

Dans une cellule H12, j'ai #NA que j'entre volontairement avec Range(zone) =
" = NA( )"
Je souhaite faire un test sur cette cellule

sub fillna( ligne as integer)
if H12 = #NA then
col = H
else
col = G
end if
debzone = "col" & ligne +13
finzone = "col" & ligne +11
zone = "col" & ligne +13 & " : col" & ligne +11
Range (zone) = " = NA( )"
End Sub

Je n'arrive pas à trouver la syntaxe du if H12 = #NA
J'ai tout essayé avec des range, des cells, des " ", des [ ], sauf les
solutions, bien sûr !
Soit dit en passant je ne trouve pas non plus
zone = debzone : finzone
ce qui explique ma solution manuelle qui fct. mais qui manque d'élégance

Un petit coup de main me ferai entrer dans le WE avec le sourire.
Merci pour l'aide
--
à+twinley
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Philippe.R
Bonsoir Twinley,
Ceci :

Sub na_ou_pana()
If Application.WorksheetFunction.IsNA([h12]) _
= True Then MsgBox "na !"
End Sub

convient il comme base ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonsoir,

Dans une cellule H12, j'ai #NA que j'entre volontairement avec Range(zone) > " = NA( )"
Je souhaite faire un test sur cette cellule

sub fillna( ligne as integer)
if H12 = #NA then
col = H
else
col = G
end if
debzone = "col" & ligne +13
finzone = "col" & ligne +11
zone = "col" & ligne +13 & " : col" & ligne +11
Range (zone) = " = NA( )"
End Sub

Je n'arrive pas à trouver la syntaxe du if H12 = #NA
J'ai tout essayé avec des range, des cells, des " ", des [ ], sauf les
solutions, bien sûr !
Soit dit en passant je ne trouve pas non plus
zone = debzone : finzone
ce qui explique ma solution manuelle qui fct. mais qui manque d'élégance

Un petit coup de main me ferai entrer dans le WE avec le sourire.
Merci pour l'aide
--
à+twinley




Avatar
twinley
Bonsoir Philippe.R

Cela me semble une excellente solution.
Je te remercie pour l'aide

Bon WE

--
à+twinley
"Philippe.R" a écrit dans le message de
news:%
Bonsoir Twinley,
Ceci :

Sub na_ou_pana()
If Application.WorksheetFunction.IsNA([h12]) _
= True Then MsgBox "na !"
End Sub

convient il comme base ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonsoir,

Dans une cellule H12, j'ai #NA que j'entre volontairement avec
Range(zone) > > " = NA( )"


Je souhaite faire un test sur cette cellule

sub fillna( ligne as integer)
if H12 = #NA then
col = H
else
col = G
end if
debzone = "col" & ligne +13
finzone = "col" & ligne +11
zone = "col" & ligne +13 & " : col" & ligne +11
Range (zone) = " = NA( )"
End Sub

Je n'arrive pas à trouver la syntaxe du if H12 = #NA
J'ai tout essayé avec des range, des cells, des " ", des [ ], sauf les
solutions, bien sûr !
Soit dit en passant je ne trouve pas non plus
zone = debzone : finzone
ce qui explique ma solution manuelle qui fct. mais qui manque d'élégance

Un petit coup de main me ferai entrer dans le WE avec le sourire.
Merci pour l'aide
--
à+twinley








Avatar
Philippe.R
Devine avec quoi c'était, Twinley !
;o)))
--
Amicales Salutations

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonsoir Philippe.R

Cela me semble une excellente solution.
Je te remercie pour l'aide

Bon WE

--
à+twinley
"Philippe.R" a écrit dans le message de
news:%
Bonsoir Twinley,
Ceci :

Sub na_ou_pana()
If Application.WorksheetFunction.IsNA([h12]) _
= True Then MsgBox "na !"
End Sub

convient il comme base ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonsoir,

Dans une cellule H12, j'ai #NA que j'entre volontairement avec
Range(zone) > > > " = NA( )"


Je souhaite faire un test sur cette cellule

sub fillna( ligne as integer)
if H12 = #NA then
col = H
else
col = G
end if
debzone = "col" & ligne +13
finzone = "col" & ligne +11
zone = "col" & ligne +13 & " : col" & ligne +11
Range (zone) = " = NA( )"
End Sub

Je n'arrive pas à trouver la syntaxe du if H12 = #NA
J'ai tout essayé avec des range, des cells, des " ", des [ ], sauf les
solutions, bien sûr !
Soit dit en passant je ne trouve pas non plus
zone = debzone : finzone
ce qui explique ma solution manuelle qui fct. mais qui manque d'élégance

Un petit coup de main me ferai entrer dans le WE avec le sourire.
Merci pour l'aide
--
à+twinley












Avatar
sabatier
AVEC PLAISIR!!!!!!!!!!, s'écria tout le forum
jps

"Philippe.R" a écrit dans le message de
news:
Devine avec quoi c'était, Twinley !
;o)))
--
Amicales Salutations

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonsoir Philippe.R

Cela me semble une excellente solution.
Je te remercie pour l'aide

Bon WE

--
à+twinley
"Philippe.R" a écrit dans le message de
news:%
Bonsoir Twinley,
Ceci :

Sub na_ou_pana()
If Application.WorksheetFunction.IsNA([h12]) _
= True Then MsgBox "na !"
End Sub

convient il comme base ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonsoir,

Dans une cellule H12, j'ai #NA que j'entre volontairement avec
Range(zone) > > > > " = NA( )"


Je souhaite faire un test sur cette cellule

sub fillna( ligne as integer)
if H12 = #NA then
col = H
else
col = G
end if
debzone = "col" & ligne +13
finzone = "col" & ligne +11
zone = "col" & ligne +13 & " : col" & ligne +11
Range (zone) = " = NA( )"
End Sub

Je n'arrive pas à trouver la syntaxe du if H12 = #NA
J'ai tout essayé avec des range, des cells, des " ", des [ ], sauf
les




solutions, bien sûr !
Soit dit en passant je ne trouve pas non plus
zone = debzone : finzone
ce qui explique ma solution manuelle qui fct. mais qui manque
d'élégance





Un petit coup de main me ferai entrer dans le WE avec le sourire.
Merci pour l'aide
--
à+twinley
















Avatar
Philippe.R
Bravo Jean Paul !
Comment as tu fait pour deviner ?
;o)))
--
Amicales Salutations

"sabatier" a écrit dans le message de
news:%
AVEC PLAISIR!!!!!!!!!!, s'écria tout le forum
jps

"Philippe.R" a écrit dans le message de
news:
Devine avec quoi c'était, Twinley !
;o)))
--
Amicales Salutations

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonsoir Philippe.R

Cela me semble une excellente solution.
Je te remercie pour l'aide

Bon WE

--
à+twinley
"Philippe.R" a écrit dans le message de
news:%
Bonsoir Twinley,
Ceci :

Sub na_ou_pana()
If Application.WorksheetFunction.IsNA([h12]) _
= True Then MsgBox "na !"
End Sub

convient il comme base ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonsoir,

Dans une cellule H12, j'ai #NA que j'entre volontairement avec
Range(zone) > > > > > " = NA( )"


Je souhaite faire un test sur cette cellule

sub fillna( ligne as integer)
if H12 = #NA then
col = H
else
col = G
end if
debzone = "col" & ligne +13
finzone = "col" & ligne +11
zone = "col" & ligne +13 & " : col" & ligne +11
Range (zone) = " = NA( )"
End Sub

Je n'arrive pas à trouver la syntaxe du if H12 = #NA
J'ai tout essayé avec des range, des cells, des " ", des [ ], sauf
les




solutions, bien sûr !
Soit dit en passant je ne trouve pas non plus
zone = debzone : finzone
ce qui explique ma solution manuelle qui fct. mais qui manque
d'élégance





Un petit coup de main me ferai entrer dans le WE avec le sourire.
Merci pour l'aide
--
à+twinley




















Avatar
FxM
Philippe.R wrote:

Bravo Jean Paul !
Comment as tu fait pour deviner ?
;o)))


Ca doit être son restant d'intuition féminine qui ... :o)

@+
FxM

Avatar
sabatier
:-)))))))
jps

"FxM" a écrit dans le message de
news:
Philippe.R wrote:

Bravo Jean Paul !
Comment as tu fait pour deviner ?
;o)))


Ca doit être son restant d'intuition féminine qui ... :o)

@+
FxM



Avatar
twinley
Au plaisir des femmes et des jeunes filles réunies ?
C'est un joli nom pour une petite entreprise qui connaît pas le crise...
En attendant tu m'enlèves une épine du pied avec plaisir réciproque, le test
de #NA ne s'invente pas.
--
à+twinley
"sabatier" a écrit dans le message
de news:
:-)))))))
jps

"FxM" a écrit dans le message de
news:
Philippe.R wrote:

Bravo Jean Paul !
Comment as tu fait pour deviner ?
;o)))


Ca doit être son restant d'intuition féminine qui ... :o)

@+
FxM







Avatar
AV
En attendant tu m'enlèves une épine du pied avec plaisir réciproque, le test
de #NA ne s'invente pas.


On pourrait aussi... :

If [isna(H12)] Then MsgBox "na !"


AV

Avatar
twinley
Bonjour à tous,

Puisque vous semblez en jambe, comment puis je intégrer les variable
debzone et finzone dans la var zone.
J'ai décomposé pour finalement le faire à la main.

zone = "col" & ligne +13 & " : col" & ligne +11
Range (zone) = " = NA( )"

ça marche bien mais si je pouvais mettre les var debzone et finzone dans une
seule var zone sous une forme équivalente à
zone = range(debzone : finzone)

avec
debzone = "col" & ligne +13
finzone = "col" & ligne +11

C'est avec plaisir que je vous pose la question. Merci pour l'aide.
--
à+twinley
"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
Bonsoir,

Dans une cellule H12, j'ai #NA que j'entre volontairement avec Range(zone)
" = NA( )"
Je souhaite faire un test sur cette cellule

sub fillna( ligne as integer)
if H12 = #NA then
col = H
else
col = G
end if
debzone = "col" & ligne +13
finzone = "col" & ligne +11
zone = "col" & ligne +13 & " : col" & ligne +11
Range (zone) = " = NA( )"
End Sub

Je n'arrive pas à trouver la syntaxe du if H12 = #NA
J'ai tout essayé avec des range, des cells, des " ", des [ ], sauf les
solutions, bien sûr !
Soit dit en passant je ne trouve pas non plus
zone = debzone : finzone
ce qui explique ma solution manuelle qui fct. mais qui manque d'élégance

Un petit coup de main me ferai entrer dans le WE avec le sourire.
Merci pour l'aide
--
à+twinley




1 2