somme de différences absolues

[vincent]

bonjour,

j'ai un série de dates en a1:a10

serait-il possible en une seule formule de vérifier que tous les mois de ces dates sont identiques, sachant que formule doit etre aisément 'étendable' (!) à des plages plus grandes.
j'avais pensé à qqc du genre
si(somme(abs(mois(a1:a9)-mois(a2:a9)))=0;vrai;faux)
mais (sigh) ca ne marche pas..

merci de votre aide,

vincent

 

[Robert]

Bonjour Vincent, bonjour le forum,

Désolé mais je suis incapable de faire ça avec des forumules mais si cela peut t'intéresser, voici une petite macro que tu devras copier dans le composant WorkSheet de VBE (pas dans un module).

La macro fonctionne de la manière suivante : Sélectionne la plage qui t'intéresse et clique avec le bouton droit sur n'importe quelle cellule de la sélection. Si un mois est différent la cellule contenant ce mois devient active et un message apparaît. Sinon, un message indique que tous les mois sont identique.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Cel As Range 'déclare la variable Cel
Dim Mois As Byte 'décalre la varaible Mois

'condition : le clic du bouton droit ne fonctionne que sur une sélection de plus d'une cellule
If Selection.Cells.Count > 1 Then
'définit la variable Mois (par rapport à la première date de la sélection)
Mois = Month(ActiveCell.Value)

'boucle sur toutes les cellules de la sélection
For Each Cel In Selection
'si le mois et différent, sort de la bocle via a balise 'fin'
On Error Resume Next 'évit ele bug si la cellule ne contient pas de date
If Month(Cel.Value) <> Mois Then GoTo fin
Next Cel 'prochaine cellule de la sélection
MsgBox 'Tous les mois sont identiques.' 'message
Cancel = True 'empêche le menu contextuel lié au clic droit de la souris
Exit Sub 'sort de la procédure

fin: 'balise
Cel.Select 'sélectionne la cellule
MsgBox 'Mois différent pour la date sélectionnée!' 'message
Cancel = True 'empêche le menu contextuel lié au clic droit de la souris
End If
End Sub

 

[jocelyn]

Bonjour le Forum,
Bonjour Vncent,

alors en pièce jointe un essai la formule est en B15 si tu change le mois d'une des dates il vas te dire faux.

voila

Espérant t'avoir aidé

Jocelyn [file name=vincent.zip size=1469]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/vincent.zip[/file]

 

[jocelyn]

Re bonjour
Bonjour Robert,

désolé je ne t'avais pas vu enfin pas trop grave Vincent auras le choix

Jocelyn

 

[vincent]

Il y a une des solutions que je ne garderai pas, mais je n vous dirai pas laquelle (classique!!)
merci a tous les deux.
vincent