Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Valeurs toutes identiques dans une plage - VBA

Valeurs toutes identiques dans une plage - VBA

3 réponses
Avatar
Gadget
Encore salut à tous.

Y a-t-il un moyen rapide (implémenté dans vba) de vérifier si toutes las
valeurs d'une plage sont identiques ?
Merci.


--
Visitez notre site !
>>> www.tohubohu.fr <<<
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
tissot.emmanuel
Bonjour,

Function TousPareil(Plage As Range) As Boolean
If WorksheetFunction.CountIf(Plage, Plage.Cells(1).Value) =
Plage.Cells.Count Then TousPareil = True
End Function

Cordialement,

Manu/

"Gadget" a écrit dans le message de news:
464091b3$0$5085$
Encore salut à tous.

Y a-t-il un moyen rapide (implémenté dans vba) de vérifier si toutes las
valeurs d'une plage sont identiques ?
Merci.


--
Visitez notre site !
www.tohubohu.fr <<<










Avatar
Gadget
Ah ben oui, je n'avais pas pensé au Worksheetfunction.
Merci.


--
Visitez notre site !
www.tohubohu.fr <<<
"tissot.emmanuel" a écrit dans le message de news:



ek%23W%
Bonjour,

Function TousPareil(Plage As Range) As Boolean
If WorksheetFunction.CountIf(Plage, Plage.Cells(1).Value) =
Plage.Cells.Count Then TousPareil = True
End Function

Cordialement,

Manu/

"Gadget" a écrit dans le message de news:
464091b3$0$5085$
Encore salut à tous.

Y a-t-il un moyen rapide (implémenté dans vba) de vérifier si toutes las
valeurs d'une plage sont identiques ?
Merci.


--
Visitez notre site !
www.tohubohu.fr <<<














Avatar
garnote
Ou bien ceci :

Sub Identiques()
Set p = [D6:D11]
If WorksheetFunction.CountIf(p, p(1)) = p.Cells.Count Then
MsgBox "Identiques."
Else
MsgBox "Non identiques."
End If
End Sub

Serge

"Gadget" a écrit dans le message de news: 464091b3$0$5085$
Encore salut à tous.

Y a-t-il un moyen rapide (implémenté dans vba) de vérifier si toutes las valeurs d'une plage sont identiques ?
Merci.


--
Visitez notre site !
www.tohubohu.fr <<<