@Jacques et Joe et Marc
Exact...
Cet autre test le prouve également :
Sub test()
Dim Rng As Range, Tb(1 To 200000, 1 To 1), i As Long, j As Byte, x As Long
For j = 2 To 5
x = 8192 * j
Type: Messages; Utilisateur: pijaku
@Jacques et Joe et Marc
Exact...
Cet autre test le prouve également :
Sub test()
Dim Rng As Range, Tb(1 To 200000, 1 To 1), i As Long, j As Byte, x As Long
For j = 2 To 5
x = 8192 * j
Oui, ça je l'avais bien deviné.
Cependant, ça me pose problème ici car je ne peux plus réaliser le test dont tu parlais ici :
Et voir également mon autre petit souci, pour une explication, si...
Autre souci décelé depuis l'utilisation de cette fonction :
Ce test fonctionne bien et me donne les résultats surprenants indiqués après...
Sub test()
Dim Rng As Range, Tb(1 To 200000, 1 To 1),...
Jacques,
:help:
Qu'as-tu fait à mon Excel?
Depuis que j'ai testé ta fonction, la propriété Areas de mon Excel "déconne"...
En fait, je teste le nombre d'areas après la méthode SpecialCells,...
Bonjour à tous,
Chez moi : 26,58594 secondes pour Delete.
Je suis d'accord avec toi .
Toutefois, dans ce sujet, je me suis pris au jeu de trouver le Range résultant, à titre d'exercice....
Salut Jacques,
J'ai été absent ce week end, désolé.
Je te réponds vite fait ce soir et expliciterai ma réponse demain.
Je vois déjà un petit souci dans ta fonction sur ce passage :
If...
En fait, quand d'Areas est supérieur à 8192 Areas.Count retourne 1.
Par conséquent, il conviendrait de boucler sur plusieurs plages du Range donné en paramètre.
==> Récursivité.
Qui s'y colle ?...
Jacques,
J'ouvrirais volontiers cette discussion, pas aujourd'hui, mais en début de semaine prochaine.
Juste pour ma compréhension.
Mais, ici, le chiffre 7 ne produit aucun doublon.
Tout comme le...
Jacques,
Oui, je l'ai lu, compris.
Mais, si c'est juste un souci "d'aléatoirisation", le souci serait, lui aussi, aléatoire.
Cela lui prendrais également de temps à autre avec x = 16 ou x = 9....
Tout comme toi, au Timer :
Private Sub Remplissage(n As Long, x As Integer)
'remplit la feuille
Dim i As Long, k As Long, L() As String
ReDim L(0 To n, 0 To 4)
Randomize...
Messieurs, (allo Youz tonne) on a un problème.
J'ai redémarré mon pc, n'ai ouvert qu'Excel et le gestionnaire des tâches Windows (pour zieuter l'utilisation UC), et voici les résultats :
...
Et bien parlons-en.
J'ai réalisé ce test.
Soit x dans : L(i, k) = Chr(Int((x * Rnd) + 65))
Vérification Numbre One : For x = 1 To 26
4,570313 secondes pour x = 1
6,117188 secondes pour x = 2...
Bonjour à tous,
Salut Jacques,
J'essaie de rattraper le retard...
Je n'interviens rapidement que sur ton idée d'un tri de variable tableau à 2 dimensions (je reviendrais tout à l'heure).
Ce...
A mon avis, tu peux y aller, il est assez compétent pour reprendre en cours de route...
Bonjour à toutes et tous,
C'est très exactement cela que j'entendais en parlant de fonction universelle à propos des doublons...
Bon, ceci étant dit, j'ai préparé mon fichier et bien fait mes...
Je reviens sur "l'universalité" d'une fonction à propos des doublons.
Il faut que celle-ci soit adaptable à tous les cas. Soit je veux une liste de données uniques, soit je veux une liste des...
Patrick,
1- tu te contredis complètement en affirmant que tout dépend de l'environnement du fichier et que tu veux créer une fonction universelle... Il te faudrait créer, pour cela une fonction avec...
Salut,
Encore un fil qui se perd totalement à cause d'egos. Dommage, certains, dont moi, auraient apprécié avoir d'autres solutions, juste pour apprendre.
Pour apprendre le vba parce qu'en matière...
Bonjour messieurs,
Je suis "de loin" cette discussion et ces très nombreux "rebondissements", et je n'arrive pas à saisir toute la portée de ces "méandres".
Vous allez certainement pouvoir...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.