Autres Affichage par lignes(Résolu)

aredo

XLDnaute Occasionnel
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
 

Pièces jointes

  • Classeur1.xls
    54 KB · Affichages: 11

sylvanu

XLDnaute Barbatruc
Supporter XLD
Voir PJ avec :
VB:
     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.
 

Pièces jointes

  • Classeur1 (1) (1).xls
    55.5 KB · Affichages: 4

Discussions similaires

Réponses
4
Affichages
591
Réponses
8
Affichages
394

Statistiques des forums

Discussions
312 875
Messages
2 093 147
Membres
105 639
dernier inscrit
crobyx