ligne de code avec if qui ne marche pas

[hidozo]

Bonjour,

j'ai une sub qui me permet en fobnction de déterlminer un résultat en fonction de présence de critères dans les checkbox.

extrait du code :
If Checkbox1 = True And Checkbox2 = True And Checkbox3 = True And Checkbox4 = True And Checkbox5 = True And Checkbox6 = True And Checkbox7 = True
Then Worksheets("listes").Select
Me.TextBox2.Value = [C1] & [d1]

J'en ai une dizaine comme ça dans ma sub (tous les cas de figure)

Ca ne marche pas je ne ne comprends pas pourquoi

Est-ce que qu'elqu'un peut m'aider ?

Cordialement

hidozo

 

[Cousinhub]

Re : ligne de code avec if qui ne marche pas

Bonjour,
je ne sais pas si c'est la recopie du code, ou l'erreur, mais il faut que le Then soit à la fin de la ligne If....
De plus, pour alléger, tu peux éviter = True, si le Checkbox est à true, la condition If Checkbox te renvoie True

regarde le code :

If Checkbox1 And Checkbox2 And Checkbox3 And Checkbox4 And Checkbox5 _
    And Checkbox6 And Checkbox7 Then
With Worksheets("listes")
    Me.TextBox2.Value = .[C1] & .[d1]
End With

 

[hidozo]

Re : ligne de code avec if qui ne marche pas

Merci, je vais essayer

je te tiens au courant

Cordialement

 

[hidozo]

Re : ligne de code avec if qui ne marche pas

Re :

utilisation incorrecte le la clé Me.

je ne comprends pas, hier pour une autre textbox, cela fonctionnaitr et là je remets pareil et ça me plante tout

Cordialement

 

[hidozo]

Re : ligne de code avec if qui ne marche pas

Re bonjour,

Je sais pourquoi ça ne marchait pas :

pour allèger mes codes, j'ai essayé de faire les If... sur un module dans une sub et je voulais en cliquant sur le bouton de validation appelé la sub, idem pour la textbox.

mais en remettant ton code dans la su textbox2 directement, cela fonctionne.

Je ne cherche plus à comprendre, ça fonctionne, donc je vais pouvoir avancer.

Merci Bhbh de ta précieuse aide

 

[Cousinhub]

Re : ligne de code avec if qui ne marche pas

Re-,

Je ne cherche plus à comprendre, ça fonctionne,....

Pas bien.....😛

Le mot clé Me fait référence à l'objet ou la feuille sur lequel il est appelé...
Tu ne peux l'utiliser que dans des userforms, ou des onglets, dans les évènements..
Ainsi, dans ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Me.Name
End Sub

A chaque changement de cellule, tu auras un message avec le nom de l'onglet

Pour un userform, c'est bien pratique, car en tapant Me, VBA te propose toutes les propriétés ou objets de cet userform...

 

[hidozo]

Re : ligne de code avec if qui ne marche pas

Oui, merci pour l'explication, Effectivement, c'est mieux de comprendre (en plus dans mon boulot, je cherche à comporendre ce que font les autres).

Mais mon code ne marche pas, je te l'ai envoyé en message privé bhbh

Et il me dit : erreur de compilation :
end if sans bloc if


A plus

 

[Cousinhub]

Re : ligne de code avec if qui ne marche pas

Re-,
il vaut mieux rester sur le forum, qu'en MP....

J'ai un peu simplifié ton code
2 erreurs :
- CheckBox8 est écrit checbox8
- et tu as mis un signe de retour à la ligne après le Then

If Checkbox1 = False Or Checkbox2 = False Or Checkbox3 = False Or Checkbox4 = False _
Or Checkbox5 = False Or Checkbox6 = False Or Checkbox7 = False _
And checbox8 And Checkbox9 = False And Checkbox10 = False Then [COLOR="Red"]_[/COLOR]
With Worksheets("listes")

regarde le code simplifié :

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
End If
End With
End Sub

 

[hidozo]

Re : ligne de code avec if qui ne marche pas

Re,

Plus d'erreur de compilation end if sans bloc if

J'avais oublié de mettre else if.

Cependant, ma sub s'arrête à la 2ème if et ne prend pas en charge les autres elseif.

trop bizarre

A plus

 

[hidozo]

Re : ligne de code avec if qui ne marche pas

Merci bhbh,

je le savais, jk'ai pas la logique qui va bien, il faut vraiment que j'arrive à penser dans ce sens

Merci encore