Discussion :

[dtsoro]

Bonjour a tous
J'ai besoin de votre aide pour ecrire une function VBA utilisable dans un classeur excel.
j'ai 3 colonne A, B et C
je voudrais que pour la ligne i par exple:
que la function compare Ai et Ai-1
si Ai =Ai-1 alors
si Bi-1<Bi<Ci-1 on accepte la valeur entrer en Bi
sinon on affiche un message et on efface Bi
sinon on accept la valeur entrer en Bi
Cette fonction permettra de s'assurer qu'il n'y pas de chevauchement entre les intervall saisi.
les colonnes B et C representent les extremintes des intervalles et A la famille a laquelle appartiennent ces intervalles.
une famille peux avoir plusieurs intervalles.
les colonne B et C contiennent des nombre decimaux
je compte bcp sur votre aide.
Merci d'avance

[spoyet]

Bonjour;

Un exemple ne serai pas de trop

A+

[defluc]

Salut,

Si je comprends bien, la fonction doit attribuer sa valeur à la colonne B.

La fonction retournant toujours une valeur, même nulle, je testerais cette valeur plutôt qu'envoyer une message.

A part cela, voici un exemple correspondant à ce que tu attends avec les limites des renseignements fournis, donc très imparfaite.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Function Test() As Double
Dim R As Integer
  R = ActiveCell.Row
  If Cells(R, 1) = Cells(R - 1, 1) Then
    If Cells(R, 2) > Cells(R - 1, 2) And _
       Cells(R, 2) < Cells(R - 1, 3) Then
      Test = Cells(R, 2)
                                     Else
      Cells(R, 2) = ""
    End If
  End If
End Function

[dtsoro]

Merci le lefluc je vais essayer ta proposition et je donnerais la suite.
en attendant voici un exemple de ce que je voudrais eveiter par cette fonction

A B C
d 12 14
d 13 15
d 17 18
d 18 20
d 18 21
f 34 35
f 36 33

je voudrais que cette fonction me permette d’éviter les chevauchements d'intervalles. ces intervalles n'ont pas la mémé amplitude et ne sont pas consécutifs
Merci