Comment différencier une cellule qui ne contient rien d'une cellule qui renvoie ""?

Jocelyn

XLDnaute Barbatruc

• 17 Septembre 2012

• #2

Re : Comment différencier une cellule qui ne contient rien d'une cellule qui renvoie

Bonjour le Forum,
Bonjour micky01,

une cellule qui contient un renvoi de formule "" n'est pas considérée comme vide par excel

il faut tester avec =si(estvide(A1)=vrais;......)

Cordialement

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Septembre 2012

• #3

Re : Comment différencier une cellule qui ne contient rien d'une cellule qui renvoie

bonjour micky01

a tester:

If Range("A1").Formula <> "" then

Edit : Boum !! Salut Jocelyn

 

Vote positif 0 Vote négatif

M

micky01

XLDnaute Occasionnel

• 17 Septembre 2012

• #4

Re : Comment différencier une cellule qui ne contient rien d'une cellule qui renvoie

Merci de vos retours,

Malheureusement ca ne fonctionne pas 🙁

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 17 Septembre 2012

• #5

Re : Comment différencier une cellule qui ne contient rien d'une cellule qui renvoie

Salut Micky01, Jocelyn🙂, Pierre🙂, le Forum

Juste pour saluer mes amis 🙂 et te proposer cela: valable que si formule en A1 ET résultat de la Formule est ""

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
If Range("A1").HasFormula = True And Range("A1") = "" Then MsgBox "Formule en " & Target.Address & " = a vide"
End If
End Sub

A tester

Bonne Journée

 

Pièces jointes

• Formule Micky01.xlsm

  15 KB · Affichages: 52

Dernière édition: 17 Septembre 2012

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Septembre 2012

• #6

Re : Comment différencier une cellule qui ne contient rien d'une cellule qui renvoie

Bonjour Micky01, Jocelyn, Pierre, Dull 🙂

Pour faire bon poids, et si Micky n'est pas satisfait c'est à désespérer :

Code:

Sub Test()
Dim cel As Range, ad As String
Set cel = ActiveCell 'à adapter éventuellement
ad = cel.Address(0, 0)
If IsEmpty(cel) Then
  MsgBox ad & " est vide..."
ElseIf cel.HasFormula Then
  MsgBox ad & " contient une formule renvoyant " & _
    IIf(cel.Text = "", "un texte vide...", "une valeur...")
Else
  MsgBox ad & " contient une constante " & _
    IIf(cel.Text = "", "de texte vide...", "...")
End If
End Sub

A+

 

Vote positif 0 Vote négatif

M

micky01

XLDnaute Occasionnel

• 17 Septembre 2012

• #7

Re : Comment différencier une cellule qui ne contient rien d'une cellule qui renvoie

Merci à vous pour ces réponses 🙂
La proposition de Dull me convient parfaitement 😉

Merci encore, vous êtes géniaux 😛

 

Vote positif 0 Vote négatif