Résultats de la recherche

  1. L

    Séparer éléments dictionnaire dans Array[RESOLU]

    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...
  2. L

    SUPPRIMER LES DOUBLONS ET ADDITIONNER LES DURées

    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" &...
  3. L

    XL 2013 Effacement problématique avec la fonction INDEX

    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...
  4. L

    XL 2013 Effacement problématique avec la fonction INDEX

    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...
  5. L

    XL 2013 Effacement problématique avec la fonction INDEX

    re JM :) pourquoi tu pleures :(:(:(
  6. L

    XL 2013 Effacement problématique avec la fonction INDEX

    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...
  7. L

    XL 2013 Effacement problématique avec la fonction INDEX

    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é...
  8. L

    XL 2013 Effacement problématique avec la fonction INDEX

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

    XL 2013 Effacement problématique avec la fonction INDEX

    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 ????
  10. L

    XL 2013 Effacement problématique avec la fonction INDEX

    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...
  11. L

    XL 2013 Effacement problématique avec la fonction INDEX

    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...
  12. L

    XL 2013 Effacement problématique avec la fonction INDEX

    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...
  13. L

    XL 2013 Effacement problématique avec la fonction INDEX

    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...
  14. L

    XL 2010 Quel changement sur ce site. Je suis vraiment déçu

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

    Additionner qu’une seul fois les textBox

    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...
  16. L

    Remplir plusieurs labels au moyen d'une boucle?

    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
  17. L

    Remplir plusieurs labels au moyen d'une boucle?

    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
  18. L

    Espace concatener

    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...
  19. L

    Controles lors sortie de texbox ne fonctionne pas

    bonjour donpopo,Chalet :):) une methode mais bon un peu du"bricolage" regarderai avec une classe si un peu de temps :(
  20. L

    [RESOLU] Groupe d'optionButton

    bonsoir tous:):) salut mapomme;) c'est quoi l'utilité dans ce cas la?????:rolleyes:
Haut Bas