kiki29 | en fait tu cherches à créer une fonction personnalisée
en ne tenant compte que de ton code ( bon ou pas )
Option Explicit
Function YesNo(ByVal Rng1 As Range, ByVal Rng2 As Range) As String
If Mid(Rng1, 2, 1) = 1 Or Mid(Rng1, 2, 1) = 0 Or _
Mid(Rng2, 6, 1) = 1 Or Mid(Rng2, 6, 1) = 0 Or _
Mid(Rng2, 2, 1) = 1 Or Mid(Rng2, 2, 1) = 0 Then
YesNo = "Oui"
Else
YesNo = "Non"
End If
End Function
|
ce code est à placer dans un Module standard
[Alt+F11] Menu Insertion | Module
Ensuite sous Excel Sélectionner la cellule de destination
Menu Insertion | Fonction | Catégorie : Personnalisées
Sélectionner YesNo
l'assistant apparait etc
Sinon par Exemple A1 =YesNo(Z1;H1)
il y aurait peut-être un And à placer qqpart ? enfin tu verras
Option Explicit
Function YesNo2(ByVal Rng1 As Range, ByVal Rng2 As Range) As String
If (Mid(Rng1, 2, 1) = 1 Or Mid(Rng1, 2, 1) = 0) And _
(Mid(Rng2, 6, 1) = 1 Or Mid(Rng2, 6, 1) = 0 Or _
Mid(Rng2, 2, 1) = 1 Or Mid(Rng2, 2, 1) = 0) Then
YesNo2 = "Oui"
Else
YesNo2 = "Non"
End If
End Function
|
Message édité par kiki29 le 23-07-2007 à 00:05:44
|