code vba

[bono64]

BONJOUR

j ai un probleme sur le code , il se bloque a la ligne 133 je ne sais pas quoi faire , alors que j aimerais qu il aille au moins a 300
VOICI LE CODE Sub Bouton2_QuandClic()
Dim c As Range
Dim tablo()
Dim x As Byte, i As Byte, j As Byte
Dim temp As Byte


For Each c In Range('aa7:aa' & Range('aa65536').End(xlUp).Row)
x = 1
ReDim tablo(1 To x)

For i = 0 To 4
Select Case c.Offset(0, i)
Case 1, 2, 3
ReDim Preserve tablo(1 To x)
tablo(x) = c.Offset(0, i)
x = x + 1

End Select
Next i

For i = 1 To UBound(tablo)
For j = 1 To UBound(tablo)
If tablo(i) < tablo(j) Then
temp = tablo(i)
tablo(i) = tablo(j)
tablo(j) = temp
End If
Next j
Next i

c.Offset(0, 15) = Join(tablo, '')
Erase tablo
Next c

End Sub

merci de votre aide
bono

 

[PascalXLD]

Bonjour

Redimensionnes tes variables en Integer au lieu de Byte pour voir

 

[bono64]

ok , mais je dois avoir un soucis il comprend pas , ou moi sans doute
vu le bloc , je vais lire
bono

 

[PascalXLD]

RE

Je vouslais dire

remplace

Dim x As Byte, i As Byte, j As Byte

par

Dim x As Integer, i As Integer, j As Integer

 

[Hervé]

Bonjour bono, pascal

je reconnais ce code. 🙂

bizarre qu'il se bloque à la ligne 133

Je viens de tester sur 240 lignes et j'ai pas eu de souci.

pourrais tu mettre une partie de tes données en pièce jointe.

salut

 

[bono64]

je vais essayer autrement car il marchais au depart
bono-
merci