=MIN(SI(zone>M2;zone))
=SI(ESTERREUR(EQUIV(MAX(zone);$M3:M3;0));MIN(SI(zone>M3;zone));"")
Bonjour,Bonjour le Forum,
Bonjour Guismo33,
Un essai en fichier joint
cordialement
EDIT : Bonjour CISCO , Désolé pour la collision pas rafraichi.
Bonjour Jocelyn .Bonjour le Forum,
Bonjour Guismo33,
Un essai en fichier joint
cordialement
EDIT : Bonjour CISCO , Désolé pour la collision pas rafraichi.
Bonjour,Bonjour
Cf. en pièce jointe, toujours avec une formule matricielle..
@ plus
Je ne sais pas si le fichier du post #1 a été modifié, en tout cas il est très clair.Le mieux serait que tu écrives à la main dans ton fichier ce que tu désires obtenir.
Private Sub CommandButton1_Click()
Dim d As Object, c As Range
Set d = CreateObject("Scripting.Dictionary")
For Each c In [C3:J7] 'plage à adapter
d(c.Value) = ""
Next
With [L3] 'cellule à adapter
.Resize(, d.Count) = d.keys
Range(.Offset(, d.Count), Cells(.Row, Columns.Count)) = ""
End With
End Sub
Bonjour Guismo33, CISCO, Jocelyn, le forum,
Je ne sais pas si le fichier du post #1 a été modifié, en tout cas il est très clair.