Valeurs toutes identiques dans une plage - VBA

Le
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 <<<
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
tissot.emmanuel
Le #4493451
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" 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 <<<










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


--
Visitez notre site !
www.tohubohu.fr <<<
"tissot.emmanuel"



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" 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 <<<














garnote
Le #4493371
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"
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 <<<










Publicité
Poster une réponse
Anonyme