Résultats de la recherche

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 ?

Bonjour à toutes & à tous, bonjour @ced91300 Je re propose une solution par formule et non vba : En K3 =SI(($A3="X")*($B3="MAISON")*(($C3="AA")+($C3="BB")+($C3="CC"));"X";"") Je suis sur mon téléphone, je ne peux pas écrire de macro ... Voir pièce jointe À bientôt

Bonjour @Gégé-45550 , Moi aussi j'ai veillé, je t'ai répondu de mon téléphone, ta proposition a au moins le mérite d'exister !😉 À bientôt

Bonne nuit à toutes & à tous, bonne nuit Avec ce que j'ai compris, jour après jour. Nombre de mois, de semaines, et de jours restant. Sans utilisation de Datedif pour les mois, ni vba À bientôt

Bonsoir @Gégé-45550 Merci, mais si je ne me trompe pas, ça ne fonctionne que pour un classeur ouvert, nous cherchons des solutions pour des fichiers fermés. Ici ça ne renvoie que le dernier auteur du classeur actif. Je ne comprends pas à quoi sert de créer un autre FileSystemObject, il y en a...

re et oui un bj en trop, je n'avais pas bien compris :p

Non un nom d'objet incorrect (objFolder au liue de oFolder) J'utilise deux methodes : la propriété obtenue par FileStystemObject en octet le propriété obtenue par Shell en Ko, Mo, Go avec un facteur de 1024 octets je crois A bientôt

I'm talking to you. What a pity. A bientôt

Re, Après correction d'un copier-coller malheureux ... Le code : 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, Col_DateAccès = 11 Const pTaille = 1, pDateModif = 3, pDateCréation = 4, pDateAccès = 5, pAuteur = 20...

Bonsoir à toutes & à tous, bonsoir @Chrystel01, Bon comme d'hab j'arrive après la bagarre mais je propose aussi ma solution (qui ressemble étrangement à celles qui précèdent ! J'ai transformé ta liste en tableau structuré (nommé _Liste) Je teste l'existence du fichier. Je mets la taille en...

Bonjour à toutes & à tous, bonjour @Stéphane_1 Ton problème vient du fait que pour certaines sections de profilés tu as des valeurs décimales avec comme séparateur une virgule. La virgule étant aussi utilisée pour séparer les éléments de tes listes de validation. Utilise plutôt le point-virgule...