problème case à cocherRésolu

Question

Bonjour, je vous explique mon soucis,
j'ai des cases à cocher et des textbox.
Par exemple quand on coche la case1 on rentre un prix dans le textbox 1, la valeur du textbox1 se met dans une cellule d'excel, mais je voudrai que quand la case n'est pas coché mais qu'un prix a été rentré(celui la est donc grisé) il ne se mette pas dans excel.

Voila mon code

Private Sub prix1_Change()
If MODIFICATION Then Exit Sub
    If prix1.Text = "" Then
    'Si prix1 est vide alors
        Exit Sub
        'sortir de la procédure
    ElseIf Not IsNumeric(prix1) Then
    'sinon si prix1 n'est pas numérique alors
        erreur = MsgBox("Un prix est obligatoirement numérique!", vbOKOnly + vbCritical, "ERREUR")
        'msgbox
        prix1 = ""
        'prix1 est vide
        prix1.Text = InputBox("Veuillez entrer le prix correspondant SVP", "PRIX")
        'inputbox pour obliger à rentrer un prix
    ElseIf prix1 < 0 Then
    'sinon si le prix est négatif
        erreur = MsgBox("Unprix ne peut pas être négatif", vbOKOnly + vbCritical, "ERREUR")
        'msgbox
        prix1 = ""
        prix1.Text = InputBox("Veuillez entrer le prix correspondant SVP", "PRIX")
    End If
End Sub

je voulais faire 
if case1=false then...... et après je ne sais pas.
Merci de votre aide

cs_Jack · Accepted Answer

Salut
Le code que tu nous montres n'a aucun rapport avec le transfert de TextBox1 vers la cellule Excel.
Difficile de te dire comment le modifier.
Si tu as, quelquepart, quelque chose qui ressemble à 
   Cells(x, y).Value = TextBox1.Text
Alors il suffit d'ajouter
   If maCheckBox1.Value = vbChecked Then
      Cells(x, y).Value = TextBox1.Text
   End If

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

eastpeople · Answer

je sais que ce code n'a aucun rapport mais je pensais pouvoir l'intégrer dedans, je vais faire comme tu me dis merci.

eastpeople · Answer

Alors cela marche mais à l'envers c'est-à-dire que c'est la case décochée qui se mat dans excel et celle cochée qui ne se met pas.

eastpeople · Answer

OK c'est bon j'ai mis =True ça marche. Merci jack

Problème case à cocher

4 réponses

Votre réponse

Discussions similaires