Contenu récent par AtTheOne

Bonsoir @Valtrase, C'est une possibilité sauf si le but est de faire une recherche sur toutes les unités du PC en une seule fois. Sans plus d'informations que celles du post de départ difficile à dire. À bientôt

Bonjour à toutes & à tous, bonjour @lynyrd Sans le Userform, difficile de faire plus que ceci : Un exemple pour parcourir tous les unités actives et indiquer si les répertoires cherchés existent sur ces unités : Option Explicit Const Chemin0$ = "\videotheque\affiches\" Const Chemin1$ =...

Bonjour à toutes & à tous, bonjour @gillesda Peut-être sans macro avec les fonctions de feuille de calcul : = MINUSCULE(A1) convertit le texte contenu en A1 en minuscule =MAJUSCULE (A1) convertit le texte contenu en A1 en minuscule =NOMPROPRE(A1) met les initiales en majuscule , le reste en...

Bonne nuit à toutes & à tous, bonne nuit @patrickm Bon, bien-sûr c'est un peu tard (dans la nuit et dans le post) mais j'y vais de ma proposition. Comme je pense que multiplier les contrôles de formulaire ou les ActiveX dans une feuille conduit vite à des ralentissements, je suis parti sur...

Bonjour, A2 est différent de "Biscuits" il faut voir si A2 contient "Biscuits" : =SI(ESTNUM(CHERCHE("Biscuits";A2));"OK";"Non")

Dans ce cas, il faut utiliser la solution de @job75 qui parcourt toute la plage de donnée : Code Sub ContrôleSaisie(sh As Worksheet) Dim tablo, i&, x With sh.Range("A1", sh.UsedRange).Resize(, 11) tablo = .Value 'matrice, plus rapide For i = 1 To UBound(tablo)...

Bonsoir @job75 , j'ai testé, c'est top 👍 A bientôt

Re Autre point, tu peux marquer la proposition qui te convient comme solution, pour que les futurs lecteurs puisse aller directement à cette solution A bientôt

Re, Voir la pièce jointe avec 2 noms définis "Date_Déb" et "Date_Fin" à bientôt

Bonsoir @ced91300 Bon, sur mon pc ça fonctionne : Le code est-il au bon endroit : Les événements ne sont-ils pas bloqués ? Si c'est le cas la macro ne peut pas se dérouler, réactive les avec cette petite macro : Sub ActiveEvents() Application.EnableEvents=True End Sub Sinon je ne vois pas...

Normal, mes formules ne tiennent pas compte de l'année puisqu'au départ il s'agissait d'un compte à rebours jusqu'au 31/08/2024 ...

Bonjour @Cousinhub Ta solution m’intéresse, peux-tu la postée (sans les références des fichiers évidemment ;)) Merci d'avance

Bonjour @Chrystel01 Ma version, pour 954 fichiers, a mis 3 minutes, l'as-tu essayée ? A bientôt EDIT : et sans l'auteur obtenu par shell c'est quasi instantané Const Col_Nom = 4, Col_Path = 5, Col_Path_R = 6 Const Col_Taille = 7, Col_AUTEUR = 8, Col_DateCréation = 9, Col_DateModif = 10...

Re, J'ai récuoéré mon PC, voici une version via macro : le code dans le code de la feuil1 : Private Sub Worksheet_Change(ByVal Target As Range) Dim lgn As Long If Target.Count = 1 And InStr("-1-2-3-11-", "-" & Target.Column & "-") <> 0 Then Application.EnableEvents = False...

Oui mais ce qui est agaçant c'est que windows, dans les propriétés du fichier est capable de le lire, il doit bien y avoir une ressource qui permet d'obtenir cette info non ?