CheckBox

[apdf1]

Bonjour,

Voila j'ai une userform. Elle est composé d'une ComboBox avec 3 choix, 11 textboxs et 1 checkbox.
Au sujet de la checkbox elle me serre quand je doit annulé une commande vers les différends transmetteurs juste pour m'indiquer que j'ai refusé la transmission, mais je suis obligé de la comptabiliser j'aurais peut aussi bien mettre un texbox et rentrer accepter ou refuser.

ex:
Si je coche la checkbox, sur la ligne consterner il sera notifier "commande annuler " sinon la cellule reste vide

J'espère que j'ai réussi a me faire comprendre.

Ci joint mon fichier

Cordialement
Max

 

[laetitia90]

Re : CheckBox

bonjour apdf1

If CheckBox1 = True Then .Cells(5, 13) = "commande annuler "

ps ton code meriterait d'être simplifier avec une boucle

par exemple deja si pas de selection dans la combo

en debut de code
If ComboBox1.ListIndex = -1 Then MsgBox "Choisir un 'Tranmetteur' !": Exit Sub

pour vider les textbox tu peus faire en fin de code

Unload Me: UserForm1.Show

pour le reste une boucle



ps: bonjour Dull & joyeux noel a toi aussi

 

[Dull]

Re : CheckBox

Salut apdf1, le Forum

ajoute cette ligne de code dans le Bouton Valider

.Cells(5, 13) = IIf(CheckBox1 = True, "X", "")

avant de End With

' Bouton Ajouter
' Affiche les valeurs en premiere ligne
Private Sub CommandButton2_Click()
    If ComboBox1.ListIndex > -1 Then
        With Sheets(ComboBox1.Text)
            .Range("B5:L5").Insert shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
        
            .Cells(5, 4) = TextBox1.Value: TextBox1 = ""    ' Nom     le 5 correspond a la 5 éme ligne
            .Cells(5, 5) = TextBox2.Value: TextBox2 = ""    ' Prénom
            .Cells(5, 6) = TextBox3.Value: TextBox3 = ""    ' Adresse     le 6 correspond à la quatriéme colonne
            .Cells(5, 8) = TextBox4.Value: TextBox4 = ""    ' Ville
            .Cells(5, 7) = TextBox5.Value: TextBox5 = ""    ' C.P
            .Cells(5, 9) = TextBox6.Value: TextBox6 = ""    ' Tel
            .Cells(5, 2) = TextBox7.Value: TextBox7 = ""    ' Date
            .Cells(5, 3) = TextBox11.Value: TextBox11 = ""  ' N° Cde
            .Cells(5, 10) = TextBox8.Value: TextBox8 = ""   ' Montant
            .Cells(5, 11) = TextBox9.Value: TextBox9 = ""   ' Frais
            .Cells(5, 12) = TextBox10.Value: TextBox10 = "" ' T.T.C
            .Cells(5, 13) = IIf(CheckBox1 = True, "X", "")'ICI
        End With
        ComboBox1.ListIndex = -1
    Else
        MsgBox "Choisir un 'Tranmetteur' !"
    End If
End Sub

EDITION: Salut Laetitia

Bonne Journée et Joyeux Noël

 

[apdf1]

Re : CheckBox

Bonjour Laetitia, Dull

Je vous remercie beaucoup, le seul bémol quand j'enregistre une deuxième fois le premier s'efface?

Merci et je vous souhaite de bonne fêtes à tous

Max

 

[Pierrot93]

Re : CheckBox

Re, bonjour Laetitia, Dull

ca ressemble bigrement à ce fil :
https://www.excel-downloads.com/threads/enregistrement-sur-2-feuilles.155183/

 

[laetitia90]

Re : CheckBox

re, bonjour pierrot

effectivement en regardant un peu l'historique des posts de l'ami apdf1
beaucoup de repetitions dont j'ai répondue d'ailleurs !!!!

joyeux noel Pierrot

ps Pierrot au passage bravo pour tes 10000 posts

 

[Pierrot93]

Re : CheckBox

@Laetitia
Merci, bonnes fêtes également à toi... et à tous...