Contenu récent par job75

Bonsoir billABDELL, sylvanu, =SOMMEPROD(--ESTNUM(-DROITE(plage))) Pas besoin de validation matricielle. A+

Bonjour cathodique, le forum, Pour cadrer il faut utiliser la propriété TopIndex des ListBox : Private Sub ListBoxIdAnimal_Change() If flag Then Exit Sub flag = True Dim i&, ID As Variant For i = 0 To ListBoxPerson.ListCount - 1 ListBoxPerson.Selected(i) = False Next i ID =...

J'ai mis la propriété MultiSelect de ListBoxIdAnimal sur fmMultiSelectExtended. Le code modifié : Dim flag As Boolean 'mémorise la variable '--- Private Sub ListBoxIdAnimal_Change() If flag Then Exit Sub flag = True Dim i&, ID As Variant For i = 0 To ListBoxPerson.ListCount - 1...

Bonjour cathodique, Bernard, Voyez le fichier joint et ces 2 macros dans le code de l'UserForm : Private Sub ListBoxIdAnimal_Click() Static flag As Boolean If flag Then Exit Sub flag = True Dim i&, ID As Variant For i = 0 To ListBoxPerson.ListCount - 1 ListBoxPerson.Selected(i) = False Next...

J'ai corrigé mon post #88 car il y avait une coquille dans la définition de la zone4.

Mes sélections se font dans la feuille entière comme je l'ai dit.

Bonjour à tous, Je n'ai pas suivi ce fil. Voici 2 macros qui sélectionnent les cellules verrouillées ou déverrouillées de toute la feuille : Sub Selection_cellules_verrouillees() Dim ur As Range, zone1 As Range, zone2 As Range, zone3 As Range, zone4 As Range, zone5 As Range, c As Range, ref As...

C'est classique avec les heures, les calculs de la formule en B9 et de 35/24 donnent des résultats légèrement différents. Bonsoir @riton00.

Bonjour marmotte17, Mettez la cellule D9 au format Scientifique, vous verrez que sa valeur est 2,22E-16 A+

On peut tout bêtement repérer la colonne par son numéro : LO.Range.Columns(2).NumberFormat = "#,##0"

Bonjour JFJ_XLD, Je comprends que votre formule recherche une fréquence de 1. Mais la fréquence minimum peut être 2, 3 ou plus ? A+

Bonjour à tous, Oui il vaut mieux utiliser Range car DataBodyRange peut être Nothing... A+

Alors utilisez : =SIERREUR(MIN(SI(NB.SI(plage;plage)=PETITE.VALEUR(SI(ESTNUM(plage);NB.SI(plage;plage));1);plage));"")

Bonjour le forum, La concaténation des ex-aequo ne vous intéresse pas ? Voici la formule pour éliminer les cellules vides : =SIERREUR(JOINDRE.TEXTE(" ; ";VRAI;SI(NB.SI(plage;plage)=PETITE.VALEUR(SI(NON(ESTVIDE(plage));NB.SI(plage;plage));1);plage;""));"") A+

Bonsoir bourcier1952, [edit] bonsoir djidji59430, Si la plage à étudier est nommée plage utiliser : =JOINDRE.TEXTE(" ; ";VRAI;SI(NB.SI(plage;plage)=MIN(NB.SI(plage;plage));plage;"")) C'est une formule matricielle mais sur Excel 2021 la validation matricielle n'est pas nécessaire. A+