Tri de 3000 lignes par ordre croissant + macro tirage

James007 a écrit :

Bonjour,

Si tu as uniquement besoin de l'instruction pour effacer ta plage ...

Range("B1:R155").ClearContents

Super, je vais essayer mais comment créer une nouvelle macro sans intervenir dans ma 1ère ?

Re,

Si je comprends bien ta question ... tu as simplement besoin d'une seconde macro ... c'est à dire :

Sub Nettoyage()
Range("B1:R155").ClearContents
End Sub

James007 a écrit :

Re,

Si je comprends bien ta question ... tu as simplement besoin d'une seconde macro ... c'est à dire :

Sub Nettoyage()
Range("B1:R155").ClearContents
End Sub

Ici OUI.

Quand je vais dans visualiser le code j'ai mon 1er code qui apparait et je voudrais ne pas y toucher et en créer un nouveau que la même page.

Re,

Est-ce-que ta macro efface bien la plage définie ...???

je voudrais aussi modifier la zone des numéros sortis, ici cela irait de:

C3 à R3 + C5 à R5 et C7 à R7

Je complique à mon avis ? ?

C'est pour une question de mise en page.

James007 a écrit :

Re,

Est-ce-que ta macro efface bien la plage définie ...???

J'ai essayé. Ton code est à mettre à la suite du 1er ?

J'ai peur de foutre en l'air mon 1er code ...

James007 a écrit :

Re,

Est-ce-que ta macro efface bien la plage définie ...???

J'ai pas essayé. Ton code est à mettre à la suite du 1er ?

J'ai peur de foutre en l'air mon 1er code ...

Re

Pour te simplifier la compréhension ... pourquoi ne pas adapter la macro à tes besoins ..???

Sub Nettoyage()
Range("B1:R155").ClearContents
Range("C3:R3").ClearContents
Range("C5:R5").ClearContents
Range("C7:R7").ClearContents
End Sub

J'ai inséré le code, cela ne fonctionne pas. Probablement mal inséré

Sub Nettoyage()
Range("B10:F155").ClearContents
Range("H10:L155").ClearContents
Range("N10:R155").ClearContents
End Sub
Sub tirage()
Dim i As Byte
Dim Num As Variant
Dim tabTirage(0 To 37)
Range("A1:A2").Interior.ColorIndex = x1None
For a = 0 To 37
tabTirage(a) = Cells(3, a + 1).Value
Next a

For Each Num In Range("B8:R155")
For i = 1 To 37
If Num = tabTirage(i) Then
Num.Interior.ColorIndex = 4
End If
Next i
Next
End Sub

Re,

Visuellement ... il n' y a pas d'erreur ...

Mais le plus simple (et le plus rapide...) c'est que tu joignes ton fichier ...

c'est fait

Re,

Je n'ai fait que nettoyer l'emplacement de tes macros ... et rajouter un bouton pour le nettoyage ...

Je n'ai pas testé tes deux macros de mise à jour et de tirage ...

Merci pour le bouton 'nettoyage' mais je ne veux pas effacer les combinaisons de chiffres.

Je voudrais juste mettre un fond blanc ou (transparent) qui se ferai automatiquement en cliquant sur le bouton.

Cellules concernées: de B10 à R155 qui est la zone des différentes combinaisons.

Je ne sais pas si je me fait bien comprendre ?

Merci pour ton aide

Re,

Nouveau code à tester ...

Sub Nettoyage()
Range("B10:R155").Interior.Color = xlNone
Range("C3:R3,C5:R5,C7:R7").ClearContents
End Sub

Là çà va mieux, j'ai juste retirer la ligne: (elle doit rester elle)

Range("C3:R3,C5:R5,C7:R7").ClearContents

Il me reste les chiffres du tirage, de 1 à 16 c'est OK par contre à partir de 17 il ne prends pas en compte

Je voudrai avoir les chiffres du tirage compris en C3 à R3, C5 à R5 et C7 à R7.

Re,

Désolé ... mais, pour moi, ton dernier message est totalement incompréhensible ...

Dans les cellules bleues sont les numéros tirés, ceux-ci sont encodés manuellement au fur et à mesure du tirage des boules.

Les 16 premiers numéros encodés sont bien sélectionnés après une mise à jour, par contre du 17 au 37 chiffres rien n'est pris en comptes. Exemple: le 17, après mise à jour les 17 ne deviennent pas verts.

Re,

Je t'ai déjà indiqué que je ne suis pas du tout occupé .... de tes deux autres macros ...

Je ne sais pas qui a rédigé la macro tirage ... mais cette macro utilise une ligne fixe ... la ligne 3 ... donc il y a vraiment très peu de chances que les deux autres lignes 5 et 7 ... soient prises en compte ....

James007 a écrit :

Re,

Je t'ai déjà indiqué que je ne suis pas du tout occupé .... de tes deux autres macros ...

Je ne sais pas qui a rédigé la macro tirage ... mais cette macro utilise une ligne fixe ... la ligne 3 ... donc il y a vraiment très peu de chances que les deux autres lignes 5 et 7 ... soient prises en compte ....

ahh ok, sorry.

Vais voir avec Galopin.

Encore merci pour l'aide

Re,

Ci-joint ton fichier test ...

EXCELLENT ! MERCI

J'ai augmenté à 48 le nombre de boules sortantes.

Dernier peaufinement si c'est possible.

Serait-il possible qu'à la 1ère ligne complète de 15 chiffres (exemple ici: la carte 3 en A12) la cellule change de couleur.

Et cela pour n'importe quelle carte qui serait complète, donc de carte 1 à carte 20, etc...

Re,

Ci-joint tes deux dernières modifications ...