Code macro nombre valeur

L

laetitia90

XLDnaute Barbatruc

• 13 Novembre 2010

• #2

Re : Code macro nombre valeur

bonjour gourdin
"brute"sans plus d'infos code dans ce style aprés on peut simplifier

Code:

Dim x As Byte
x = Application.CountIf([a1:a8], "")
If x = 8 Then MsgBox "aa" Else MsgBox "bb"

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 13 Novembre 2010

• #3

Re : Code macro nombre valeur

Merci,

pour "caser" le code dans ma macro initiale plus complexe, je t'avouerai que je préférerai un code du type :

Code:

If Nbreval(A1:A8) = 0 Then
Etc..
End If

Merci

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 13 Novembre 2010

• #4

Re : Code macro nombre valeur

Bonjour le fil 🙂

Code:

If Application.WorksheetFunction.CountA(Range("A1:A8")) = 0 Then

Bonne journée 😎

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 13 Novembre 2010

• #5

Re : Code macro nombre valeur

Merci
Bonne journée

 

Vote positif 0 Vote négatif