Bonjour,
J'ai..enfin j'essaie à mon niveau de créer un fichier d'intervention des entreprises (ci-joint le fichier Excel).
Les checkboxs me posent probleme car j'aimerai que lorsqu'elles sont cochées, leur valeur soit "X" et à l'inverse "--"
checkbox1 = colonne C
checkbox2= colonne D
checkbox3 = colonne E
checkbox4= colonne F
Je ne sais pas si c'est possible. Mais en revanche je sais qu'il sera bien plus simple de traiter un résultat si tu veux faire un tri dessus par exemple si tu leur laisse le statut VRAI (bug : qui n'apparait jamais) et FAUX. Car ça se traite comme 1 et 0, tu peux faire des opérations avec (par exemple 5*VRAI =5, alors que 5*FAUX=0).
Autre bug, quelle que soit la case cochée c'est toujours la première colonne qui retourne FAUX.
Sur mon petit écran de portable, je ne peux pas afficher la case de validation de ton formulaire, il est trop grand pour ma résolution.
Bonjour,
J'ai..enfin j'essaie à mon niveau de créer un fichier d'intervention des entreprises (ci-joint le fichier Excel).
Les checkboxs me posent probleme car j'aimerai que lorsqu'elles sont cochées, leur valeur soit "X" et à l'inverse "--"
checkbox1 = colonne C
checkbox2= colonne D
checkbox3 = colonne E
checkbox4= colonne F
Bonjour,
A tester en modifiant cette partie du code
VB:
'-------------
'----------
If Reponse = vbYes Then
With Sheets("INTERVENTION")
derlig = .Range("a" & Rows.Count).End(xlUp).Row
If derlig = 1 Then derlig = 3 Else derlig = derlig + 1
.Range("A" & derlig).Value = TextBox1.Value
.Range("B" & derlig).Value = TextBox2.Value
.Range("G" & derlig).Value = TextBox3.Value
.Range("H" & derlig).Value = TextBox4.Value
.Range("I" & derlig).Value = TextBox5.Value
.Range("K" & derlig).Value = TextBox6.Value
.Range("L" & derlig).Value = TextBox7.Value
For i = 3 To 6
.Cells(derlig, i) = IIf(UserForm1.Controls("CheckBox" & i - 2).Value, "X", "--")
Next
End With
End If
Il faut supprimer le code de==>Private Sub checkbox1_click()
Ps: Si un seul type d'intervention doit être sélectionné, il vaudrait mieux utiliser des "optionbouton"
Idem pour les "surfaces utilisées"
Bonjour,
A tester en modifiant cette partie du code
VB:
'-------------
'----------
If Reponse = vbYes Then
With Sheets("INTERVENTION")
derlig = .Range("a" & Rows.Count).End(xlUp).Row
If derlig = 1 Then derlig = 3 Else derlig = derlig + 1
.Range("A" & derlig).Value = TextBox1.Value
.Range("B" & derlig).Value = TextBox2.Value
.Range("G" & derlig).Value = TextBox3.Value
.Range("H" & derlig).Value = TextBox4.Value
.Range("I" & derlig).Value = TextBox5.Value
.Range("K" & derlig).Value = TextBox6.Value
.Range("L" & derlig).Value = TextBox7.Value
For i = 3 To 6
.Cells(derlig, i) = IIf(UserForm1.Controls("CheckBox" & i - 2).Value, "X", "--")
Next
End With
End If
Il faut supprimer le code de==>Private Sub checkbox1_click()
Ps: Si un seul type d'intervention doit être sélectionné, il vaudrait mieux utiliser des "optionbouton"
Idem pour les "surfaces utilisées"
si je positionne des optionbutton pour "les surfaces utilisées", le code sera t il celui-ci à mettre en place ?
.Cells(derlig, i) = IIf(UserForm1.Controls("optionbutton" & i - 2).Value, "X", "--")
si je positionne des optionbutton pour "les surfaces utilisées", le code sera t il celui-ci à mettre en place ?
.Cells(derlig, i) = IIf(UserForm1.Controls("optionbutton" & i - 2).Value, "X", "--")
Re.....
Oui, si les "optionbutton" son "optionbutton1.../....optionbutton4"
s' ils sont nommés optionbutton3.../....optionbutton6" on peut supprimer le -2 de
IIf(UserForm1.Controls("optionbutton" & i - 2).Value, "X", "--")
si je positionne des optionbutton pour "les surfaces utilisées", le code sera t il celui-ci à mettre en place ?
.Cells(derlig, i) = IIf(UserForm1.Controls("optionbutton" & i - 2).Value, "X", "--")