Donc sur le clik de ce bouton le formulaire "Form_ETAPE2_imprime" doit apparaitre et celui en cour disparait.
Mon code
Private Sub CommandButton1_Click()
Cells(33, 7) = 1 ' Ligne sans importance mais elle est dans mon code
Me.Hide
Form_ETAPE2_imprime.Show
End Sub
erreur : Argument ou appel de procedure incorrect.
je capte pas l erreur je c plus koi faire, mon code me parrait correct, mais apparament ... il ne l ai pas
Code la pa page "Form_ETAPE2_selectioncase"
Private Sub CommandButton1_Click()
Cells(33, 7) = 1
Me.Hide
Form_ETAPE2_imprime.Show
End Sub
Private Sub CommandButton2_Click()
Cells(33, 7) = 2
Me.Hide
Form_ETAPE2_imprime.Show
End Sub
Private Sub CommandButton3_Click()
Cells(33, 7) = 3
Me.Hide
Form_ETAPE2_imprime.Show
End Sub
Private Sub CommandButton4_Click()
Cells(33, 7) = 4
Me.Hide
Form_ETAPE2_imprime.Show
End Sub
Private Sub CommandButton5_Click()
Cells(33, 7) = 5
Me.Hide
Form_ETAPE2_imprime.Show
End Sub
Private Sub CommandButton6_Click()
Cells(33, 7) = 6
Me.Hide
Form_ETAPE2_imprime.Show
End Sub
Private Sub UserForm_Initialize()
Sheets("Configuration").Activate
Num = Cells(33, 1)
nom = Cells(33, 2)
prenom = Cells(33, 3)
fonction = Cells(33, 4)
societe = Cells(33, 5)
attribut = Cells(33, 6)
End Sub
Code la pa page "Form_ETAPE2_imprime"
Private Sub CommandButton1_Click()
Me.Hide
menu.Show
End Sub
Private Sub CommandButton2_Click()
If Cells(33, 7) = 1 Then
CommandButton1.Visible = False
CommandButton2.Visible = False
Image1.Visible = True
nom1.Visible = True
prenom1.Visible = True
attribut1.Visible = True
fonction1.Visible = True
code1.Visible = True
nom1.Caption = Cells(33, 2)
prenom1.Caption = Cells(33, 3)
attribut1.Caption = Cells(33, 6)
fonction1.Caption = Cells(33, 4)
code1.Caption = Chr(105) & Cells(33, 1) & checkdigit & Chr(106)
Me.PrintForm
Image1.Visible = False
nom1.Visible = False
prenom1.Visible = False
attribut1.Visible = False
fonction1.Visible = False
code1.Visible = False
CommandButton1.Visible = True
CommandButton2.Visible = True
End If
If Cells(33, 7) = 2 Then
CommandButton1.Visible = False
CommandButton2.Visible = False
Image2.Visible = True
nom2.Visible = True
prenom2.Visible = True
attribut2.Visible = True
fonction2.Visible = True
code2.Visible = True
nom2.Caption = Cells(33, 2)
prenom2.Caption = Cells(33, 3)
attribut2.Caption = Cells(33, 6)
fonction2.Caption = Cells(33, 4)
code2.Caption = Chr(105) & Cells(33, 1) & checkdigit & Chr(106)
Me.PrintForm
Image2.Visible = False
nom2.Visible = False
prenom2.Visible = False
fonction2.Visible = False
attribut2.Visible = False
code2.Visible = False
CommandButton1.Visible = True
CommandButton2.Visible = True
End If
If Cells(33, 7) = 3 Then
CommandButton1.Visible = False
CommandButton2.Visible = False
Image3.Visible = True
nom3.Visible = True
prenom3.Visible = True
fonction3.Visible = True
attribut3.Visible = True
code3.Visible = True
nom3.Caption = Cells(33, 2)
prenom3.Caption = Cells(33, 3)
fonction3.Caption = Cells(33, 4)
attribut3.Caption = Cells(33, 6)
code3.Caption = Chr(105) & Cells(33, 1) & checkdigit & Chr(106)
Me.PrintForm
Image3.Visible = False
nom3.Visible = False
prenom3.Visible = False
fonction3.Visible = False
attribut3.Visible = False
code3.Visible = False
CommandButton1.Visible = True
CommandButton2.Visible = True
End If
If Cells(33, 7) = 4 Then
CommandButton1.Visible = False
CommandButton2.Visible = False
Image4.Visible = True
nom4.Visible = True
prenom4.Visible = True
attribut4.Visible = True
code4.Visible = True
fonction4.Visible = True
fonction4.Caption = Cells(33, 4)
nom4.Caption = Cells(33, 2)
prenom4.Caption = Cells(33, 3)
attribut4.Caption = Cells(33, 6)
code4.Caption = Chr(105) & Cells(33, 1) & checkdigit & Chr(106)
Me.PrintForm
fonction4.Visible = False
Image4.Visible = False
nom4.Visible = False
prenom4.Visible = False
attribut4.Visible = False
code4.Visible = False
CommandButton1.Visible = True
CommandButton2.Visible = True
End If
If Cells(33, 7) = 5 Then
CommandButton1.Visible = False
CommandButton2.Visible = False
Image5.Visible = True
nom5.Visible = True
prenom5.Visible = True
attribut5.Visible = True
code5.Visible = True
fonction5.Visible = True
nom5.Caption = Cells(33, 2)
prenom5.Caption = Cells(33, 3)
attribut5.Caption = Cells(33, 6)
code5.Caption = Chr(105) & Cells(33, 1) & checkdigit & Chr(106)
fonction5.Caption = Cells(33, 4)
Me.PrintForm
fonction5.Visible = False
Image5.Visible = False
nom5.Visible = False
prenom5.Visible = False
attribut5.Visible = False
code5.Visible = False
CommandButton1.Visible = True
CommandButton2.Visible = True
End If
If Cells(33, 7) = 6 Then
CommandButton1.Visible = False
CommandButton2.Visible = False
Image6.Visible = True
nom6.Visible = True
prenom6.Visible = True
attribut6.Visible = True
code6.Visible = True
fonction6.Visible = True
nom6.Caption = Cells(33, 2)
prenom6.Caption = Cells(33, 3)
attribut6.Caption = Cells(33, 6)
code6.Caption = Chr(105) & Cells(33, 1) & checkdigit & Chr(106)
fonction6.Caption = Cells(33, 4)
Me.PrintForm
fonction6.Visible = False
Image6.Visible = False
nom6.Visible = False
prenom6.Visible = False
attribut6.Visible = False
code6.Visible = False
CommandButton1.Visible = True
CommandButton2.Visible = True
End If
End Sub
Private Sub UserForm_Initialize()
Sheets("Configuration").Activate
Dim checkdigit
checkdigit = 105
thestart = 0
Multiplicateur = 1
For i = 1 To 10
MonCar = Mid(Cells(33, 1), thestart, i)
checkdigit = checkdigit + Asc(MonCar)
Multiplicateur = Multiplicateur + 1
thestart = thestart + 1
Next
checkdigit = checkdigit Mod 103
checkdigit = Chr(checkdigit)
End Sub
plzzzz help me :| c tres urgent a vrai dire
Afficher la suite
