Discussion :

[domeli]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Miistik]

Bonjour,

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

Le problème est là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é,

[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.

[Invité]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Miistik]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Miistik]

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

PS : bonne remarque de rdurupt (+1)

Un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[domeli]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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