macro probleme

[flo65000]

Bonjour,
je sais pas comment faire pour modifier la macro qui me permettra de commencer la liste en A2 jusqu'à A17 et de mettre un titre a la colonne en A1
MERCI de repondre.
cordialement

 

[ROGER2327]

Re : macro probleme

Bonjour flo65000,

En remplaçant votre code par celui-ci

Option Explicit

Sub poule()
Dim tableau, NbLignes As Long, i As Long, x, y
    If Range("B65536").End(xlUp).Row > 1 Then Range("B2:E" & Range("B65536").End(xlUp).Row).ClearContents
    Randomize
    NbLignes = Range("A65536").End(xlUp).Row
    If NbLignes > 1 Then
        tableau = Application.Transpose(Range("A2:A" & NbLignes).Value)
        NbLignes = NbLignes - 1
        For i = NbLignes To 2 Step -1
            x = Int(Rnd * i + 1)
            y = tableau(x)
            tableau(x) = tableau(i)
            tableau(i) = y
        Next i
        If NbLignes = 1 Then
            Cells(2, 2) = tableau
        Else
            For i = 1 To NbLignes
                Cells(2 + (i - 1) \ 4, 2 + ((i - 1) Mod 4)) = tableau(i)
            Next i
        End If
    End If
End Sub

Sub raz()
    If Range("B65536").End(xlUp).Row > 1 Then Range("B2:E" & Range("B65536").End(xlUp).Row).ClearContents
    Range("A1:A" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("A1"), Order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub

je pense que vous obtiendrez ce que vous voulez.​

Bon courage,
ROGER2327

 

[flo65000]

Re : macro probleme

merci beaucoup ROGER2327, tout fonctionne.

 

[ROGER2327]

Re : macro probleme

Bonsoir flo65000

Suite à votre message privé, je préfère poursuivre ici la discussion. Ce forum est un forum d'échange.
Votre problème de changement de nom d'équipe m'échappe en l'absence du classeur dans lequel vous le rencontrez. Je viens de faire des essais sans problème.
Je joins le classeur d'essai. Si cela ne vous apporte pas la solution souhaitée, faites-le moi savoir ici, et joignez le classeur qui vous soucie.​

Cordialement,
ROGER2327

 

[ROGER2327]

Re : macro probleme

Re...

Pas de nouvelle ? Bonne nouvelle !

Bonne nuit !
ROGER2327