Fonction

bernardrustrel · 21 Avril 2009

Bonjour à tous
Je viens de realiser une fonction comme suit:

Public Function Cloture(Bd, RbtDeb, RbtFin) As Boolean
If Bd <> "" And RbtDeb <> "" And RbtFin <> "" Then
MissionClose = True
Else
MissionClose = False
End If
End Function

Cette derniere fonctionne bien lorsqu'elle est appliquée à une feuille, par contre lorsque je désire l'appliquer comme ci dessous plus rien ne va

Sub test()
Sheets("essai").Activate
If MissionClose("O3", "P3", "P4") = True Then
Sheets("essai").Range("A1").Value = "OK"
End If
End Sub

Aussi je vous sollicite pour une aide en ma faveur.

D'avance je vous remercie

Cordialement

vbacrumble · 21 Avril 2009

Re : Fonction

Bonjour

Utilises cette fonction cloture

Code:

Function cloture(a$, b$, c$) As Boolean
Dim r As Range, x As Byte
Set r = Union(Range(a), Range(b), Range(c))
On Error Resume Next
x = r.SpecialCells(xlCellTypeBlanks).Count
cloture = IIf(x = 0, True, False)
End Function

Code:

Sub test()
Range("A1").Value = IIf(cloture("O3", "P3", "P4"), "OK", "PAS OK")
End Sub

PS: tu peux aussi utiliser cette variante

Code:

Function cloture(a$, b$, c$) As Boolean
Dim r As Range, x As Byte
Set r = Union(Range(a), Range(b), Range(c))
x = Application.WorksheetFunction.CountA(r)
cloture = IIf(x = 3, True, False)
End Function

Fonction

bernardrustrel

XLDnaute Occasionnel

vbacrumble

XLDnaute Accro

Discussions similaires

Fonction

bernardrustrel

XLDnaute Occasionnel

vbacrumble

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency