Bonjour,

J'ai réalisé un code pour de la numérotation, ce code fonctionne bien comme je le souhaite mais je voudrai ajouter 2 conditions et après pas mal d'heures de recherche je n'y arrive pas !

1°) Le code génère une numérotation décroissante, normal, c'est ce que je voulais au départ, mais je pense qu'avec un "CheckBox" associé à une condition je peux inverser l'ordre de numérotation. J'ai fait pas mal d'essai mais cela ne fonctionne pas.

2°) Je souhaiterai aussi afficher un MessageBox quand le chiffre saisi dans TextBox1 n'est pas divisible par 5 , par exemple : "saisir un multiple de 5".

Je voudrai aussi afficher dans le UserForm1 le résultat de : TextBox1 + TextBox 2, je n'arrive pas à afficher ce résultat.
J'espère que ma demande est assez claire, et qu'elle ne comporte pas trop de choses.
Je joins le code.
Merci d'avance pour votre aide
Chgo

Code Feuil4 (Feuil4)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub


Code ThisWorkbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Feuil4.Range("A1" ).Value = 0 Then
Cancel = True
UserForm1.Show
End If
End Sub

Code UserForm

Private Sub CheckBox1_Click()
If CheckBox1.Value = 1 Then
p.Value = p - 1
Else
p.Value = p + 1
End If
End Sub

Private Sub CommandButton1_Click()

Dim PageDe As Single, PageA As Single, p As Single

PageDe = TextBox2 - 1
PageA = TextBox1 / 5

Unload Me

p = PageA + TextBox2 - 1

While p > PageDe
Range("A1" ).Value = p
Range("A5" ).Value = p + 1 * PageA
Range("A10" ).Value = p + 2 * PageA
Range("A15" ).Value = p + 3 * PageA
Range("A20" ).Value = p + 4 * PageA
Worksheets("Feuil4" ).PrintOut

Wend
Range("A1" ).Value = 0

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub


Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Je lirais peut-être ce code quand tu auras surement lu le règlement et mis certainement ton message en conformité.

Bonjour Zeb,
Tout d'abord je m'excuse pour le code, je suis débutant.
Cela fait plusieurs jours que j'essaie de réaliser ce code, bien sûr, j'ai cherché un peu partout, regardé des tutos, mais cela ne suffit pas lorsque l'on a peu de connaissance en programmation.
Je tiens aussi à te préciser que mon problème est résolu.
Dans le cas où j'aurai encore besoin d'aide, j'essaierai de respecter au mieux les consignes de votre forum.
Salut, Chgour