Gros problème d'affichage checkbox

[hidozo]

Bonjour,

Je ne peux plus mettre de checkbox dans mon userform

Cela me dit : nom ambigu !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Qu'est-ce qui se passe ?

Hidozo

 

[gilbert_RGI]

Re : Gros problème d'affichage checkbox

Bonjour,

Je ne peux plus mettre de checkbox dans mon userform

Cela me dit : nom ambigu !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Qu'est-ce qui se passe ?

Hidozo

Bonjour

Des noms sont identiques dans votre programmation

Cdlt

RGI

 

[jeanpierre]

Re : Gros problème d'affichage checkbox

Bonsoir hidozo,

Sans plus, difficile de dire, mais le nom est sans doute en cause... Même nom par exemple, ou un nom qui utilise un mot clé de Vba....

A lire quelques exemples de ton souci.

Jean-Pierre

Edit : Salut Gilbert

 

[hidozo]

Re : Gros problème d'affichage checkbox

Je viens de regarder l'ensemble de mon code,

je n'ai que 15 checkbox existantes et je ne peux pas en rajouter une de plus

elles s'appellent toutes checkbox1... jusque 15

je ne vois pas dans mon code ce qui pourrait clocher.

Je suis largué

 

[gilbert_RGI]

Re : Gros problème d'affichage checkbox

Mettre le fichier sur le fil

Edit : salut jeanpierre

 

[jeanpierre]

Re : Gros problème d'affichage checkbox

Re,

Comme dit, c'est le nom si elles se nomment toutes "checkbox1", ni Vba, ni un autre langage ne pourra faire la différence.

Renommes les, une à une, modifies ton accés à chacune dans ton code et c'est bon.

 

[hidozo]

Re : Gros problème d'affichage checkbox

elles ne s'appellent pas toutes checkbox1, il y a ensuite la 2, la 3.... jusqu'à la checkbox15

Je vais néanmoins toutes les renomer , mais faut que je change tous mon code pfffffffffff c'est le bazar !!!!!!

pas lol

et je peux pas mettre le fichier en ligne il est trop gros

 

[hidozo]

Re : Gros problème d'affichage checkbox

mon code, si quelqu'un comprend pourquoi, je ne peux pas mettre d'autres checkbox !!!! :
Private Sub Commentaires_Click()

End Sub

Private Sub Action_Change()

End Sub


Private Sub Commentaires_Change()

End Sub

Private Sub Checkbox1_Click()

End Sub

Private Sub Checkbox10_Click()

End Sub

Private Sub Checkbox11_Click()

End Sub

Private Sub Checkbox12_Click()

End Sub

Private Sub Checkbox13_Click()

End Sub

Private Sub Checkbox14_Click()

End Sub

Private Sub Checkbox15_Click()

End Sub

Private Sub Checkbox2_Click()
End Sub

Private Sub Checkbox3_Click()
End Sub

Private Sub Checkbox4_Click()
End Sub

Private Sub Checkbox5_Click()
End Sub

Private Sub Checkbox6_Click()
End Sub

Private Sub Checkbox7_Click()
End Sub

Private Sub Checkbox8_Click()
End Sub

Private Sub Checkbox9_Click()
End Sub

Private Sub ComboBox1_Change()
nom = Me.ComboBox1.Value
On Error Resume Next
Chemin = [x1]
Fichier = Chemin & "\" & nom
Me.Image1.Picture = LoadPicture(Fichier)
End Sub

Private Sub CommandButton1_Click()
Call appel
End Sub

Private Sub CommandButton2_Click()
Call RecupFichierTableau
End Sub

Private Sub CommandButton3_Click()
' Efface les données de la plage de données de la liste des photos
Range("z1:z10000").ClearContents
Range("z1").Select
End Sub

Private Sub CommandButton8_Click()
TextBox4 = Value
TextBox1 = Value
End Sub

Private Sub Commentaire_Change()
End Sub


Private Sub evaluation_Change()
End Sub

Private Sub Image1_Click()
End Sub

Private Sub Label3_Click()
End Sub

Private Sub Matériel2_Change()
End Sub

Private Sub MultiPage1_Change()
End Sub

Private Sub nomphoto_Change()
End Sub

Private Sub NouvelleSaisie_Click()

If TextBox2.Value = "Attention oubli" Or TextBox2.Value = "" Or TextBox2 = "Penser à valider" Or TextBox2.Value = "Saisir le type d'action" Then
MsgBox ("Il faut impérativement cocher le type d'action et/ou valider !!!!")
Exit Sub
End If

Worksheets("feuil2").Select
derlig = [a65000].End(xlUp).Row + 1
'copie le compteur en A1
Cells(derlig, 1) = Me.TextBox4
'transfert toutes les saisie dans Excel et là elles n'y sont pas toutes
For i = 1 To 15
Cells(derlig, i + 12) = IIf(Me.Controls("checkbox" & i), 1, "")
Next i

For i = 1 To 7
Cells(derlig, i + 5) = IIf(Me.Controls("optionbutton" & i), 1, "")
Next i

Cells(derlig, 2) = Me.titrefilm
Cells(derlig, 3) = Me.nomphoto
Cells(derlig, 4) = Me.evaluation
Cells(derlig, 28) = Me.TextBox2
Cells(derlig, 29) = Me.TextBox3
Worksheets("feuil1").Select
Me.TextBox4.Value = [ac9]
Checkbox1 = False
Checkbox2 = False
Checkbox3 = False
Checkbox4 = False
Checkbox5 = False
Checkbox6 = False
Checkbox7 = False
Checkbox8 = False
Checkbox9 = False
Checkbox10 = False
Checkbox11 = False
Checkbox12 = False
Checkbox13 = False
Checkbox14 = False
Checkbox15 = False


TextBox3 = ""
TextBox2 = "Penser à valider"
nomphoto.Text = ""
titrefilm.Text = ""
heure.Text = ""
minutes.Text = ""
secondes.Text = ""
evaluation.Text = ""
Action.Text = ""
Pièce1.Text = ""
Pièce2.Text = ""
Matériel1.Text = ""
Matériel2.Text = ""
Zonepréhension = ""
ZoneDépose = ""
ZoneTravail = ""
Commentaire = ""
End Sub

Private Sub OptionButton12_Click()
End Sub


Private Sub Pièce1_Change()
End Sub

Private Sub Pièce2_Change()
End Sub

Private Sub Quitter_Click()
'Sortie du programme
End
End Sub


Private Sub secondes_Change()
End Sub

Private Sub TextBox1_Change()
Worksheets("feuil1").Select
Me.TextBox1.Value = [AC8] & " photos"
End Sub

Private Sub TextBox2_Change()
With Worksheets("listes")
If Checkbox1 And Checkbox2 And Checkbox3 And Checkbox4 And Checkbox5 _
And Checkbox6 And Checkbox7 Then
Me.TextBox2.Value = .[C1] & .[d1]
End If
If Not (Checkbox1) Or Not (Checkbox2) Or Not (Checkbox3) Or Not (Checkbox4) _
Or Not (Checkbox5) Or Not (Checkbox6) Or Not (Checkbox7) Then
If Checkbox8 And Not (Checkbox9) And Not (Checkbox10) Then
Me.TextBox2.Value = .[c2] & .[d4]
End If
If Not (Checkbox8) And Checkbox9 And Not (Checkbox10) Then
Me.TextBox2.Value = .[c2] & .[d2]
End If
If Not (Checkbox8) And Not (Checkbox9) And Checkbox10 Then
Me.TextBox2.Value = .[c2] & .[d3]
End If
If Checkbox8 And Checkbox9 And Not (Checkbox10) Then
Me.TextBox2.Value = .[c2] & .[d2] & .[d4]
End If
If Checkbox8 And Not (Checkbox9) And Checkbox10 Then
Me.TextBox2.Value = .[c2] & .[d4] & .[d3]
End If
If Not (Checkbox8) And Checkbox9 And Checkbox10 Then
Me.TextBox2.Value = .[c2] & .[d2] & .[d3]
End If
If Checkbox8 And Checkbox9 And Checkbox10 Then
Me.TextBox2.Value = .[c2] & .[d2] & .[d3] & .[d4]
End If
If Not (Checkbox8) And Not (Checkbox9) And Not (Checkbox10) Then
Me.TextBox2 = "Penser à valider"
End If
End If
End With
End Sub

Private Sub TextBox4_Change()
Worksheets("Feuil1").Select
Me.TextBox4.Value = "Evaluation numéro " & [ac9]
End Sub

Private Sub titrefilm_Change()

End Sub

Private Sub UserForm_Initialize()
' Initialisation de la liste de la ComboBox1
ComboBox1.RowSource = "z1:z" & ActiveSheet.UsedRange.Rows.Count
' Sélection de l'index 1 de la liste
ComboBox1.ListIndex = 0
End Sub

Private Sub ValidMS_Click()
TextBox2 = Value
End Sub

Private Sub Zonepréhension_Change()

End Sub

 

[hidozo]

Re : Gros problème d'affichage checkbox

Alors en cliquant sur une checkbocx et on utilisant la tabulation, il manque la checkbox 5 et 12, pourtant elles sont bien là et quand je clique dessus, j'ai leur propriété !!

Le délire

 

[hidozo]

Re : Gros problème d'affichage checkbox

J'ai trouvé,

Merci à Jeanpierre et Gilbert RGI

J'ai remplacé le checkbox par un autre dans les propriétés et les codes et CA MARCHE.

Merci à vous, car sans vous, je crois que je galererai toujours

hidozo

 

[Cousinhub]

Re : Gros problème d'affichage checkbox

Bonjour,

ce qui me chiffonne dans ton code, c'est :

Private Sub CommandButton8_Click()
TextBox4 = Value
TextBox1 = Value
End Sub

et :

Private Sub ValidMS_Click()
TextBox2 = Value
End Sub

Value est un mot réservé

 

[hidozo]

Re : Gros problème d'affichage checkbox

Bonjour bhbh,

je me doutais qu'en affichant mon code, j'aurai des remarques constructives...

Pourquoi j'ai mi value ? je ne sais pas j'ai essayé de faire en regardant un peu comment les autres faisaient.

Cependant, l'idée c'est dans la sub de la textbox c'est de noter comment et où chercher la valeur

et dans le clic c'est de lancer la textbox.

MAintenant, si l'affichage des textbox se faisait directement sans clic de souris, ce serait trop fort, mais là je ne sais pas faire.

Cordialement

 

[hidozo]

Re : Gros problème d'affichage checkbox

bhbh,

Que veux dire terme réservé ?

Si dans le code de la textbox je mets du style :
contenu = lieu où aller chercher la valeur

et que dans le clic de souris je mets textbox = contenu

est-ce que c'est mieux et est-ce que cela marche ?

hidozo

 

[Cousinhub]

Re : Gros problème d'affichage checkbox

Re-,

te dire si cela marche, je n'en sais rien, ne connaissant pas comment tu vas définir ta variable, mais toujours est-il qu'il faut éviter de nommer ses variables par les mots réservés au code VBA

Par exemple : Value, Cells, Range.......