Vba checkbox if else

Version imprimable

Bonjour à tous.

J'ai un petit souci sur un UserForm qui contient 3 checkbox pour une demande d'étiquettes.
Ma macro devrait ajouter une ligne en mettant un 1 dans les colonnes F, G et H SI on coche les textbox.
Tout fonctionne sauf ça. Que je coche ou pas, ça me met toujours un 1 dans les 3 colonnes.
Je précise qu'il me faut un espace si la textbox n'est pas coché sinon à la prochaine demande le 1 va remonter sur la dernière cellule vide.
Je suis sûr que je suis pas loin mais je vois pas mon erreur. Si qqun peut m'aider...Voici le code de mon bouton valider.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 Private Sub CmdValider_Click() If Me.TextLOG.Text = "" Then MsgBox "Le n° du logement est obligatoire." Me.TextLOG.SetFocus Exit Sub End If If CheckInterphonie.Value = True Then Me.CheckInterphonie.SetFocus Else Me.CheckInterphonie.Value = " " 'Exit Sub End If If CheckBAL.Value = True Then Me.CheckBAL.SetFocus Else Me.CheckInterphonie.Value = " " 'Exit Sub End If If CheckTableau.Value = True Then Me.CheckTableau.SetFocus Else Me.CheckInterphonie.Value = " " 'Exit Sub End If Range("D65536").End(xlUp).Offset(1, 0).Value = Me.TextLOG.Text Range("F65536").End(xlUp).Offset(1, 0).Value = 1 Range("G65536").End(xlUp).Offset(1, 0).Value = 1 Range("H65536").End(xlUp).Offset(1, 0).Value = 1 Range("I65536").End(xlUp).Offset(1, 0).Value = Date Unload Me End Sub
Merci de votre retour.

Bonjour,

Pour plus de lisibilité, pensez à utiliser la balise CODE (le symbole # quand on écrit un message).

Le problème est là :
Code:

1 2 3 4 5 6 Range("D65536").End(xlUp).Offset(1, 0).Value = Me.TextLOG.Text Range("F65536").End(xlUp).Offset(1, 0).Value = 1 'Ecrit 1 Range("G65536").End(xlUp).Offset(1, 0).Value = 1 'Ecrit 1 Range("H65536").End(xlUp).Offset(1, 0).Value = 1 'Ecrit 1 Range("I65536").End(xlUp).Offset(1, 0).Value = Date
Ce morceau de code est placé seul sans condition donc dans TOUS les cas, 1 sera écrit dans la dernière cellule des colonnes F,G,H.

Ton but : Ma macro devrait ajouter une ligne en mettant un 1 dans les colonnes F, G et H SI on coche les textbox.

Plusieurs solutions :
- Tu testes déjà si chacune des checkbox sont cochées. Ajoute à ce code la ligne qui écrit "1"
- Tu as besoin que les 3 checkbox soient cochées pour écrire "1".
Tu peux donc faire cela
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 Private Sub CmdValider_Click() Dim Compteur as Integer 'ICI If Me.TextLOG.Text = "" Then MsgBox "Le n° du logement est obligatoire." Me.TextLOG.SetFocus Exit Sub End If If CheckInterphonie.Value = True Then Compteur=Compteur+1 'ICI Me.CheckInterphonie.SetFocus Else Me.CheckInterphonie.Value = " " 'Exit Sub End If If CheckBAL.Value = True Then Compteur=Compteur+1 'ICI Me.CheckBAL.SetFocus Else Me.CheckInterphonie.Value = " " 'Exit Sub End If If CheckTableau.Value = True Then Compteur=Compteur+1 'ICI Me.CheckTableau.SetFocus Else Me.CheckInterphonie.Value = " " 'Exit Sub End If If Compteur=3 Then 'ICI Range("D65536").End(xlUp).Offset(1, 0).Value = Me.TextLOG.Text Range("F65536").End(xlUp).Offset(1, 0).Value = 1 Range("G65536").End(xlUp).Offset(1, 0).Value = 1 Range("H65536").End(xlUp).Offset(1, 0).Value = 1 Range("I65536").End(xlUp).Offset(1, 0).Value = Date Unload Me End If 'ICI End Sub
En espérant t'avoir aidé,

29/01/2015, 11h33
domeli

Bonjour et merci pour la rapidité.

Je viens de tester mais cela ne fonctionne pas comme je veux.

Si je ne coche qu'une case cela ne marche pas.
Je suis obligé de cocher les 3 checkbox pour que ça fonctionne et ilme met 1 sur les 3 colonnes bien sûr.

Je voudrais pouvoir ne cocher qu'une checkbox selon le cas et que cala mette 1 seulement dans case correspondante.

Je regarde à tout hasard si je n'oublie pas un truc.

Encore merci de ton aide précieuse.

bonjour,

Code:

1
2
3
4
5
6
Private Sub CmdValider_Click()
 
If Me.TextLOG.Text = "" Then MsgBox "Le n° du logement est obligatoire.":Me.TextLOG.SetFocus:Exit Sub
If CheckInterphonie.Value <> True Then Me.CheckInterphonie.SetFocus: Exit Sub
If CheckBAL.Value <> True Then Me.CheckBAL.SetFocus:Exit Sub
If CheckTableau.Value <> True Then Me.CheckTableau.SetFocus:Exit Sub

29/01/2015, 11h40
domeli

Je viens de voir l'erreur.

Non. Je n'ai pas besoin que les 3 checkbox soient cochée puisque c'est un choix qui peut être multiple.

Je veux des 1 où je coche c'est tout.

Car je peux avoir besoin de commander soit 1, soit 2 ou soit les 3 étiquettes. cela dépend de la config du lieu en fait.

Merci encore

Le code que je t'ai donné était une solution vu que le besoin n'était pas clair pour moi.

Je t'ai écris cela :
Plusieurs solutions :
- Tu testes déjà si chacune des checkbox sont cochées. Ajoute à ce code la ligne qui écrit "1"
- Tu as besoin que les 3 checkbox soient cochées pour écrire "1".

Le code que tu as testé était la deuxième possibilité.

Pour la première (celle que tu veux), essayes ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 Private Sub CmdValider_Click() If Me.TextLOG.Text = "" Then MsgBox "Le n° du logement est obligatoire." Me.TextLOG.SetFocus Exit Sub End If If CheckInterphonie.Value = True Then Range("F65536").End(xlUp).Offset(1, 0).Value = 1 'ICI Me.CheckInterphonie.SetFocus Else Me.CheckInterphonie.Value = " " 'Exit Sub End If If CheckBAL.Value = True Then Range("G65536").End(xlUp).Offset(1, 0).Value = 1 'ICI Me.CheckBAL.SetFocus Else Me.CheckInterphonie.Value = " " 'Exit Sub End If If CheckTableau.Value = True Then Range("H65536").End(xlUp).Offset(1, 0).Value = 1 'ICI Me.CheckTableau.SetFocus Else Me.CheckInterphonie.Value = " " 'Exit Sub End If Range("D65536").End(xlUp).Offset(1, 0).Value = Me.TextLOG.Text ' je sais pas où placer cela Range("I65536").End(xlUp).Offset(1, 0).Value = Date ' idem Unload Me End Sub
Tu peux bien sur inverser les lignes tagguées "ICI" suivant dans quelle colonne tu écris 1 pour une checkbox donnée

Code:

1
2
3
Private Sub CmdValider_Click()
If Me.TextLOG.Text = "" Then MsgBox "Le n° du logement est obligatoire.":Me.TextLOG.SetFocus:Exit Sub
If CheckInterphonie.Value + CheckBAL.Value + CheckTableau.Value <>true then msgbox "Vous devez cocher 1": Exit Sub

29/01/2015, 11h57
domeli
Respect!

Le dernier code fonctionne.

En revanche quand je coche qu'une checkbox il me met bien le 1 ou je veux mais pas l'espace dans celles qui restent vides.

Du coup, si je fais une autre demande derrière et que la cellule de la ligne du dessus est vide, mon 1 remonte jusqu'à la dernière cellule non vide.

Pourtant on dirait bien que tu le gère:
Code:

1 2 3 4 5 6 7 If CheckInterphonie.Value = True Then Range("F65536").End(xlUp).Offset(1, 0).Value = 1 'ICI Me.CheckInterphonie.SetFocus Else Me.CheckInterphonie.Value = " " 'Exit Sub End If
29/01/2015, 12h19
Invité

Me.CheckInterphonie.Value = " " est un contrôle pas un cellule!

Code:

If CheckTableau.Value = True Then Range("H65536").End(xlUp).Offset(1, 0).Value = 1 : Range("H65536").End(xlUp).value=" " '??????

Tu dois faire exactement pareil que pour écrire le "1".

PS : bonne remarque de rdurupt (+1)

Un exemple :

Code:

1
2
3
4
5
6
7
8
9
 
If CheckInterphonie.Value = True Then
Range("F65536").End(xlUp).Offset(1, 0).Value = 1 'ICI on écrit 1 si checkbox cochée
Me.CheckInterphonie.SetFocus
Else
Me.CheckInterphonie.Value = " "
Range("F65536").End(xlUp).Offset(1, 0).Value=" " 'ICI on écrit le caractère ESPACE si non cochée
'Exit Sub
End If

Bravo et encore merci.

Voici le code complet qui me va bien. J'ai fait pareil pour les deux autres boutons et c'est nickel.

En fait je rentre le n° du logement dans une TextBox en colonne D et la colonne I me met la date de la demande pour les 2 dernières ligne.
Dans mon UserForm j'ai un bouton qui me met la date de prise en compte et un autre pour la clôture.
Rien de bien compliqué pour vous mais pour moi qui adore Excel c'est un peu plus compliqué; mais je m'accroche. :)

Encore mille merci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub CmdValider_Click()
 
If Me.TextLOG.Text = "" Then
    MsgBox "Le n° du logement est obligatoire."
    Me.TextLOG.SetFocus
    Exit Sub
End If
 
If CheckInterphonie.Value = True Then
    Range("F65536").End(xlUp).Offset(1, 0).Value = 1 'ICI on écrit 1 si checkbox cochée
    Me.CheckInterphonie.SetFocus
Else
    Me.CheckInterphonie.Value = " "
    Range("F65536").End(xlUp).Offset(1, 0).Value = " " 'ICI on écrit le caractère ESPACE si non cochée
End If
 
If CheckBAL.Value = True Then
    Range("G65536").End(xlUp).Offset(1, 0).Value = 1
    Me.CheckBAL.SetFocus
Else
    Me.CheckInterphonie.Value = " "
    Range("G65536").End(xlUp).Offset(1, 0).Value = " "
End If
 
If CheckTableau.Value = True Then
    Range("H65536").End(xlUp).Offset(1, 0).Value = 1
    Me.CheckTableau.SetFocus
Else
    Me.CheckInterphonie.Value = " "
    Range("H65536").End(xlUp).Offset(1, 0).Value = " "
End If
 
Range("D65536").End(xlUp).Offset(1, 0).Value = Me.TextLOG.Text
Range("I65536").End(xlUp).Offset(1, 0).Value = Date
Unload Me
End Sub