Contenu récent par laurent950

Bonsoir, avec Like Sub TesterToutesLesCombinaisons() ' Déclaration du tableau avec toutes les chaînes fournies Dim MesTests As Variant MesTests = Array("123456789/987654321/-1234/123.45/123a45", "1234/56789/0123/45", "12/5", "3/14", "0/1", "123456/7890", "12 / 5", " 12/5", "12/5...

Bonjour @job75 oui c'est juste = j'ai ajouté le troisième critères en Poste #17 ensuite = si A1 est Vide et B1 est Vide alors le Résultat en C1 = A1*B1 Ou A1+B1 (le resultat dans C1 sera 0) c'est Excel.

Bonsoir, une formule qui n'est pas matriciel

Somme 39 =SOMME(SOMME.SI.ENS(AxTable1[Quantité];AxTable1[Créateur];"Giovanni*";AxTable1[Entrepôt];{2401;2420;2422}))

Vos cellules de la colonne Entrepôt sont formaté en format nombre 2401 et non en forma texte "2401" comme votre exemple alors : =SOMME(SOMME.SI.ENS(AxTable1[Quantité];AxTable1[Créateur];"Giovanni*";AxTable1[Entrepôt];{2401;2422}))

Bonjour, =SOMME(SOMME.SI.ENS(AxTable1[Quantité];AxTable1[Créateur];"Giovanni*";AxTable1[Entrepôt];{"2401";"2422"}))

Le poste #48 c'est une autre demande Il faudrait ouvrir une nouvelle discussion Poster votre code vba = pour le comprendre Puis integrer le vba de cette discussion. Pour faire de ses 2 codes = 1 code

Ca fonctionne

@Michou9 C'est normal il n y a qu un dossier A-85 Créer un second dossier A-85 et coller celui-ci dans un autres sous dossier pour avoir un doublon il y aura la liste Faite la copie d ecrans une fois le code executer

Je ne comprend pas = faite une copie d ecrans une fois le code fini pour comprendre

Il faut essayer le code en poste #72 (uniquement) En A1 = noter votre chemin complet En A20 = le nom du dossier Cela devrait etre bon

Bonsoir la reponse est non Regarder le code qu il vous faut et en poste #72

Bonsoir : Nouvelle Variantes (Recherche depuis le disque) en cellule A1 noté : Exemple : C:\ D:\ La procédure fait la recherche sur tous le disque Option Explicit Option Compare Text #If VBA7 Then Private Declare PtrSafe Function...

Bonsoir @Michou9 @nullosse @job75 ca devrait etre vraiment beaucoup plus rapide En cellule A1 = noter le chemin complet du dossier source. Option Explicit Option Compare Text #If VBA7 Then Private Declare PtrSafe Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As...

Bonsoir @nullosse et si on essaie un benchmark basé pour tester différent code et calculer les temps de vitesses avec précision. il faut définir une base et construire le code comme nous somme plusieurs ca peux etre bien !