B
bono64
Guest
bonjour
en travaillant ce fichier je ne savais pas que j allais avoir autant de joie , j aimerais pouvoir rajouter ds ces lignes vba , les colonnes Y et Z de mon tableau , mais ou je ne sais pas ?
voici ce code bonne fin de week end
merci
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
en travaillant ce fichier je ne savais pas que j allais avoir autant de joie , j aimerais pouvoir rajouter ds ces lignes vba , les colonnes Y et Z de mon tableau , mais ou je ne sais pas ?
voici ce code bonne fin de week end
merci
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