differencier une cellule vide de type numerique

Le
phil89
Bonsoir,

Comment differencier, une cellule vide de type numerique, d'une
cellule du meme type avec la valeur 0 ?

Merci d'avance
Philippe
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5145241
Bonsoir,

ÎLLULE("type";A1)

Retourne i (cellule vide) ou v (valeur numérique) ou l (libellé)

JB
http://boisgontierjacques.free.fr



On 1 fév, 21:10, phil89
Bonsoir,

Comment differencier, une cellule vide de type numerique, d'une
cellule du meme type avec la valeur 0 ?

Merci d'avance
Philippe


Michel Samoey
Le #5145231
"phil89"
Bonsoir,

Comment differencier, une cellule vide de type numerique, d'une
cellule du meme type avec la valeur 0 ?

Merci d'avance
Philippe


Bonjour,
avec la fonction ESTNUM(cellule)

Cordialement
Michel

phil89
Le #5145221
On 1 fév, 21:19, "Michel Samoey"
"phil89"

Bonsoir,

Comment differencier, une cellule vide de type numerique, d'une
cellule du meme type avec la valeur 0 ?

Merci d'avance
Philippe


Bonjour,
avec la fonction ESTNUM(cellule)

Cordialement
Michel



C'est un developpement en VBA Excel, j' ai essaye IsNumeric Et IsNull
mais la fonction est vrai dans les deux cas
Ma cellule vide provient d'un autre classeur


isabelle
Le #5145181
bonjour phil,

If IsEmpty(Sheets("Feuil1").Range("A1")) Then MsgBox "EstVide"

isabelle

On 1 fév, 21:19, "Michel Samoey"
"phil89"

Bonsoir,
Comment differencier, une cellule vide de type numerique, d'une
cellule du meme type avec la valeur 0 ?
Merci d'avance
Philippe
Bonjour,

avec la fonction ESTNUM(cellule)

Cordialement
Michel



C'est un developpement en VBA Excel, j' ai essaye IsNumeric Et IsNull
mais la fonction est vrai dans les deux cas
Ma cellule vide provient d'un autre classeur




phil89
Le #5284551
On 1 fév, 21:49, isabelle wrote:
bonjour phil,

If IsEmpty(Sheets("Feuil1").Range("A1")) Then MsgBox "EstVide"

isabelle




On 1 fév, 21:19, "Michel Samoey"
"phil89"

Bonsoir,
Comment differencier, une cellule vide de type numerique, d'une
cellule du meme type avec la valeur 0 ?
Merci d'avance
Philippe
Bonjour,

avec la fonction ESTNUM(cellule)

Cordialement
Michel


C'est un developpement en VBA Excel, j' ai essaye IsNumeric Et IsNull
mais la fonction est vrai dans les deux cas
Ma cellule vide provient d'un autre classeur- Masquer le texte des messa ges précédents -


- Afficher le texte des messages précédents -


Bonjour,

Cela ne me permet pas de differencier les deux contenu
Contenu A3 est le resultat d'un autre onglet =Peinture!B13 qui ne
contient pas de valeur zone de type Numerique, le blanc est vu comme
un 0
Zone saisie manuellement de type numerique, ou j'ai saisie la valeur 0

Philippe


Set RangeToFormat = Sheets("OF").Range("A3")
For Each cell In RangeToFormat
If Not IsNull(cell) Then
aaa = Trim(StrConv(cell.Value, vbUpperCase))
End If
If IsNumeric(cell) Then
aaa = Trim(StrConv(cell.Value, vbUpperCase))
End If
If Not IsEmpty(cell) Then
aaa = Trim(StrConv(cell.Value, vbUpperCase))
bbb = Trim(StrConv(cell.Text, vbUpperCase))
ccc = cell.Value
End If
Next




Boisgontier
Le #5284521
If [A1] = 0 And Not IsEmpty([A1]) Then
MsgBox "0"
Else
MsgBox "Vide"
End If

JB
"phil89"
On 1 fév, 21:49, isabelle wrote:
bonjour phil,

If IsEmpty(Sheets("Feuil1").Range("A1")) Then MsgBox "EstVide"

isabelle




On 1 fév, 21:19, "Michel Samoey"
"phil89"

Bonsoir,
Comment differencier, une cellule vide de type numerique, d'une
cellule du meme type avec la valeur 0 ?
Merci d'avance
Philippe
Bonjour,

avec la fonction ESTNUM(cellule)

Cordialement
Michel


C'est un developpement en VBA Excel, j' ai essaye IsNumeric Et IsNull
mais la fonction est vrai dans les deux cas
Ma cellule vide provient d'un autre classeur- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -


Bonjour,

Cela ne me permet pas de differencier les deux contenu
Contenu A3 est le resultat d'un autre onglet =Peinture!B13 qui ne
contient pas de valeur zone de type Numerique, le blanc est vu comme
un 0
Zone saisie manuellement de type numerique, ou j'ai saisie la valeur 0

Philippe


Set RangeToFormat = Sheets("OF").Range("A3")
For Each cell In RangeToFormat
If Not IsNull(cell) Then
aaa = Trim(StrConv(cell.Value, vbUpperCase))
End If
If IsNumeric(cell) Then
aaa = Trim(StrConv(cell.Value, vbUpperCase))
End If
If Not IsEmpty(cell) Then
aaa = Trim(StrConv(cell.Value, vbUpperCase))
bbb = Trim(StrConv(cell.Text, vbUpperCase))
ccc = cell.Value
End If
Next




Publicité
Poster une réponse
Anonyme