Résultats de la recherche

bonjour toutes :)et tous:) post au depart interessant mais on manipule item cle pas besoin dans ce cas de figure... Je vois meme du transpose;);) plus de limite eh non ????:rolleyes:plus trop adapte depuis excel 2007 < 65000 ???? split bof bof :rolleyes: :rolleyes: leti qui fait...

bonjour toutes :):) et tous :):) je me joins a vous pour exprimer mes sincéres codeléances a sa famille et a ces ami (é)s gros bisous léti😭

bonjour les amis :):):):):) un autre code manipulant Add Sub es() Dim t(), m As Object, z, x As Long, i As Long t = Feuil1.Range("a2:b" & Feuil1.Cells(Rows.Count, 1).End(3).Row) Set m = CreateObject("Scripting.Dictionary") For i = 1 To UBound(t) z = t(i, 1) & t(i, 2) If Not m.Exists(z) Then...

bonjour toutes ;);)& tous:):) pas trop active depuis quelques mois sorry !!! en restant sur la même idée ecrit resultat en h2 Sub es() Dim t(), i As Long, m As Object, x As Long, z, c As Byte Application.ScreenUpdating = 0 Set m = CreateObject("Scripting.Dictionary") t = Range("a2:f" &...

re tous:):):):):) salut michel;) je viens de faire quelques test si utilisation Test_validation occupation on multiplie par 60x avec test validation1 aucun pb... je lance 10 fois le test avec 16000 meme sans effacer avec la macro es aucun pb... toujours 0.01 ou 0.02 mais si utilisation de...

re :):):):) rassure toi mon ami j'ai bien vu bien ton dernier message.... mais j'ai eu l'impression que tu avais pas suivi le post dep uis hier on a pas avancé d'ailleurs on c'est pas ce qui ce passe ...........j'ai regardé les spef... de ton dernier proc pas mal du tout dans l'avenir je...

re JM :) pourquoi tu pleures :(:(:(

re ,bonsoir tous:):):) :) victor;);) a que!!!! pas contente latiatia:) plus serieusement je confirme j'ai rien fait Job;) a par utiliser Test_validation1 de notre ami Pierre :) pour 16000 apres "vidange" avec Test_validation1 aucun souci instantane 0.001 avec Test_validation 2.25...

re,tous:):):):) JM :) essai test avec 4 GO impossible pc booste pas .....lui pas content:( avec 8 GO demarre bien test avec 8 GO ne change rien idem 16 GO cela se comprend 8 GO bien suffisant avec excel .....avec des programmes type photoshop suremement une incidence pas testé...

re job je viens de voir ton post 53 moi pas de souci supp... ligne rapide ?? BON moi dodo a+:):)

re JM :) quand je parle du cache excel en vularigant c'est le pressepapiers pour tester l'incidence ram je vais faire du faire du materiel pour moi c'est simple j'ai 4 barettes de 4 GO 3 enlevé donc ????

re ,salut victor:) j'ai installe un logiciel de test pour cpu intel depuis que je fais de overcloking intel extrem tuning utility avec amd peut être equilavent gestion vcore ram & surtout temp c'est pas simple tout cela d'ailleurs si j'ai le temps demain je ferais un test avec...

re ,job:), jm:) je viens de refaire des tests avec le fichier de pierre:) sans effacer la ligne 3 important mes premiers tests voir si augmentations ram pc a chaque appel avec les 3 macros on va dire ok ....verif memoire cache d'excel ok egalement test avec macro comme job;) 1000 0.15...

re tous:):):):) pour être + prolixe:p JM proc... 6700k frequence de base 4 GHz turbo 4.2GHz overcloké a 4.6 GHz turbo deactivé 16 GO ram ddr4 frequence de 3000 MHz samsung 960 pro NVM.2 ce type de ssd plus rapide pour demarrage pc chargement progr...ou ouverture fichier tres rapide egalement...

bonjour tous:):):):):):):) que du beau monde;);) par curiosite j'ai teste le post 7 fonction index avec win 10 64 bits & excel 2007 pour 1000 4.80 secondes pour 16000 503 secondes excel 7 pas aime index..... avec fonction decaler pas de pb instantané je vais surement passer a...

bonjour tous:):):):):):) enfin !!! pas tous:rolleyes: nialuopregor:mad::mad: j'ai pas trouvé l'historique des missions que tu as mené jusqu'au bout

bonjour tous :) une methode ....ordre de tabulation sur le commandbutton1 au depart pour le focus important Dim x'debut module Private Sub TextBox3_Change() TextBox14 = x + Val(TextBox3) End Sub Private Sub TextBox3_Enter() x = Val(TextBox14) End Sub Private Sub TextBox4_Change() TextBox15...

re,:) c'est la meme chose tu utilise BackColor ?? Me("TextBox" & i).BackColor = IIf(Cells(i + 1, 3) = "", &HE0E0E0, &H80000005) ps :l'ami Job:) te la montré IIF post3

bonjour tous:):):) brut comme cela For i = 3 To 16 Me("Label" & i) = Cells(i + 1, 3) Me("TextBox" & i).Enabled = IIf(Cells(i + 1, 3) = "", 0, 1) Next i

bonjour tous:):):) je mettrais quand meme un separateur special en cas ou plusieurs mot avec espace .Cells(i, 1) = .Cells(i, 50) & "ù" & .Cells(i, 2) & "ù" & .Cells(i, 3) pour eclater sans manipuler SPLIT .......un code de base Range("a2:a" & Cells(Rows.Count...