reussite code VBA

[bono64]

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

 

[_Thierry]

Bonjour Bono, le Forum

Là je suis sur une grosse appli pour moi et je fais juste un passage furtif de temps à autres sur XLD en 'récréation lol'...

Regardes ce fil récent où j'explique tout à Akeya06 justement pour ta question:

Lien supprimé

Bonne fin de journée et Week End
[ol]@+Thierry[/ol]

 

[bono64]

Merci Thierry
je sais pas si je vais y arrivé mais je vais faire le maxi
merci

 

[bono64]

BONJOUR
BON , et bien je n y sis pas arrivé ?
bono

 

[Hervé]

Bonjour bono, thierry, le forum


Pour rajouter les colonnes Y et Z, si j'ai bien compris.

Il te suffit de modifier ta boucle for to :

Au lieu de : For i = 0 To 4

utiliser : For i = -2 To 4

Par contre il te faut aussi modifier ta déclaration de variable:

remplace dim i as byte par dim i as integer.

Voilà.

Salut

 

[bono64]

bonjour Hervé

je te remercie , j avais reussi la variable , mais la boucle non , vraiment compliqué quand on comprend pas tout , ceci dit merci beaucoup car j adore ce calcul
merci bono