Autres Affichage par lignes(Résolu)

[aredo]

Bonjour,

J'ai un fichier de tirage de 1 à 99 . Les nombres sortant s'affichent entre autre dans la colonne "I". Ma demande : que les nombres s'affichent plutôt dans les lignes 6 à 17 comme rentrées manuellement dans le fichier joint.
Merci au fofo

 

[sylvanu]

Bonjour Aredo,
En PJ j'ai modifier l'index d'écriture avec :

     DL = [I65000].End(xlUp).Row
        If DL < 6 Then
            Cells(6, "i") = Num
        Else
            Cells(1 + DL, "i") = Num
        End If

 

[aredo]

Bien merci sylvanu d'avoir répondu à mon attente. Par contre je cherche à inscrire ces nombres non pas dans la colonne "I", mais dans les lignes 6 à 17 (comme notés dans le fichier).
merci encore

 

[sylvanu]

Voir PJ avec :

     DL = [D65000].End(xlUp).Row
     If DL = 18 Then Exit Sub
        If DL < 6 Then
            DL = 6
        End If
        If Len(Cells(DL, "D")) <= 20 Then
            Cells(DL, "D") = Cells(DL, "D") & "-" & Num
        Else
            DL = DL + 1
            Cells(DL, "D") = Cells(DL, "D") & "-" & Num
        End If
        If Left(Cells(DL, "D"), 1) = "-" Then Cells(DL, "D") = Mid(Cells(DL, "D"), 2)

J'ai opté pour 8 nombres par ligne.

 

[aredo]

Re,

C'est complètement ce que je souhaitais. Merci beaucoup pour le partage, super
Bonne continuation