Résultats de la recherche

Bonsoir à tous, Ma solution par formules avec ALEA() en colonne D. Les formules en colonnes G H I sont assez évidentes. Fixer le tirage par collage spécial Valeurs. A+

Une autre manière est de choisir le dossier avec Application.FileDialog : Sub Recherche() Dim cible$, fso As Object, ncol%, dossier As FileDialog, sf$, lig&, f As Object, wb As Workbook, plage As Range, i&, j% cible = "*" & [F1].Text & "*" Set fso = CreateObject("Scripting.FileSystemObject")...

Bonjour largo41270, le forum, Si le dossier est déterminé il n'y aura qu'une vingtaine de fichiers à ouvrir. Il est parfaitement inutile de créer des liens hypertextes. Téléchargez les dossiers et fichiers zippés joints et exécutez ces macros : Sub Dossier() Dim chemin$, fso As Object, sf As...

J'ai ajouté UsedRange dans la 3ème ligne de la macro pour limiter Target. Pour le cas où l'on copierait une colonne sur elle-même. Bonne nuit.

Bonjour Sirberthoult, le forum, Ce problème est beaucoup plus compliqué qu'il n'y paraît, voici une solution VBA : Private Sub Worksheet_Change(ByVal Target As Range) Dim liste, i&, j%, P As Range, c As Range, k, cc As Range Set Target = Intersect(Target, Union(Columns("B"), Columns("D")...

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+