problèmes de If

skoobi

XLDnaute Barbatruc

• 31 Octobre 2007

• #2

Re : problèmes de If

Bonsoir,
test avec ces modifications:

Code:

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
        
If CheckBox1.Value = [COLOR="Red"]True[/COLOR] Then
        [COLOR="Red"]p[/COLOR] = p - 1
 Else
        [COLOR="Red"]p[/COLOR] = p + 1
End If
   
    Wend
       Range("A1").Value = 0

End Sub

 

Vote positif 0 Vote négatif

matthieu33

XLDnaute Occasionnel

• 1 Novembre 2007

• #3

Re : problèmes de If

Bonsoir chgo, skoobi et le forum,

Voici le fichier avec les adaptations demandées.
Dis nous si cela te convient.

Merci

@+

 

Pièces jointes

• Projet numérotation_v1.zip

  12.5 KB · Affichages: 30

Vote positif 0 Vote négatif

C

chgo

Guest

• 1 Novembre 2007

• #4

Re : problèmes de If

Salut Matthieu33,
C'est exactement ce que je cherchai, je crois que je n'aurai pas réussi seul dans mon coin, je ne suis pas assez calé.
Cependant, une petite question, à quoi fait référence le premier If ? bah oui ! j'essaie de comprendre.
Merci beaucoup pour ton aide.
Chgo

 

Vote positif 0 Vote négatif

matthieu33

XLDnaute Occasionnel

• 1 Novembre 2007

• #5

Re : problèmes de If

Bonjour chgo,

Le premier If... permet de tester si des données ont été saisies dans les textbox1 et textbox2.
Si tu ne mets pas cette condition, lors du clic sur le bouton Imprimer, il y aura un plantage.

@+

 

Vote positif 0 Vote négatif

C

chgo

Guest

• 1 Novembre 2007

• #6

Re : problèmes de If

re-salut Matthieu33

Je viens d'essayer le code sans cocher la case "n° croissant", lors de l'impression la boucle ne s'arrête pas, les chiffres s'incrémentent indéfiniment et l'imprimante ne s'arrête pas.
Chgo

 

Vote positif 0 Vote négatif

matthieu33

XLDnaute Occasionnel

• 1 Novembre 2007

• #7

Re : problèmes de If

Bonjour chgo,

Je n'avais pas traité cette partie.
Voici une autre version.

@+

 

Pièces jointes

• Projet numérotation_v2.zip

  13.4 KB · Affichages: 27

Vote positif 0 Vote négatif

C

chgo

Guest

• 1 Novembre 2007

• #8

Re : problèmes de If

Salut Matthieu33,
Le code fonctionne bien, merci beaucoup pour ton aide très précieuse.
Ce forum est vraiment bien, je remercie aussi Skoobi.
à +

 

Vote positif 0 Vote négatif

C

chgo

Guest

• 2 Novembre 2007

• #9

Re : problèmes de If

Bonsoir le forum,
Je viens de m'apercevoir que depuis la modification de mon code je ne peux entrer plus de 4 chiffres dans TextBox1 et TextBox2, j'ai le message d'erreur "erreur d'exécution 6" qui s'affiche, quelqu'un peut-il me dire à quoi correspond cette erreur.
Je mets le bout de code qui retourne l'erreur :
Private Sub TextBox1_Change()
Label4.Caption = 0
If TextBox1.Value <> "" Then Label4.Caption = Label4.Caption + CInt(TextBox1.Value)
If TextBox2.Value <> "" Then Label4.Caption = Label4.Caption + CInt(TextBox2.Value)
Label6.Caption = 0
If TextBox1.Value <> "" Then Label6.Caption = CInt(TextBox1 / 5)
End Sub

Private Sub TextBox2_Change()
Label4.Caption = -1
If TextBox1.Value <> "" Then Label4.Caption = Label4.Caption + CInt(TextBox1.Value)
If TextBox2.Value <> "" Then Label4.Caption = Label4.Caption + CInt(TextBox2.Value)
End Sub

Merci de votre aide.
à + Chgo

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 2 Novembre 2007

• #10

Re : problèmes de If

Bonsoir

Je pense que l'erreur vient de CInt(
En effet Integer ne prend que des valeurs de -32768 à +32765 (Quelque chose comme ça)

En mettant plus de 4 chiffres tu dépasses ces valeurs

A la place de CInt(
essayes Cdbl(
ou CLng(

 

Dernière édition: 2 Novembre 2007

Vote positif 0 Vote négatif

C

chgo

Guest

• 2 Novembre 2007

• #11

Re : problèmes de If

Bonsoir Banzai64,
C'était un peu ce que je pensais, j'avais vu sur d'autres sites que la plage des valeurs Integer était limitée, mais étant débutant je ne savais pas trop quoi mettre à la place.
Donc suite à ton message j'ai essayé Cdbl et ça à l'air de fonctionner.
Voilà, je te remercie pour ton aide.
à + Chgo

 

Vote positif 0 Vote négatif