Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
@ Jocelyn : Ta première proposition est bien plus simple que la mienne, car dans ce cas, puisqu'il s'agit de nombres et pas de textes, on peut faire directement avec PETITE.VALEUR ou même avec MIN.
Pourrais-tu être un petit peu plus précis : Veux-tu les résultats correspondant à chaque colonne séparément, les uns après les autres sur une seule ligne, sur une seule colonne...?
Je ne sais pas si le fichier du post #1 a été modifié, en tout cas il est très clair.
Solution VBA très classique :
Code:
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
La demande a évolué depuis le post #1. Cf. en pièce jointe diverses réponses possibles, obtenues avec des formules ou à la main, en prenant en compte les nombres de la colonne B (ce que je n'aurai pas dû faire). Laquelle désires-tu Guismo33 ?
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD