Encore un souci avec une Macro

[pat8.lejeune]

Voilà j'ai cette Macro et le résultat du tri se place en colonne B je voudrai qu'il soit en C

Merci de M'aider

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim i As Byte, j As Byte, k As Byte
Dim temp

tablo = Range("a1:a" & Range("a65536").End(xlUp).Row)
ReDim Preserve tablo(1 To UBound(tablo), 1 To 2)

For i = 1 To UBound(tablo)
Randomize
tablo(i, 2) = Rnd
Next i

For i = 1 To UBound(tablo)
For j = 1 To UBound(tablo)
If tablo(i, 2) > tablo(j, 2) Then
For k = 1 To UBound(tablo, 2)
temp = tablo(i, k)
tablo(i, k) = tablo(j, k)
tablo(j, k) = temp
Next k
End If
Next j
Next i


For i = 1 To UBound(tablo)
Cells(i, 2) = tablo(i, 1)
Next i



End Sub

 

[CBernardT]

Re : Encore un souci avec une Macro

Bonjour pat8.lejeune et le forum,

Très beau sur Toulouse

Au lieu de :
Cells(i, 2) = tablo(i, 1)

Mettre :
Cells(i, 3) = tablo(i, 1)

Cordialement

Bernard

 

[mutzik]

Re : Encore un souci avec une Macro

bonjour,

voila un code tout simple
if 'début de message' = 'bonjour' then
répondre
else
msgbox 'au revoir'
end if

 

[pat8.lejeune]

Re : Encore un souci avec une Macro

Désolé BONNE JOURNÉE à tous
et Merci bien pour votre aide Précieuse

Je n'ose plus demander de l'aide Maintenant

 

[mutzik]

Re : Encore un souci avec une Macro

surtout pas, tu reviens quand tu en éprouve le besoin, mais de temps en temps, j'aime bien rappeller certaines règles qui sont écrites dans la charte de ce forum que tout les intervenants n'hesitent pas à lire ... ;-)