une valeur sur toute la plage de données VBA

[awa123]

Bonjour,

je voudrais vérifier par exemple si la valeur 0 est bien présente sur la plage de données suivante

Set plage1 = Worksheets("Feuil1").Range(.Cells(8, 8), .Cells(8, 11))

si c'est le cas alors afficher une msgbox

si quelqu'un aurait une idée pour exprimer cela

merci beaucoup

 

[Staple1600]

Re : une valeur sur toute la plage de données VBA

Bonsoir à tous

awa123
Utilises NB.SI
donc Application.CountIf en VBA

Je te laisse essayer 😉 ( Apparemment l'essai est reporté à plus tard ...🙄)

EDITION: Pour être plus explicite 😉
A tester sur un classeur vierge

Sub aj()
Dim plage1 As Range
Set plage1 = Worksheets("Feuil1").Range(Cells(8, 8), Cells(8, 11))
MsgBox plage1.Address
'test 1
plage1.Clear
MsgBox "La plage :" & plage1.Address & _
        IIf(Application.CountIf(plage1, 0) > 0, " contient ", " ne contient pas") & _
        " la valeur zéro.", vbInformation
'test 2
[H8] = 0
MsgBox "La plage :" & plage1.Address & _
        IIf(Application.CountIf(plage1, 0) > 0, " contient ", " ne contient pas") _
        & " la valeur zéro.", vbInformation
End Sub

 

[awa123]

Re : une valeur sur toute la plage de données VBA

dsl j'avais pas pu tester plus tot

merci c'est SUPER!!!