Si je puis me permettre comment faire pour que cela ne marque pas #value! qd le commentaire est vide sinon cela fonctionne nickel
merci
"AV" a écrit dans le message de news: OfO5aOa$
Merçi d'avoir répondu mais je suis newbie en vb
Regarde l'exemple joint Fais Alt+F11 pour voir le code de la fonction perso
http://cjoint.com/?lblYFFeH6U
AV
AV
comment faire pour que cela ne marque pas #value! qd le commentaire est vide
Modifie la fonction comme suit :
Function COMMENTAIRE(cellule As Range) Application.Volatile On Error Resume Next COMMENTAIRE = cellule.COMMENT.Text If Err.Number <> 0 Then COMMENTAIRE = "" End Function
Remplace Then COMMENTAIRE = "" par ce que tu veux
AV
comment faire pour que cela ne marque pas #value! qd le commentaire est vide
Modifie la fonction comme suit :
Function COMMENTAIRE(cellule As Range)
Application.Volatile
On Error Resume Next
COMMENTAIRE = cellule.COMMENT.Text
If Err.Number <> 0 Then COMMENTAIRE = ""
End Function
comment faire pour que cela ne marque pas #value! qd le commentaire est vide
Modifie la fonction comme suit :
Function COMMENTAIRE(cellule As Range) Application.Volatile On Error Resume Next COMMENTAIRE = cellule.COMMENT.Text If Err.Number <> 0 Then COMMENTAIRE = "" End Function
Remplace Then COMMENTAIRE = "" par ce que tu veux
AV
Claudy
Cool Merci beaucoup
"AV" a écrit dans le message de news: %23CUeWmd$
comment faire pour que cela ne marque pas #value! qd le commentaire est vide
Modifie la fonction comme suit :
Function COMMENTAIRE(cellule As Range) Application.Volatile On Error Resume Next COMMENTAIRE = cellule.COMMENT.Text If Err.Number <> 0 Then COMMENTAIRE = "" End Function
Remplace Then COMMENTAIRE = "" par ce que tu veux
AV
Cool
Merci beaucoup
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23CUeWmd$GHA.4604@TK2MSFTNGP02.phx.gbl...
comment faire pour que cela ne marque pas #value! qd le commentaire est
vide
Modifie la fonction comme suit :
Function COMMENTAIRE(cellule As Range)
Application.Volatile
On Error Resume Next
COMMENTAIRE = cellule.COMMENT.Text
If Err.Number <> 0 Then COMMENTAIRE = ""
End Function
comment faire pour que cela ne marque pas #value! qd le commentaire est vide
Modifie la fonction comme suit :
Function COMMENTAIRE(cellule As Range) Application.Volatile On Error Resume Next COMMENTAIRE = cellule.COMMENT.Text If Err.Number <> 0 Then COMMENTAIRE = "" End Function
Remplace Then COMMENTAIRE = "" par ce que tu veux
AV
Claudy
Merci grace à toi j'ai gagné des jous et des nuits de copier coller
;o)
"AV" a écrit dans le message de news: %23CUeWmd$
comment faire pour que cela ne marque pas #value! qd le commentaire est vide
Modifie la fonction comme suit :
Function COMMENTAIRE(cellule As Range) Application.Volatile On Error Resume Next COMMENTAIRE = cellule.COMMENT.Text If Err.Number <> 0 Then COMMENTAIRE = "" End Function
Remplace Then COMMENTAIRE = "" par ce que tu veux
AV
Merci grace à toi j'ai gagné des jous et des nuits de copier coller
;o)
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23CUeWmd$GHA.4604@TK2MSFTNGP02.phx.gbl...
comment faire pour que cela ne marque pas #value! qd le commentaire est
vide
Modifie la fonction comme suit :
Function COMMENTAIRE(cellule As Range)
Application.Volatile
On Error Resume Next
COMMENTAIRE = cellule.COMMENT.Text
If Err.Number <> 0 Then COMMENTAIRE = ""
End Function
Merci grace à toi j'ai gagné des jous et des nuits de copier coller
;o)
"AV" a écrit dans le message de news: %23CUeWmd$
comment faire pour que cela ne marque pas #value! qd le commentaire est vide
Modifie la fonction comme suit :
Function COMMENTAIRE(cellule As Range) Application.Volatile On Error Resume Next COMMENTAIRE = cellule.COMMENT.Text If Err.Number <> 0 Then COMMENTAIRE = "" End Function