Tri de 3000 lignes par ordre croissant + macro tirage

Bonjour,

Voilà j'ai essayer d'ajouter deux lignes pour avoir plus de possibilités pour le tirage.

Malheureusement je n'arrive pas à modifier le code à partir de 48 en R7.

Idem pour la ligne complète suivante de C9 à R9.

J'ai essayé de jouer avec la macro mais je n'y arrive pas ... d'avance merci.

Je ne comprends pas cette partie du code:

For a = 1 To 64
  Select Case a
   Case 1 To 17
      tabTirage(a) = Cells(3, a + 1).Value
   Case 17 To 33
      tabTirage(a) = Cells(5, a - 15).Value
   Case 33 To 50
      tabTirage(a) = Cells(7, a - 31).Value
   Case 49 To 64
      tabTirage(a) = Cells(9, a - 47).Value

      End Select

Bonjour,

Ci-joint ta modif pour un tirage élargi ...

A tester ...

Super,merci

Je vais regarder demain car R7, R9 ne fonctionne pas.

Je vais essayer d'ajouter DEUX nouvelles lignes au niveau du tirage.

Par sécurité je voudrais qu'il y ai 90 numéros à tirer.

Qu'est-ce que j'avais raté dans mon code ?

Bonjour,

Content que cela fonctionne ...

Pour bien comprendre toutes les modifications, je te suggère de comparer ligne à ligne les deux macros : celle de la Version 3 avec celle de la Version V3 Bis ...

Bonne Continuation ...

Bonjour à tous, meilleurs voeux pour cette année 2016

Je reviens vers vous au sujet de ma macro.

Pour info le tirage de l'année tout s'est très bien passé.

Cette année le nombre de cartes a augmenté, je dépasse les 450 cartes !

J'ai un petit soucis, je m'explique: quand une ligne complète est au vert celle-ci passe au rouge.

Le soucis que j'ai c'est que cela fonctionne jusqu'à la ligne 254, dès que j'essaie de mettre 255 ou dans mon cas 456 (nombre de ligne), j'ai le message suivant: Erreur d'exécution, dépassement de capacité

J'espère et je croise les doigts... y a-t-il une solution ?

Le fichier est en pièce jointe.

D'avance merci

çà y est j'ai trouvé, il suffisait de remplacer:

Dim I As Byte par Dim I As Integer

Dim N As Byte par Dim N As Integer