Discussion :

[Medde]

Bonsoir,

J'aimerais savoir s'il existe une fonction sur Excel qui indique si les valeurs des cellules d'une colonne sont constantes ? Si ce n'est pas le cas, pourriez-vous me fournir une piste pour construire un programme en VBA me permettant de réaliser cela ? (J'ai fait une petite recherche sur le forum sans succès)

Je vous remercie.

Bonne soirée.

[patricktoulon]

bonsoir
par constantes tu entends toujours pareil ou constatnts(texte)

[Medde]

Bonsoir, mêmes nombres sur toute la colonne.

[Promethee25]

Bonsoir,

Une formule Excel irait très bien:
Admettons que ta plage soit A1:A7, la formule serait (à supposer que tu n’aies pas de cases vides dans cette plage, et surtout pas A1):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI(A1:A7; A1)=NBVAL(A1:A7)

Si tu veux gérer les cases vides:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ET(NB.SI(A1:A7; MAX(A1:A7))=NBVAL(A1:A7); NB.VIDE(A1:A7)=0)

[patricktoulon]

Bonsoir
cette fonction te renvoie true ou false si ca n'est pas le cas
possibilité 1 si il y a des cellules blanches c'est faux
possibilité 2 si il n'y a pas de cellules blanches et que toute les cellules ont la mêmes valeur alors c'est true
possibilité 3 si toute les valeurs ne sont pas les mêmes c'est faux

remplace le 1 pour l'index de colonne que tu veux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 Sub test1()
 MsgBox pareilOK(1)
 End Sub
 
 Function pareilOK(col) As boolean 
Dim plage As Range, derlig
derlig = Cells(Rows.Count, col).End(xlUp).Row
Set plage = Range(Cells(1, col), Cells(derlig, col))
pareilOK = WorksheetFunction.CountIf(Columns(1), Cells(1, 1).Value) = plage.Rows.Count
End Function

[Docmarti]

Bonsoir.

même nombre sur toute la colonne

Peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MAX(A:A)=MIN(A:A)

[Medde]

Merci à vous tous